Paper Backup of Drummyfish’s Work before 2021
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The waiver of all intellectual property follows.
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Anarch
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readme
# Anarch

![](media/logo_big.png)

*extremely small, completely public domain, no-dependency, no-file,
portable suckless anarcho-pacifist from-scratch 90s-style Doom clone that runs
everywhere, made for the benefit of all living beings*

[website](https://drummyfish.gitlab.io/anarch) - [trailer](https://libre.video/videos/watch/c968774a-c12d-46d6-8851-0c578ffa8dcb) - [play in browser](https://drummyfish.gitlab.io/anarch/bin/web/anarch.html) - [itch.io](https://drummyfish.itch.io/anarch)
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This game got some attention on 4chan: [1](https://archive.li/Yzcwt), [2](https://archive.li/xY4ia), [3](https://archive.li/tFWrL).

- [why this game is special](#why-this-game-is-special)
- [stats and comparisons (for version 1.0)](#stats-and-comparisons-for-version-10)
- [manifesto](#manifesto)
- [FAQ](#faq)
- [code guide](#code-guide)
- [contributing](#contributing)
- [usage rights](#usage-rights)

## Why this game is special

- **Completely public domain (CC0) free softare, free culture, libre game** for the benefit of all living beings in the Universe, **no conoditions on use whatsoever**. **All art is original** work and licensed CC0 (as well as code).
- **100% non-commercial**, free of any ads, spyware, microtransactions, corporate logos, planned obsolescence etc.
- **Extemely low HW demands** (much less than Doom, no GPU, no FPU, just kilobytes of RAM and storage).
- **Suckless, KISS, minimal, simple**, short code (< 10000 LOC TODO).
- **Extremely portable** (much more than Doom). So far officially ported to and tested on:
  - GNU/Linux PC, SDL and csfml
  - GNU/Linux PC, terminal
  - Browser
  - Pokitto (220 x 116, 48 MHz ARM, 36 KB RAM, 256 KB flash)
  - Gamebino Meta (80 x 64, 48 MHz, 32 KB RAM, 256 KB flash)
  - TODO
- Has **completely NO external dependencies**, not even rendering or IO, that is left to each platform's frontend, but each frontend is very simple. Uses **no dynamic heap allocation** (no malloc).
- Can fit into **less than 256 kb** (including all content, textures etc.).
- Uses **no build system**, can typically be compiled with a single run of compiler (**single compilation unit**).
- **Works without any file IO**, i.e. can work without config files, save files, **all content and configs are part of the source code**.
- **Doesn't use any floating point**, everything is integer math (good for platforms without FPU).
- Written in **pure C99**, also a **subset of C++** (i.e. runs as C++ as well, good for systems that are hard C++ based).
- Made to **last for centuries** without maintenance.
- Goes beyond technical design and also **attempts to avoid possible cultural dependencies and barriers** (enemies are only robots, no violence on living beings).
- **Created with only free software** (GNU/Linux, GIMP, Audacity, gcc, Vim, ...).
- **Single compilation unit** (only one .c file to compile, very fast and simple). No build systems.
- Uses a **custom-made 256 color palette** (but can run on platforms with fever colors, even just two).
- **Well documented and commented code**, written with tinkering and remixing in mind.
- Has the oldschool feel of games like **Doom** or **Wolf3D**.

## Stats and comparisons (for version 1.0)

source code stats (80 column wrapping, a lot of empty lines):

| file                                  | LOC     | file size |
| --------------------------------------| ------- | --------- |
| game.h (main game logic)              | 4979    | 140 KB    |
| raycastlib.h (ray casting library)    | 2058    | 64 KB     |
| images.h, levels.h, sounds.h (assets) | 3868    | 340 KB    |
| settings.h, constants.h               | 1088    | 36 KB     |
| main_sdl.c (SDL frontend)             | 498     | 16 KB     |
| **total (cloc of all sources)**       | 14402   | 672 KB    |
| Doom source code                      | 38000   | 1.6 MB    |
| Wolf 3D source code                   | 25000   | 916 KB    |

compiled:

| binary               | size                                       | target FPS         | resolution | RAM usage (total)  |
| -------------------- | ------------------------------------------ | ------------------ | ---------- | ------------------ |
| GNU/Linux, SDL       | 196 KB (gcc), 184 KB (clang), 184 KB (tcc) | 60                 | 700 * 512  | ~40 MB             |
| GNU/Linux, terminal  | 184 KB (gcc), 176 KB (clang), 176 KB (tcc) | 30                 | 127 * 42   | ~5 MB              |
| Pokitto              | 180 KB                                     | 35 (overclock), 22 | 110 * 88   | < 32 KB            |
| Gamebuino Meta       | 215 KB                                     | 18                 | 80 * 64    | < 32 KB            |
| browser              | 884 KB (whole output)                      | 35                 | 512 * 320  | ~20 MB             |

system requirements:

| type               | Anarch                           | Wolf 3D                     | Doom                       |
| ------------------ | -------------------------------- | --------------------------- | -------------------------- |
| CPU                | ~40 MHz, 32 bit                  | Intel 286, ~10 MHz 16 bit   | Intel 386, ~40 MHz, 32 bit |
| RAM                | 32 KB                            | 528 KB                      | 4 MB                       |
| storage            | 200 KB                           | 8 MB                        | 12 MB                      |
| display            | 60 x 32, 8 colors, double buffer | ?                           | ?                          |
| additional         | 7 buttons, frame buffer          | HDD, frame buffer           | HDD, frame buffer          |

features:

| type                          | Anarch                           | Wolf 3D           | Doom              |
| ----------------------------- | -------------------------------- | ----------------- | ----------------- |
| levels                        | 10                               | 60 (10 shareware) | 27 (9 shareware)  |
| variable floor/ceiling height | yes                              | no                | yes               |
| engine                        | ray casting                      | ray casting       | BSP               |
| movement inertia              | no                               | no                | yes               |
| head/weapon bobbing           | yes                              | no                | yes               |
| shearing (up/down look)       | yes                              | no                | no                |
| non-square based levels       | no                               | no                | yes               |
| jumping                       | yes                              | no                | no                |
| weapons                       | 6                                | 4                 | 8                 |
| enemy types                   | 7                                | 9                 | 10                |
| ammo types                    | 3                                | 1                 | 4                 |
| armor                         | no                               | no                | yes               |
| difficulty levels             | no                               | 4                 | 5                 |

## manifesto

In today's world of capitalism and fascism no one thinks anymore about doing something without personal benefit, without expecting something in return. Complete selflessness and aim for the pure indiscriminatory long-term benefit of everyone is no longer even considered and if it appears by chance, it is laughed at and portrayed as stupidity. Technology that we are using every day is infected by this poison more than anything else.

From engineering point of view our technology is the worst in history – software is unbelievable bloated, ugly, unelegant, buggy, slow and inefficient, purposefully designed to break, to refuse to work and to enslave people, invade their privacy, to be consumed, to resist tinkering and improvement, by law, force, obscurity, brainwashing and other means. Technology doesn't serve people, it serves corporations on the detriment of people. Principles of good, efficient design and focus on long-term values have vanished in the capitalist selfish short-sighted mentality of greed. The poison has already infected the brains of the masses who are no longer even able to see their own abuse.

This game is a result of my grief about this deeply sad and frightening state of our world. It is my desperate attempt at showing that something, or rather everything, is wrong. I have put great effort in creating this completely from the ground up so that I could waive all my rights and give this away to everyone. I think it is a great shame of mankind that until now there has been no such a game completely, truly and genuinely in the public domain for all people to freely play, for students and teachers to freely study and teach, for artists and programmers to freely hack, improve and remix.

This game is also designed to be truly good technology, with as few burdens to anyone as possible, for users, programmers, distributors etc. It is designed to last for centuries without maintenance – by only relying on a C compiler, a relatively simple and perhaps the most essential piece of software, and by avoiding all unnecessary dependencies, both HW and SW, the game is almost certainly guaranteed to be easily compilable long time in the future, probably even shortly after we will have partlialy recovered from the inevitable technological collapse. The game is free and simple, modifiable by anyone with basic programming skills, not just legally but also practically (i.e. it is suckless). The design follows the essential rules of minimalism, simplicity, efficiency, elegance, hackability, openness.

As any disturbance of the status quo, my project too gets a lot of hate, being called backwards, accused of utilizing wrong programming practice, or just being a bad game in general. Nevertheless, it has only been made with love and sincere rational belief in its philosophies. I do not see it as a step backwards, but rather a step in a different, better direction. I believe that if you judge it with an open mind, you may find the hidden truth and revise your views of technology, its philosophy and its future, as I have. This game has been made for you and I hope you will find it useful.

## FAQ

### Why?

Because I find it ridiculously depressing that in a world where we have millions of computer games there isn't a single serious one made purely for the benefit of everyone on the planet, without self-interest (licenses, ads, DRM, ...) being embedded somewhere underneath. It may be one of the saddest things about this so called "advanced" society.

Yes, there exist other libre games, but they suffer from at least one of many possible flaws: dependency on the current state of capitalist dystopia (using capitalist libraries, languages, build systems, relying on powerful HW, being bloated etc.), burdening self-interest (requirements such as credit, copyleft, keeping de-facto ownership by knowhow etc.), triviality ("pong"), lax attitude to usage rights (using assets from unclear sources, not stating rights clearly enough, not archiving evidence etc.) and so on.

I would rather like to ask, in turn, why <b>no one</b> is doing what this project is trying to do. Creating something completely for everyone, even people in far future, is extremely valuable, considering only relatively minor effort is required for something that will be there <b>forever and for everyone</b>. I hope at least one person on the planet will join me.

### Is this a joke?

No.

I **will** be ridiculed, made fun of, bullied and dismissed as an *obvious* lunatic, as many similar people in history who have seen the truth behind the curtain of that time's propaganda. And those in front of it will say "this is different because ..." No, this is not different, I am choosing to see the truth and am exiled for it. I am offering the truth to you, dear reader, but you will probably refuse it because it is too scary, uncomfortable, unbearable, and will rather try to rationalize the lies you've been taught. You will likely dismiss this as a mere joke.

### Is this running on Doom engine or what?

No, this is my custom engine (raycastlib) based on raycasting, a technique used in Wolf3D engine, but it's improved, e.g. supporting multiple levels of floor and ceiling, so that the visual result is something between Wolf3D and Doom (which was a BSP engine, i.e. a principle completely different from raycasting). I've made the engine with the same philosophy in mind as the game itself.

### How is this different from the trillion other retro shooters?

Firstly this isn't trying to look like a 90s style shooter, this **is** a 90s style shooter. The code is written in the oldschool language and style in a custom efficient SW rendering engine, just like in the old days, but taken further and evolved in a new direction.

Secondly this is more than a game and is not made for any profit but for the benefit of all people. This is not a product of capitalism, but a manifesto and a selfless work of art. The code and assets are free as in freedom, meaning you can do anything you want with them -- you don't have to buy this, agree to any terms, nothing is hidden from you.

### Isn't this backwards? The graphics looks like shit.

I wouldn't call this backwards, but rather a different, better direction than which the mainstream technology is taking, though this involves taking some steps back to before the things started to go wrong, which is why the result looks like from early 90s, but from there I am trying to go forwards in the new  direction.

The new direction is towards minimalism, simplicity, accessibility ("openness", portability, low HW demands, low education demands, ...), low maintenance cost, being future-proof, helpful to people at large and so on. Such SW is sometimes called suckless or countercomplex.

Why go back to the 90s and not further? Early 90s is roughly right before PCs and games started becoming "too popular" and before comsumerism started deeply infecting and destroying the technology itself, i.e. before programming languages such as Java or platforms like MS Windows became wide spread. At this time games were still written in C (a language invented by science, not capitalism), used software rendering even for 3D, didn't use bloat such as multithreading etc.

What we perceive as good graphics is heavily dependant on what we've learned to perceive as good graphics, and it's more about aesthetics than things like resolution or polygon count. Doom looked amazing when it came out and it still does today to people who didn't let the industry teach them that good graphics equals super HD with realistic shaders requiring the latest and most expensive GPU.

### Why doesn't this have feature X? Even Doom had it.

Though inspired by Doom, this is **NOT** Doom. Keep in mind that this isn't primarily a PC game, this is a small platform independent game that happens to also natively run on PC. Also this game's goals are different than those of commercial games, it is still to a big degree just an experimental game. It has been written by a single person who had to do the design, engine programming, game programming, tool programming, graphics, sound recording, testing, media creation, all in spare time.
Please don't hate me.

### Shouldn't games simply be fun? You're complicating everything with ideological bullshit when it's really just about entertainment.

Games should definitely be fun to play, but they are still technology and engineering art. We have more than enough games that are trying to be just fun before everything else, but practically none putting a little more emphasis also on other aspects -- projects that don't spend all the effort on the shallow shell, but care equally about the insides and the wider context of the world they exist in. I think we need many more games like this one.

### Why aren't you using "modern" programming (C++17, Rust, OOP etc.) or "advanced" engines?

Because this "modern" technology is an extremely bad choice for building long-lasting, accessible programs. New languages are a product of capitalism, evolved by the markets to serve corporations to make quick profit, not fulfilling the values that are good for the people.

This game is suppost to be accessible, i.e. require only as many resources as necessarily needed, in order to run and compile even on "weak" and minimal computers, and to run long in the future, which is ensured by dropping dependencies and only relying on a C compiler, which will probably always be the highest priority piece of SW. After the technological collapse a C compiler will be the first SW we'll have to write, and with it this game will basically immediately be compilable.

### But you're using python scripts, Javascript for the web port, the PC port depends on SDL etc. Don't you contradict yourself?

No, all of these are optional. The core doesn't have any dependencies other than a C99 compiler. Frontends do depend on external libraries, but I've designed the frontend interface so that it's extremely easy to write one, so if let's say SDL dies, it's no problem to write a new frontend using another library.

Python scripts are only simple helpers for converting resources, which aren't required during compilation or code modification. In case python ceases to exist, the scripts can easily be rewritten to another languages, they're fairly simple.

### Why aren't you writing in assembly then?

Because assembly isn't portable and even a "portable assembly" (bytecode) would make it too difficult to write a game of this complexity, and still probably wouldn't be as portable as C. C is about the minimum required abstraction.

### I can make this in "Unity" in a week.

Firstly that's not a question and secondly you misunderstand the essence of this project. Your game will merely *look* the same, it will be an insult to good programming, efficient technology, users' freedom, it won't offer the same independence, portability, performance, beauty, it will probably die along with your "Unity", it will be encoumbered by licenses of your asset store, it won't carry the important messages.

### How long did this take you to make?

Depends from where you count. From my [first experiments with raycasting on Pokitto](https://talk.pokitto.com/t/pokitto-is-on-the-way-what-games-should-i-make/1266/64?u=drummyfish) it's some two years of relaxed evening programming, with taking quite long breaks.

### What tools did you use to make this game?

Only free software, preferably suckless tools: Vim text editor on Devuan GNU/Linux, mostly on a librebooted Lenovo X200 laptop. GIMP was used to make images and maps, python for small scripts and data conversions. Audacity and Blender and other programs were also used for making the trailer etc.

### How do I compile this?

Compilation depends on platform, but for a Unix PC it goes something like this:

```
# install SDL2, e.g. on Debian-like systems:
sudo apt-get install libsdl2-dev libsdl2-mixer-dev

# get the source code:
git clone https://gitlab.com/drummyfish/anarch.git

cd anarch
./make.sh sdl # compile, csfml can also be used instead of sdl
```

### So I can do anything with this for free? Even like sell it and stuff?

Basically yes, since I have given up all my IP rights, legally you can do anything with this **which is not otherwise illegal** (see the next paragraph), without needing any permission from me, which means you can play this, modify this, sell this, or do anything else without even crediting me. That is all legal, however that doesn't mean it's automatically moral or that I endorse anything you do. As an anarchist I don't want laws preventing your freedom to do anything with a copy of information. It is your responsibility to decide what is moral behavior.

Note that you may still be interested in that **legally there are still things you cannot do with a public domain work like this**. These are not my conditions, just general laws that I am informing you about. For example you cannot claim copyright for an unmodified version of the game, e.g. you **cannot** prevent others from using it in any way they want, e.g. you can sell this but you **cannot** stop others from also selling it or even redistributing it for free (notice how enforcing copyright is no longer a freedom to use one's own copy of information in any way, which is what I am giving you). Even if crediting me isn't required, you probably **cannot** claim the lie that you are the author of the unmodified version because that, again, is a false claim of copyright. Of course, you **can** add your own creations and modifictions to this work (e.g. levels, code, ...) and then claim copyright, but **only** to those specific parts you yourself created.

I don't enforce anything and don't even judge your actions, but I would still be happy if you voluntarily share with me some money that you make on this, if you credit me, if you share your derivative works as public domain or start promoting some of my philosophies. I believe these things are moral, but morals cannot and mustn't be forced. This is why I don't license this as copyleft.

Am I so stupid as to trust complete strangers to not abuse this? No, I know people will "abuse" my work and I am predict some Chinese company will soon be distributing this somehow with a false claim copyright (in which case please don't believe them, there exists evidence of me creating this and releasing this first, with all rights waived). The good that will come from this will be greater than the bad. Perhaps this alone will make you think.

### Can I fork this and just strip all the political stuff?

Yes. You can also replace it with your own political stuff, even if it's in conflict with mine, no problem.

### What values is this work trying to present?

The game itself can't communicate many values directly – it is just a simple game with very little text – but it tries to **bring attention** to the values of its author. Some of these are:

- [Anarchism](https://theanarchistlibrary.org/library/the-anarchist-faq-editorial-collective-an-anarchist-faq-02-17), which [automatically means](https://theanarchistlibrary.org/library/the-anarchist-faq-editorial-collective-an-anarchist-faq-12-17#toc16) anti-capitalism and caring about all other living beings.
- [Pacifism](https://en.wikipedia.org/wiki/Anarcho-pacifism), because true effort for equality can't be pursued by violence and other forms of oppression.
- [Minimalism](https://suckless.org/philosophy/) and simplicity, in technology and elsewhere, as a means of freedom and beauty.
- [Software](https://en.wikipedia.org/wiki/Free_software), [cultural](https://en.wikipedia.org/wiki/Free-culture_movement) and information freedom, opposition to intellectual property.
- Future proof technology.
- Vegetarianism, veganism, equality of life forms.
- Selflessness, sharing, collaboration, caring about others.

### Why ray casting and not e.g. BSP?

This all started with me just creating a very simple ray casting library while playing around with Pokitto, since ray casting is pretty simple. It e.g. allows easy creation of levels and doesn't require precomputation of accelerating structures. I kept improving the library and ended up with raycastlib, a more advanced ray casting library. The idea of creating a Doom clone wasn't planned from the beginning so when it came, I simply used what I had. Sure, BSP would work too, but raycasting makes Anarch kind of unique, there is not many similar games. Lately I've been thinking about creating a BSP library too, so maybe there will once be Anarch 2, who knows?

### Why CC0? Why not MIT or copyleft?

Because I strongly reject the concept of intellectual property and laws in general and because I simply don't want any bullshit burdening my creation. MIT is **not** public domain dedication, it still acknowledges copyright and has a burdening requirement of having to include a copyright notice, and it is also worded kind of vaguely. Copyleft puts even heavier legal burden on users, is by nature unclear and makes us "marry the lawyers", i.e. approve of the IP bullshit and show willingness to enforce only "good" use of our art, as if we're some kind of dictator authority.

It is shame that so little software is truly in the public domain for anyone to simply use without restriction and distraction. Yes, I am aware of CC0's shortcoming, but it's the best we have and I try to address the issues with an extra waiver.

### I've found a bug. What do?

Firstly don't panic and please don't hate me, I didn't put that bug there intentionally. Send me a mail or open an issue on GL to let me know and I'll probably try to fix it. If I for some reason can't, ask some other programmer, or fix it yourself, it most likely isn't as difficult as fixing a bug in 1M LOC program wrapped in layers of "design patterns" and written in 10 languages. 

### Who are you?

I am an anarcho-pacifist programmer. You can read more about me at [my website](https://www.tastyfish.cz). You can read my political manifesto here: [Non-Competitive Society](https://gitlab.com/drummyfish/my_writings/-/blob/master/non-competitive%20society.pdf).

### You sound like an insane person, are you crazy?

I have mental issues as most people nowadays and I go crazy from living in this world, but these don't affect my reasoning. I challenge you to critically evaluate the ideas I present.

### Can I support you?

Yes. This wasn't made for any profit but if you just want to share with a fellow human being, I'll be glad. You can find my support info at [my website](https://www.tastyfish.cz#support). You can also pay what you want on itch.io.

### Fuck you.

Peace.

## code guide

Most things should be obvious and are documented in the source code itself. This
is just an extra helper.

The repository structure is following:

```
assets/          asset sources (textures, sprites, maps, sounds, ...)
  *.py           scripts for converting assets to C structs/arrays
media/           media presenting the game (screenshots, logo, ...)
constants.h      game constants that aren't considered settings
game.h           main game logic
images.h         images (textures, sprites) from assets folder converted to C
levels.h         levels from assets folder converted to C
main_*.*         fronted implement. for various platforms, passed to compiler
palette.h        game 256 color palette
raycastlib.h     ray casting library
settings.h       game settings that users can change (FPS, resolution, ...)
smallinput.h     helper for some frontends and tests, not needed for the game
sounds.h         sounds from assets folder converted to C
texts.h          game texts
make.sh          compiling script constaining compiler settings
HTMLshell.html   HTML shell for emscripten (browser) version
index.html       game website
README.md        this readme
```

Main **game logic** is implemented in `game.h` file. All global identifiers of the game code start with the prefix `SFG_` (meaning *suckless FPS game*). Many identifiers also start with `RCL_` – these belong to the ray casting library.

The game core only implements the back end independent of any platforms and libraries. This back end has an API – a few functions that the front end has to implement, such as `SFG_setPixel` which should write a pixel to the platform's screen. Therefore if one wants to **port** the game to a new platform, it should be enough to implement these few simple functions and adjust game settings.

A deterministic **game loop** is used, meaning every main loop/simulation iteration has a constant time step, independently of actually achieved FPS. The FPS that is set determines both the target rendering FPS as well as the length of the simulation step: rendering at higher FPS than that of the simulation would bring no visual benefit as the draw function renders the game state as-is, without interpolating towards the next frame etc. Note that the game will behave slightly differently with different FPS values due to rounding errors, but should be okay as long as the FPS isn't extremely low (e.g. 2) or high (e.g. 1000). If the set  FPS can't be reached, the game will appear slowed down, so set the FPS to a value that your platform can handle.

The **rendering engine** -- raycastlib -- works on the principle of **ray casting** on a square grid and handles the rendering of the 3D environment (minus sprites). This library also handles player's **collisions** with the level. There is a copy of raycastlib in this repository but I maintain raycastlib as a separate project in a different repository, which you can see for more details about it. For us, the important functions interfacing with the engine are e.g. `SFG_floorHeightAt`, `SFG_ceilingHeightAt` (functions the engine uses to retirieve floor and ceiling height) and `SFG_pixelFunc` (function the engine uses to write pixels to the screen during rendering, which in turn uses each platform's specific `SFG_setPixel`). It is documented in its own source code.

Only **integer arithmetic** is used, no floating point is needed. Integers are effectively used as fixed point numbers, having `RCL_UNITS_PER_SQUARE` (1024) fractions in a unit. I.e. what we would write as 1.0 in floating point we write as 1024, 0.5 becomes 512 etc.

**Mods** of the vanilla version are recommended to be made as patches, so that they can easily be combined etc. If you want your mod to remain free, please don't forget a license/waiver, even for a small mod. You can never go wrong by including it.

**Sprite** (monster, items, ...) rendering is intentionally kept simple and doesn't always give completely correct result, but is good enough. Sprite scaling due to perspective should properly be done with respect to both horizontal and vertical FOV, but for simplicity the game scales them uniformly, which is mostly good enough. Visibility is also imperfect and achieved in two ways simultaneously. Firstly a 3D visibility ray is cast towards each active sprite from player's position to check if it is visible or not (ignoring the possibility of partial occlusion). Secondly a horizontal 1D z-buffer is used solely for sprites, to not overwrite closer sprites with further ones.

**Monster sprites** only have one facing direction: to the player. To keep things small, each monster has only a few frames of animations: usually 1 idle frame, 1 waling frame, 1 attacking frame. For dying animation a universal "dying" frame exists for all mosnters.

All ranged attacks in the game use **projectiles**, there is no hit scan.

The game uses a custom general purpose HSV-based 256 color **palette** which I again maintain as a separate project in a different repository as well (see it for more details). The advantage of the palette is the arrangement of colors that allows increasing/decreasing color value (brightness) by incrementing/decrementing the color index, which is used for dimming environment and sprites in the distance into shadow/fog without needing color mapping tables (which is what e.g. Doom did), saving memory and CPU cycles for memory access.

All **assets** are embedded directly in the source code and will be part of the compiled binary. This way we don't have to use file IO at all, and the game can run on platforms without a file system. Some assets use very simple compression to reduce the binary size. Provided python scripts can be used to convert assets from common formats to the game format.

All **images** in the game such as textures, sprites and backgrounds (with an exception of the font) are 32 x 32 pixels in 16 colors, i.e. 4 bits per pixel. The 16 color palette is specific to each image and is a subpalette of the main 256 color palette. The palette is stored before the image data, so each image takes 16 + (32 * 32) / 2 = 528 bytes. This makes images relatively small, working with them is easy and the code is faster than would be for arbitrary size images. One color (red) is used to indicate transparency.

The game uses a custom very simple 4x4 **font** consisting of only upper case letters and a few symbols, to reduce its size.

For **RNG** a very simple 8 bit congruent generator is used, with the period 256, yielding each possible 8 bit value exactly once in a period.

**AI** is very simple. Monsters update their state in fixed time ticks and move on a grid that has 4 x 4 points in one game square. Monsters don't have any direction, just 2D position (no height). Close range monsters move directly towards player and attack when close enough. Ranged monsters randomly choose to either shoot a projectile (depending on the aggressivity value of the monster's type) or move in random direction.

User/platform **settings** are also part of the source code, meaning that change of settings requires recompiling the game. To change settings, take a look at the default values in `settings.h` and override the ones you want by defining them before including `game.h` in your platform's front end source code.

To increase **performance**, you can adjust some settings, see settings.h and search for "performance". Many small performance tweaks exist. If you need a drastic improvement, you can set ray casting subsampling to 2 or 3, which will decrease the horizontal resolution of raycasting rendering by given factor, reducing the number of rays cast, while keeping the resolution of everything else (vertical, GUI, sprites, ...) the same. You can also divide the whole game resolution by setting the resolution scaledown, or even turn texturing completely off. You can gain or lose a huge amount of performance in your implementation of the `SFG_setPixel` function which is evaluated for every single pixel in every frame, so try to optimize here as much as possible. Also don't forget to use optimization flags of your compiler, they make the biggest difference. You can also try to disable music, set the horizontal resolution to power of 2 and similat things.

**Levels** are stored in levels.h as structs that are manually editable, but also use a little bit of compression principles to not take up too much space, as each level is 64 x 64 squares, with each square having a floor heigh, ceiling heigh, floor texture, ceiling texture plus special properties (door, elevator etc.). There is a python script that allows to create levels in image editors such as GIMP. A level consists of a tile dictionary, recordind up to 64 tile types, the map, being a 2D array of values that combine an index pointing to the tile dictionary plus the special properties (doors, elevator, ...), a list of up to 128 level elements (monsters, items, door locks, ...), and other special records (floor/ceiling color, wall textures used in the level, player start position, ...).

**Saving/loading** is an optional feature. If it is not present (frontend doesn't implement the API save/load functions), all levels are unlocked from the start and no state survives the game restart. If the feature is implemented, progress, settings and a saved position is preserved in permanent storage. What the permanent storage actually is depends on the front end implementation – it can be a file, EEPROM, a cookie etc., the game doesn't care. Only a few bytes are required to be saved. Saving of game position is primitive: position can only be saved at the start of a level, allowing to store only a few values such as health and ammo.

Performance and small size are achieved by multiple **optimization** techniques. Macros are used a lot to move computation from run time to compile time and also reduce the binary size. E.g. the game resolution is a constant and can't change during gameplay, allowing the compiler to precompute many expression with resolution values in them. Powers of 2 are used whenever possible. Approximations such as taxicab distances are used. Some "accelerating" structures are also used, e.g. a 2D bit array for item collisions. Don't forget to compile the game with -O3.

## contributing

**I am not acception any contributions to this repository**, however you can, and are encouraged to, **fork** the repo and do whatever you want with it. This is because I want to keep the original repository completely my own work to prevent the risk of "intellectual property" complications with multiple authors (e.g. a contributor starting to say he agreed to the waiver by mistake) and to make it as clear as possible that this is truly public domain. Yes, **I am afraid of free contribution from volunteers – this is what copyright laws have achieved**. If you dislike this situation, stop supporting copyright and IP laws. Outside this repo of course we can collaborate without borders.

I welcome feedback, such as bug reports, which you can create here on GL as an issue, report to me via email etc.

## usage rights

**tl;dr: everything in this repository is CC0 + a waiver of all rights, completely public domain as much as humanly possible, do absolutely anything you want**

I, Miloslav Číž (drummyfish), have created everything in this repository, including but not limited to code, graphics, sprites, palettes, fonts, sounds, music, storyline and texts, even the font in the video trailer and drum sound samples for the soundtrack, completely myself from scratch, using completely and exclusive free as in freedom software, without accepting any contributions, with the goal of creating a completely original art which is not a derivative work of anyone else's existing work, so that I could assure that by waiving my intellectual property rights the work will become completely public domain with as little doubt as posible.

This work's goal is to never be encumbered by any exclusive intellectual property rights, it is intended to always stay completely and forever in the public domain, available for any use whatsoever.

I therefore release everything in this repository under CC0 1.0 (public domain, https://creativecommons.org/publicdomain/zero/1.0/) + a waiver of all other IP rights (including patents), which is as follows:

*Each contributor to this work agrees that they waive any exclusive rights, including but not limited to copyright, patents, trademark, trade dress, industrial design, plant varieties and trade secrets, to any and all ideas, concepts, processes, discoveries, improvements and inventions conceived, discovered, made, designed, researched or developed by the contributor either solely or jointly with others, which relate to this work or result from this work. Should any waiver of such right be judged legally invalid or ineffective under applicable law, the contributor hereby grants to each affected person a royalty-free, non transferable, non sublicensable, non exclusive, irrevocable and unconditional license to this right.*

I would like to ask you, without it being any requirement at all, to please support free software and free culture by sharing at least some of your own work in a similar way I do with this project.

If you'd like to support me or just read something about me and my projects, visit my site: [www.tastyfish.cz](http://www.tastyfish.cz/).
game.h
/**
  @file game.h
 
  Main source file of Anarch the game that puts together all the pieces. main
  game logic is implemented here.

  physics notes (you can break this when messing around with game constants):

  - Lowest ceiling under which player can fit is 4 height steps.
  - Widest hole over which player can run without jumping is 1 square.
  - Widest hole over which the player can jump is 3 squares.
  - Highest step a player can walk onto without jumping is 2 height steps.
  - Highest step a player can jump onto is 3 height steps.

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#ifndef _SFG_GAME_H
#define _SFG_GAME_H

#include <stdint.h> // Needed for fixed width types, can easily be replaced.

/*
  The following keys are mandatory to be implemented on any platform in order
  for the game to be playable. Enums are bloat.
*/
#define SFG_KEY_UP 0
#define SFG_KEY_RIGHT 1
#define SFG_KEY_DOWN 2
#define SFG_KEY_LEFT 3
#define SFG_KEY_A 4     ///< fire, confirm
#define SFG_KEY_B 5     ///< cancel, strafe, look up/down
#define SFG_KEY_C 6     ///< menu, jump, switch weapons

/*
  The following keys are optional for a platform to implement. They just make
  the controls more comfortable.
*/
#define SFG_KEY_JUMP 7
#define SFG_KEY_STRAFE_LEFT 8
#define SFG_KEY_STRAFE_RIGHT 9
#define SFG_KEY_MAP 10
#define SFG_KEY_TOGGLE_FREELOOK 11
#define SFG_KEY_NEXT_WEAPON 12
#define SFG_KEY_PREVIOUS_WEAPON 13
#define SFG_KEY_MENU 14
#define SFG_KEY_CYCLE_WEAPON 15

#define SFG_KEY_COUNT 16 ///< Number of keys.

/* ============================= PORTING =================================== */

/* When porting, do the following:
   - Include this file (and possibly other optional files, like sounds.h) in
     your main_*.c frontend source.
   - Implement the following functions in your frontend source.
   - Call SFG_init() from your frontend initialization code.
   - Call SFG_mainLoopBody() from within your frontend main loop.

   If your platform is an AVR CPU (e.g. some Arduinos) and so has Harvard
   architecture, define #SFG_AVR 1 before including this file in your frontend
   source. */

#ifndef SFG_LOG
  #define SFG_LOG(str) {} ///< Can be redefined to log game messages.
#endif

#ifndef SFG_CPU_LOAD
  #define SFG_CPU_LOAD(percent) {} ///< Can be redefined to check CPU load in %.
#endif

#ifndef SFG_GAME_STEP_COMMAND
  #define SFG_GAME_STEP_COMMAND {} /**< Will be called each simlation step (good
                                   for creating deterministic behavior such as
                                   demos (SFG_mainLoopBody() calls potentially
                                   multiple simulation steps). */
#endif

/** 
  Returns 1 (0) if given key is pressed (not pressed). At least the mandatory
  keys have to be implemented, the optional keys don't have to ever return 1.
  See the key constant definitions to see which ones are mandatory.
*/
int8_t SFG_keyPressed(uint8_t key);

/**
  Optional function for mouse/joystick/analog controls, gets mouse x and y
  offset in pixels from the game screen center (to achieve classic FPS mouse
  controls the platform should center the mouse after this call). If the
  platform isn't using a mouse, this function can simply return [0,0] offset at
  each call, or even do nothing at all (leave the variables as are).
*/
void SFG_getMouseOffset(int16_t *x, int16_t *y);

/**
  Returns time in milliseconds sice program start.
*/
uint32_t SFG_getTimeMs();

/** 
  Sleep (yield CPU) for specified amount of ms. This is used to relieve CPU
  usage. If your platform doesn't need this or handles it in other way, this
  function can do nothing.
*/
void SFG_sleepMs(uint16_t timeMs);

/**
  Set specified screen pixel. ColorIndex is the index of the game's palette.
  The function doesn't have to (and shouldn't, for the sake of performance)
  check whether the coordinates are within screen bounds.
*/
static inline void SFG_setPixel(uint16_t x, uint16_t y, uint8_t colorIndex);

/**
  Play given sound effect (SFX). This function may or may not use the sound
  samples provided in sounds.h, and it may or may not ignore the (logarithmic)
  volume parameter (0 to 255). Depending on the platform, the function can play
  completely different samples or even e.g. just beeps. If the platform can't
  play sounds, this function implementation can simply be left empty. This
  function doesn't have to implement safety measures, the back end takes cares
  of them.
*/
void SFG_playSound(uint8_t soundIndex, uint8_t volume);

#define SFG_MUSIC_TURN_OFF 0
#define SFG_MUSIC_TURN_ON 1
#define SFG_MUSIC_NEXT 2

/**
  Informs the frontend how music should play, e.g. turn on/off, change track,
  ... See SFG_MUSIC_* constants. Playing music is optional and the frontend may
  ignore this. If a frontend wants to implement music, it can use the bytebeat
  provided in sounds.h or use its own.
*/
void SFG_setMusic(uint8_t value);

#define SFG_EVENT_VIBRATE 0 ///< the controller should vibrate (or blink etc.)
#define SFG_EVENT_PLAYER_HURT 1 
#define SFG_EVENT_PLAYER_DIES 2
#define SFG_EVENT_LEVEL_STARTS 3
#define SFG_EVENT_LEVEL_WON 4
#define SFG_EVENT_MONSTER_DIES 5
#define SFG_EVENT_PLAYER_TAKES_ITEM 6
#define SFG_EVENT_EXPLOSION 7
#define SFG_EVENT_PLAYER_TELEPORTS 8
#define SFG_EVENT_PLAYER_CHANGES_WEAPON 9

/**
  This is an optional function that informs the frontend about special events
  which may trigger something special on the platform, such as a controller
  vibration, logging etc. The implementation of this function may be left empty.
*/
void SFG_processEvent(uint8_t event, uint8_t data);

#define SFG_SAVE_SIZE 12 ///< size of the save in bytes

/**
  Optional function for permanently saving the game state. Platforms that don't
  have permanent storage (HDD, EEPROM etc.)  may let this function simply do
  nothing. If implemented, the function should save the passed data into its
  permanent storage, e.g. a file, a cookie etc.
*/
void SFG_save(uint8_t data[SFG_SAVE_SIZE]);

/**
  Optional function for retrieving game data that were saved to permanent
  storage. Platforms without permanent storage may let this function do nothing.
  If implemented, the function should fill the passed array with data from
  permanent storage, e.g. a file, a cookie etc.

  If this function is called before SFG_save was ever called and no data is
  present in permanent memory, this function should do nothing (leave the data
  array as is).

  This function should return 1 if saving/loading is possible or 0 if not (this
  will be used by the game to detect saving/loading capability).
*/
uint8_t SFG_load(uint8_t data[SFG_SAVE_SIZE]);

/* ========================================================================= */

/**
  Main game loop body, call this inside your platform's specific main loop.
  Returns 1 if the game continues or 0 if the game was exited and program should
  halt. This functions handles reaching the target FPS and sleeping for
  relieving CPU, so don't do this.
*/
uint8_t SFG_mainLoopBody();

/**
  Initializes the game, call this in the platform's initialization code.
*/
void SFG_init();

#include "settings.h"

#if SFG_AVR
  #include <avr/pgmspace.h>

  #define SFG_PROGRAM_MEMORY const PROGMEM
  #define SFG_PROGRAM_MEMORY_U8(addr) pgm_read_byte(addr)
#else
  #define SFG_PROGRAM_MEMORY static const
  #define SFG_PROGRAM_MEMORY_U8(addr) ((uint8_t) (*(addr)))
#endif

#include "images.h" // don't change the order of these includes
#include "levels.h"
#include "texts.h"
#include "palette.h"

#if SFG_TEXTURE_DISTANCE == 0
  #define RCL_COMPUTE_WALL_TEXCOORDS 0
#endif

#define RCL_PIXEL_FUNCTION SFG_pixelFunc
#define RCL_TEXTURE_VERTICAL_STRETCH 0

#define RCL_CAMERA_COLL_HEIGHT_BELOW 800
#define RCL_CAMERA_COLL_HEIGHT_ABOVE 200

#define RCL_HORIZONTAL_FOV SFG_FOV_HORIZONTAL
#define RCL_VERTICAL_FOV SFG_FOV_VERTICAL

#include "raycastlib.h" 

#include "constants.h"

typedef struct
{
  uint8_t coords[2];
  uint8_t state;    /**< door state in format:
                          
                         MSB  ccbaaaaa  LSB

                         aaaaa: current door height (how much they're open)
                         b:     whether currently going up (0) or down (1)
                         cc:    by which card (key) the door is unlocked, 00
                                means no card (unlocked), 1 means card 0 etc. */
} SFG_DoorRecord;

#define SFG_SPRITE_SIZE(size0to3) \
  (((size0to3 + 3) * SFG_BASE_SPRITE_SIZE) / 4)

#define SFG_SPRITE_SIZE_TO_HEIGHT_ABOVE_GROUND(size0to3) \
  (SFG_SPRITE_SIZE(size0to3) / 2)

#define SFG_SPRITE_SIZE_PIXELS(size0to3) \
  ((SFG_SPRITE_SIZE(size0to3) * SFG_SPRITE_MAX_SIZE) / RCL_UNITS_PER_SQUARE)

/**
  Holds information about one instance of a level item (a type of level element,
  e.g. pickable items, decorations etc.). The format is following:

  MSB  abbbbbbb  LSB

  a:        active flag, 1 means the item is nearby to player and is active
  bbbbbbb:  index to elements array of the current level, pointing to element
            representing this item 
*/
typedef uint8_t SFG_ItemRecord;

#define SFG_ITEM_RECORD_ACTIVE_MASK 0x80

#define SFG_ITEM_RECORD_LEVEL_ELEMENT(itemRecord) \
  (SFG_currentLevel.levelPointer->elements[itemRecord & \
  ~SFG_ITEM_RECORD_ACTIVE_MASK])

typedef struct 
{
  uint8_t stateType;  /**< Holds state (lower 4 bits) and type of monster (upper
                           4 bits). */
  uint8_t coords[2];  /**< monster position, in 1/4s of a square */
  uint8_t health;
} SFG_MonsterRecord;

#define SFG_MR_STATE(mr) ((mr).stateType & SFG_MONSTER_MASK_STATE)
#define SFG_MR_TYPE(mr) \
  (SFG_MONSTER_INDEX_TO_TYPE(((mr).stateType & SFG_MONSTER_MASK_TYPE) >> 4))

#define SFG_MONSTER_COORD_TO_RCL_UNITS(c) ((RCL_UNITS_PER_SQUARE / 8) + c * 256)
#define SFG_MONSTER_COORD_TO_SQUARES(c) (c / 4)

#define SFG_ELEMENT_COORD_TO_RCL_UNITS(c) \
  (c * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2)

#define SFG_MONSTER_MASK_STATE 0x0f
#define SFG_MONSTER_MASK_TYPE  0xf0

#define SFG_MONSTER_STATE_INACTIVE  0 ///< Not nearby, not actively updated.
#define SFG_MONSTER_STATE_IDLE      1
#define SFG_MONSTER_STATE_ATTACKING 2
#define SFG_MONSTER_STATE_HURTING   3
#define SFG_MONSTER_STATE_DYING     4
#define SFG_MONSTER_STATE_GOING_N   5
#define SFG_MONSTER_STATE_GOING_NE  6
#define SFG_MONSTER_STATE_GOING_E   7
#define SFG_MONSTER_STATE_GOING_SE  8
#define SFG_MONSTER_STATE_GOING_S   9
#define SFG_MONSTER_STATE_GOING_SW  10
#define SFG_MONSTER_STATE_GOING_W   11
#define SFG_MONSTER_STATE_GOING_NW  12
#define SFG_MONSTER_STATE_DEAD      13

typedef struct
{
  uint8_t  type;
  uint8_t  doubleFramesToLive; /**< This number times two (because 255 could be
                                    too little at high FPS) says after how many
                                    frames the projectile is destroyed. */
  uint16_t position[3]; /**< Current position, stored as u16 to save space, as
                             that is exactly enough to store position on 64x64
                             map. */
  int16_t direction[3]; /**< Added to position each game step. */
} SFG_ProjectileRecord;

#define SFG_GAME_STATE_INIT 0 ///< first state, waiting for key releases
#define SFG_GAME_STATE_PLAYING 1
#define SFG_GAME_STATE_WIN 2
#define SFG_GAME_STATE_LOSE 3
#define SFG_GAME_STATE_INTRO 4
#define SFG_GAME_STATE_OUTRO 5
#define SFG_GAME_STATE_MAP 6
#define SFG_GAME_STATE_LEVEL_START 7
#define SFG_GAME_STATE_MENU 8  

#define SFG_MENU_ITEM_CONTINUE 0
#define SFG_MENU_ITEM_MAP 1
#define SFG_MENU_ITEM_PLAY 2
#define SFG_MENU_ITEM_LOAD 3
#define SFG_MENU_ITEM_SOUND 4
#define SFG_MENU_ITEM_SHEAR 5
#define SFG_MENU_ITEM_EXIT 6

#define SFG_MENU_ITEM_NONE 255

/*
  GLOBAL VARIABLES
===============================================================================
*/

/**
  Groups global variables related to the game as such in a single struct. There
  are still other global structs for player, level etc.
*/
struct
{
  uint8_t state;                 ///< Current game state.
  uint32_t stateTime;            ///< Time in ms from last state change.
  uint8_t currentRandom;         ///< for RNG
  uint8_t spriteAnimationFrame;
  uint8_t soundsPlayedThisFrame; /**< Each bit says whether given sound was
                                    played this frame, prevents playing too many
                                    sounds at once. */
  RCL_RayConstraints rayConstraints; ///< Ray constraints for rendering.
  RCL_RayConstraints visibilityRayConstraints; ///< Constraints for visibility.
  uint8_t keyStates[SFG_KEY_COUNT]; /**< Pressed states of keys, each value
                                    stores the number of frames for which the
                                    key has been held. */
  uint8_t zBuffer[SFG_Z_BUFFER_SIZE];
  uint8_t textureAverageColors[SFG_WALL_TEXTURE_COUNT]; /**< Contains average
                                    color for each wall texture. */
  int8_t backgroundScaleMap[SFG_GAME_RESOLUTION_Y];
  uint16_t backgroundScroll;
  uint8_t spriteSamplingPoints[SFG_MAX_SPRITE_SIZE]; /**< Helper for
                                                     precomputing sprite
                                                     sampling positions for
                                                     drawing. */
  uint32_t frameTime;      ///< time (in ms) of the current frame start
  uint32_t frame;          ///< frame number
  uint8_t selectedMenuItem;
  uint8_t selectedLevel;   ///< level to play selected in the main menu
  uint8_t antiSpam;        ///< Prevents log message spamming.
  uint8_t settings;   /**< dynamic game settings (can be changed at runtime),
                           bit meaning:

                           MSB -------- LSB
                                   ||||
                                   |||\_ sound (SFX)
                                   ||\__ music
                                   |\___ shearing
                                   \____ freelook (shearing not sliding back) */
  uint8_t blink;      ///< Says whether blinkg is currently on or off.
  uint8_t saved;      /**< Helper variable to know if game was saved. Can be
                           0 (not saved), 1 (just saved) or 255 (can't save).*/
  uint8_t cheatState; /**< Highest bit say whether cheat is enabled, other bits
                           represent the state of typing the cheat code. */
  uint8_t save[SFG_SAVE_SIZE];  /**< Stores the game save state that's kept in
                           the persistent memory.

                           The save format is binary and platform independent.
                           The save contains game settings, game progress and a
                           saved position. The format is as follows:

         0  4b  (less signif.) highest level that has been reached
         0  4b  (more signif.) level number of the saved position (0: no save)
         1  8b  game settings (SFG_game.settings)
         2  8b  health at saved position
         3  8b  bullet ammo at saved position
         4  8b  rocket ammo at saved position
         5  8b  plasma ammo at saved position
         6  32b little endian total play time, in 10ths of sec
         10 16b little endian total enemies killed from start */
  uint8_t continues;  ///< Whether the game continues or was exited.
} SFG_game;

#define SFG_SAVE_TOTAL_TIME (SFG_game.save[6] + SFG_game.save[7] * 256 + \
  SFG_game.save[8] * 65536 + SFG_game.save[9] * 4294967296)

/**
  Stores player state.
*/
struct
{
  RCL_Camera camera;
  int8_t squarePosition[2];
  RCL_Vector2D direction;
  RCL_Unit verticalSpeed;
  RCL_Unit previousVerticalSpeed;  /**< Vertical speed in previous frame, needed
                                   for determining whether player is in the
                                   air. */
  uint16_t headBobFrame;
  uint8_t  weapon;                 ///< currently selected weapon
  uint8_t  health;
  uint32_t weaponCooldownFrames;   ///< frames left for weapon cooldown
  uint32_t lastHurtFrame;
  uint32_t lastItemTakenFrame;
  uint8_t  ammo[SFG_AMMO_TOTAL];
  uint8_t  cards;                  /**< Lowest 3 bits say which access cards
                                   have been taken, the next 3 bits say
                                   which cards should be blinking in the HUD,
                                   the last 2 bits are a blink reset counter. */
  uint8_t  justTeleported;
  int8_t   previousWeaponDirection; ///< Direction (+/0/-) of previous weapon.
} SFG_player;

/**
  Stores the current level and helper precomputed values for better performance.
*/
struct
{
  const SFG_Level *levelPointer;
  uint8_t levelNumber;
  const uint8_t* textures[7];    ///< textures the level is using
  uint32_t timeStart;
  uint32_t frameStart;
  uint32_t completionTime10sOfS; ///< completion time in 10ths of second
  uint8_t floorColor;
  uint8_t ceilingColor;

  SFG_DoorRecord doorRecords[SFG_MAX_DOORS];
  uint8_t doorRecordCount;
  uint8_t checkedDoorIndex; ///< Says which door are currently being checked.

  SFG_ItemRecord itemRecords[SFG_MAX_ITEMS]; ///< Holds level items.
  uint8_t itemRecordCount;
  uint8_t checkedItemIndex; ///< Same as checkedDoorIndex, but for items.

  SFG_MonsterRecord monsterRecords[SFG_MAX_MONSTERS];
  uint8_t monsterRecordCount;
  uint8_t checkedMonsterIndex; 

  SFG_ProjectileRecord projectileRecords[SFG_MAX_PROJECTILES];
  uint8_t projectileRecordCount;
  uint8_t bossCount;
  uint8_t monstersDead;
  uint8_t backgroundImage;
  uint8_t teleporterCount;
  uint16_t mapRevealMask; /**< Bits say which parts of the map have been
                               revealed. */
  uint8_t itemCollisionMap[(SFG_MAP_SIZE * SFG_MAP_SIZE) / 8];
                          /**< Bit array, for each map square says whether there
                               is a colliding item or not. */
} SFG_currentLevel;

#if SFG_ARDUINO
/**
  Copy of the current level that is stored in RAM. This is only done on Arduino
  because accessing it in program memory (PROGMEM) directly would be a pain.
  Because of this Arduino needs more RAM.
*/
SFG_Level SFG_ramLevel;
#endif

/**
  Helper function for accessing the itemCollisionMap bits.
*/
void SFG_getItemCollisionMapIndex(
  uint8_t x, uint8_t y, uint16_t *byte, uint8_t *bit)
{
  uint16_t index = y * SFG_MAP_SIZE + x;

  *byte = index / 8;
  *bit = index % 8;
}

void SFG_setItemCollisionMapBit(uint8_t x, uint8_t y, uint8_t value)
{
  uint16_t byte;
  uint8_t bit;

  SFG_getItemCollisionMapIndex(x,y,&byte,&bit);

  SFG_currentLevel.itemCollisionMap[byte] &= ~(0x01 << bit);
  SFG_currentLevel.itemCollisionMap[byte] |= (value & 0x01) << bit;
}

uint8_t SFG_getItemCollisionMapBit(uint8_t x, uint8_t y)
{
  uint16_t byte;
  uint8_t bit;

  SFG_getItemCollisionMapIndex(x,y,&byte,&bit);
  return (SFG_currentLevel.itemCollisionMap[byte] >> bit) & 0x01;
}

#if SFG_DITHERED_SHADOW
static const uint8_t SFG_ditheringPatterns[] =
{
  0,0,0,0,
  0,0,0,0,

  0,0,0,0,
  0,1,0,0,

  0,0,0,0,
  0,1,0,1,

  1,0,1,0,
  0,1,0,0,

  1,0,1,0,
  0,1,0,1,

  1,0,1,0,
  0,1,1,1,

  1,1,1,1,
  0,1,0,1,

  1,1,1,1,
  0,1,1,1,
 
  1,1,1,1,
  1,1,1,1
};
#endif

/*
  FUNCTIONS
===============================================================================
*/

/**
  Returns a pseudorandom byte. This is a very simple congruent generator, its
  parameters have been chosen so that each number (0-255) is included in the
  output exactly once!
*/
uint8_t SFG_random()
{
  SFG_game.currentRandom *= 13;
  SFG_game.currentRandom += 7;
  
  return SFG_game.currentRandom;
}

void SFG_playGameSound(uint8_t soundIndex, uint8_t volume)
{
  if (!(SFG_game.settings & 0x01))
    return;

  uint8_t mask = 0x01 << soundIndex;

  if (!(SFG_game.soundsPlayedThisFrame & mask))
  {
    SFG_playSound(soundIndex,volume);
    SFG_game.soundsPlayedThisFrame |= mask;
  }
}

/**
  Returns a damage value for specific attack type (SFG_WEAPON_FIRE_TYPE_...),
  with added randomness (so the values will differ). For explosion pass
  SFG_WEAPON_FIRE_TYPE_FIREBALL.
*/
uint8_t SFG_getDamageValue(uint8_t attackType)
{
  if (attackType >= SFG_WEAPON_FIRE_TYPES_TOTAL)
    return 0;

  int32_t value = SFG_attackDamageTable[attackType]; // has to be signed
  int32_t maxAdd = (value * SFG_DAMAGE_RANDOMNESS) / 256;

  value = value + (maxAdd / 2) - (SFG_random() * maxAdd / 256);

  if (value < 0)
    value = 0;

  return value;
}

/**
  Saves game data to persistent storage.
*/
void SFG_gameSave()
{
  if (SFG_game.saved == SFG_CANT_SAVE)
    return;

  SFG_LOG("saving game data");

  SFG_save(SFG_game.save);
}

/**
  Loads game data from persistent storage.
*/
void SFG_gameLoad()
{
  if (SFG_game.saved == SFG_CANT_SAVE)
    return;

  SFG_LOG("loading game data");

  uint8_t result = SFG_load(SFG_game.save);

  if (result == 0)
    SFG_game.saved = SFG_CANT_SAVE;
}

/**
  Returns ammo type for given weapon.
*/
uint8_t SFG_weaponAmmo(uint8_t weapon)
{
  if (weapon == SFG_WEAPON_KNIFE)
    return SFG_AMMO_NONE;
  if (weapon == SFG_WEAPON_MACHINE_GUN ||
      weapon == SFG_WEAPON_SHOTGUN)
    return SFG_AMMO_BULLETS;
  else if (weapon == SFG_WEAPON_ROCKET_LAUNCHER)
    return SFG_AMMO_ROCKETS;
  else
    return SFG_AMMO_PLASMA;
}

RCL_Unit SFG_taxicabDistance(
  RCL_Unit x0, RCL_Unit y0, RCL_Unit z0, RCL_Unit x1, RCL_Unit y1, RCL_Unit z1)
{
  return (RCL_abs(x0 - x1) + RCL_abs(y0 - y1) + RCL_abs(z0 - z1));
}

uint8_t SFG_isInActiveDistanceFromPlayer(RCL_Unit x, RCL_Unit y, RCL_Unit z)
{
  return SFG_taxicabDistance(
    x,y,z,SFG_player.camera.position.x,SFG_player.camera.position.y,
    SFG_player.camera.height) <= SFG_LEVEL_ELEMENT_ACTIVE_DISTANCE;
}

/**
  Function called when a level end to compute the stats etc.
*/
void SFG_levelEnds()
{
  SFG_currentLevel.completionTime10sOfS = (SFG_MS_PER_FRAME *
    (SFG_game.frame - SFG_currentLevel.frameStart)) / 100; 

  if (
   (SFG_player.health != 0) &&
   (SFG_currentLevel.levelNumber >= (SFG_game.save[0] & 0x0f)) &&
   ((SFG_currentLevel.levelNumber + 1) < SFG_NUMBER_OF_LEVELS))
  {
    SFG_game.save[0] = // save progress
      (SFG_game.save[0] & 0xf0) | (SFG_currentLevel.levelNumber + 1);

    SFG_gameSave();
  }

  SFG_currentLevel.monstersDead = 0;
       
  for (uint16_t i = 0; i < SFG_currentLevel.monsterRecordCount; ++i)
    if (SFG_currentLevel.monsterRecords[i].health == 0)
      SFG_currentLevel.monstersDead++;

  uint32_t totalTime = SFG_SAVE_TOTAL_TIME;

  if ((SFG_currentLevel.levelNumber == 0) || (totalTime != 0))
  {
    SFG_LOG("Updating save totals.");
  
    totalTime += SFG_currentLevel.completionTime10sOfS;

    for (uint8_t i = 0; i < 4; ++i)
    {
      SFG_game.save[6 + i] = totalTime % 256;
      totalTime /= 256;
    }

    SFG_game.save[10] += SFG_currentLevel.monstersDead % 256;
    SFG_game.save[11] += SFG_currentLevel.monstersDead / 256;
  }

  SFG_game.save[2] = SFG_player.health;
  SFG_game.save[3] = SFG_player.ammo[0];
  SFG_game.save[4] = SFG_player.ammo[1];
  SFG_game.save[5] = SFG_player.ammo[2];
}

static inline uint8_t SFG_RCLUnitToZBuffer(RCL_Unit x)
{
  x /= (RCL_UNITS_PER_SQUARE / 8);

  uint8_t okay = x < 256;

  return okay * (x + 1) - 1;
}

const uint8_t *SFG_getMonsterSprite(
  uint8_t monsterType, uint8_t state, uint8_t frame)
{
  uint8_t index = 
    state == SFG_MONSTER_STATE_DEAD ? 18 : 17;
  // ^ makes the compiled binary smaller compared to returning pointers directly

  if ((state != SFG_MONSTER_STATE_DYING) && (state != SFG_MONSTER_STATE_DEAD))
    switch (monsterType)
    {
      case SFG_LEVEL_ELEMENT_MONSTER_SPIDER:
        switch (state)
        {
          case SFG_MONSTER_STATE_ATTACKING: index = 1; break;
          case SFG_MONSTER_STATE_IDLE: index = 0; break;
          default: index = frame ? 0 : 2; break;
        }
        break;

      case SFG_LEVEL_ELEMENT_MONSTER_WARRIOR:
        index = state != SFG_MONSTER_STATE_ATTACKING ? 6 : 7;
        break;

      case SFG_LEVEL_ELEMENT_MONSTER_DESTROYER:
        switch (state)
        {
          case SFG_MONSTER_STATE_ATTACKING: index = 4; break;
          case SFG_MONSTER_STATE_IDLE: index = 3; break;
          default: index = frame ? 3 : 5; break;
        }
        break;

      case SFG_LEVEL_ELEMENT_MONSTER_PLASMABOT:
        index = state != SFG_MONSTER_STATE_ATTACKING ? 8 : 9;
        break;

      case SFG_LEVEL_ELEMENT_MONSTER_ENDER:
        switch (state)
        {
          case SFG_MONSTER_STATE_ATTACKING: index = 12; break;
          case SFG_MONSTER_STATE_IDLE: index = 10; break;
          default: index = frame ? 10 : 11; break;
        }
        break;

      case SFG_LEVEL_ELEMENT_MONSTER_TURRET:
        switch (state)
        {
          case SFG_MONSTER_STATE_ATTACKING: index = 15; break;
          case SFG_MONSTER_STATE_IDLE: index = 13; break;
          default: index = frame ? 13 : 14; break;
        }
        break;

      case SFG_LEVEL_ELEMENT_MONSTER_EXPLODER:
      default:
        index = 16; 
        break;
    }
  
  return SFG_monsterSprites + index * SFG_TEXTURE_STORE_SIZE;
}

/**
  Says whether given key is currently pressed (down). This should be preferred
  to SFG_keyPressed().
*/
uint8_t SFG_keyIsDown(uint8_t key)
{
  return SFG_game.keyStates[key] != 0;
}

/**
  Says whether given key has been pressed in the current frame.
*/
uint8_t SFG_keyJustPressed(uint8_t key)
{
  return (SFG_game.keyStates[key]) == 1;
}

/**
  Says whether a key is being repeated after being held for certain time.
*/
uint8_t SFG_keyRepeated(uint8_t key)
{
  return
    ((SFG_game.keyStates[key] >= SFG_KEY_REPEAT_DELAY_FRAMES) ||
    (SFG_game.keyStates[key] == 255)) &&
    (SFG_game.frame % SFG_KEY_REPEAT_PERIOD_FRAMES == 0);
}

uint16_t SFG_keyRegisters(uint8_t key)
{
  return SFG_keyJustPressed(key) || SFG_keyRepeated(key);
}

#if SFG_RESOLUTION_SCALEDOWN == 1
  #define SFG_setGamePixel SFG_setPixel
#else

/**
  Sets the game pixel (a pixel that can potentially be bigger than the screen
  pixel).
*/
static inline void SFG_setGamePixel(uint16_t x, uint16_t y, uint8_t colorIndex)
{
  uint16_t screenY = y * SFG_RESOLUTION_SCALEDOWN;
  uint16_t screenX = x * SFG_RESOLUTION_SCALEDOWN;

  for (uint16_t j = screenY; j < screenY + SFG_RESOLUTION_SCALEDOWN; ++j)
    for (uint16_t i = screenX; i < screenX + SFG_RESOLUTION_SCALEDOWN; ++i)
      SFG_setPixel(i,j,colorIndex);
}
#endif

void SFG_recomputePLayerDirection()
{
  SFG_player.camera.direction =
    RCL_wrap(SFG_player.camera.direction,RCL_UNITS_PER_SQUARE);

  SFG_player.direction = RCL_angleToDirection(SFG_player.camera.direction);

  SFG_player.direction.x =
    (SFG_player.direction.x * SFG_PLAYER_MOVE_UNITS_PER_FRAME)
    / RCL_UNITS_PER_SQUARE;

  SFG_player.direction.y =
    (SFG_player.direction.y * SFG_PLAYER_MOVE_UNITS_PER_FRAME)
    / RCL_UNITS_PER_SQUARE;

  SFG_game.backgroundScroll =
    ((SFG_player.camera.direction * 8) * SFG_GAME_RESOLUTION_Y)
    / RCL_UNITS_PER_SQUARE; 
}

#if SFG_BACKGROUND_BLUR != 0
uint8_t SFG_backgroundBlurIndex = 0;

static const int8_t SFG_backgroundBlurOffsets[8] =
  {
    0  * SFG_BACKGROUND_BLUR,
    16 * SFG_BACKGROUND_BLUR,
    7  * SFG_BACKGROUND_BLUR,
    17 * SFG_BACKGROUND_BLUR,
    1  * SFG_BACKGROUND_BLUR,
    4  * SFG_BACKGROUND_BLUR,
    15 * SFG_BACKGROUND_BLUR,
    9  * SFG_BACKGROUND_BLUR,
  };
#endif

static inline uint8_t SFG_fogValueDiminish(RCL_Unit depth)
{
  return depth / SFG_FOG_DIMINISH_STEP;
}

static inline uint8_t
  SFG_getTexelFull(uint8_t textureIndex,RCL_Unit u, RCL_Unit v)
{
  return
    SFG_getTexel(
      textureIndex != 255 ?
        SFG_currentLevel.textures[textureIndex] :
          (SFG_wallTextures + SFG_currentLevel.levelPointer->doorTextureIndex
          * SFG_TEXTURE_STORE_SIZE), u / 32, v / 32); 
}

static inline uint8_t SFG_getTexelAverage(uint8_t textureIndex)
{
  return
    textureIndex != 255 ?
      SFG_game.textureAverageColors[
        SFG_currentLevel.levelPointer->textureIndices[textureIndex]]
      :
      (
        SFG_game.textureAverageColors[
          SFG_currentLevel.levelPointer->doorTextureIndex]
        + 1 // to distinguish from normal walls
      );
}

void SFG_pixelFunc(RCL_PixelInfo *pixel)
{ 
  uint8_t color;
  uint8_t shadow = 0;

  if (pixel->isHorizon && pixel->depth > RCL_UNITS_PER_SQUARE * 16)
  {
    color = SFG_TRANSPARENT_COLOR;
  }
  else if (pixel->isWall)
  {
    uint8_t textureIndex =
      pixel->isFloor ?
      (
        ((pixel->hit.type & SFG_TILE_PROPERTY_MASK) != SFG_TILE_PROPERTY_DOOR) ?
        (pixel->hit.type & 0x7)
        :
        (
          (pixel->texCoords.y > RCL_UNITS_PER_SQUARE) ?
          (pixel->hit.type & 0x7) : 255
        )
      ):
      ((pixel->hit.type & 0x38) >> 3); 

#if SFG_TEXTURE_DISTANCE != 0
    RCL_Unit textureV = pixel->texCoords.y;

    if ((pixel->hit.type & SFG_TILE_PROPERTY_MASK) ==
      SFG_TILE_PROPERTY_SQUEEZER)
      textureV += pixel->wallHeight;
#endif

    color =
      textureIndex != SFG_TILE_TEXTURE_TRANSPARENT ?
      (
#if SFG_TEXTURE_DISTANCE >= 65535
      SFG_getTexelFull(textureIndex,pixel->texCoords.x,textureV)
#elif SFG_TEXTURE_DISTANCE == 0 
      SFG_getTexelAverage(textureIndex)
#else
      pixel->depth <= SFG_TEXTURE_DISTANCE ?
        SFG_getTexelFull(textureIndex,pixel->texCoords.x,textureV) :
        SFG_getTexelAverage(textureIndex)
#endif
      )
      :
      SFG_TRANSPARENT_COLOR;

    shadow = pixel->hit.direction >> 1;
  }
  else
  {
    color = pixel->isFloor ?
      (SFG_currentLevel.floorColor) : 
      (pixel->height < SFG_CEILING_MAX_HEIGHT ?
         SFG_currentLevel.ceilingColor : SFG_TRANSPARENT_COLOR);
  }

  if (color != SFG_TRANSPARENT_COLOR)
  {
#if SFG_DITHERED_SHADOW
    uint8_t fogShadow = (pixel->depth * 8) / SFG_FOG_DIMINISH_STEP;

    uint8_t fogShadowPart = fogShadow & 0x07;

    fogShadow /= 8;

    uint8_t xMod4 = pixel->position.x & 0x03;
    uint8_t yMod2 = pixel->position.y & 0x01;

    shadow +=
      fogShadow + SFG_ditheringPatterns[fogShadowPart * 8 + yMod2 * 4 + xMod4];
#else
    shadow += SFG_fogValueDiminish(pixel->depth);
#endif

#if SFG_ENABLE_FOG
    color = palette_minusValue(color,shadow);
#endif
  }
  else
  {
#if SFG_DRAW_LEVEL_BACKGROUND
    color = SFG_getTexel(SFG_backgroundImages + 
        SFG_currentLevel.backgroundImage * SFG_TEXTURE_STORE_SIZE,
      SFG_game.backgroundScaleMap[((pixel->position.x 
  #if SFG_BACKGROUND_BLUR != 0
        + SFG_backgroundBlurOffsets[SFG_backgroundBlurIndex]
  #endif
        ) * SFG_RAYCASTING_SUBSAMPLE + SFG_game.backgroundScroll) % SFG_GAME_RESOLUTION_Y], 
      (SFG_game.backgroundScaleMap[(pixel->position.y          // ^ TODO: get rid of mod?
  #if SFG_BACKGROUND_BLUR != 0
        + SFG_backgroundBlurOffsets[SFG_backgroundBlurIndex + 1]
  #endif
        ) % SFG_GAME_RESOLUTION_Y])                                               
      );

  #if SFG_BACKGROUND_BLUR != 0
      SFG_backgroundBlurIndex = (SFG_backgroundBlurIndex + 1) % 8;
  #endif
#else
    color = 1;
#endif
  }

#if SFG_RAYCASTING_SUBSAMPLE == 1
  // the other version will probably get optimized to this, but just in case
  SFG_setGamePixel(pixel->position.x,pixel->position.y,color);
#else
  RCL_Unit screenX = pixel->position.x * SFG_RAYCASTING_SUBSAMPLE;

  for (int_fast8_t i = 0; i < SFG_RAYCASTING_SUBSAMPLE; ++i)
  {
    SFG_setGamePixel(screenX,pixel->position.y,color);
    screenX++;
  }
#endif
}

/**
  Draws image on screen, with transparency. This is faster than sprite drawing.
  For performance sake drawing near screen edges is not pixel perfect.
*/
void SFG_blitImage(
  const uint8_t *image,
  int16_t posX,
  int16_t posY,
  uint8_t scale)
{
  if (scale == 0)
    return;
 
  uint16_t x0 = posX,
           x1,
           y0 = posY, 
           y1;
 
  uint8_t u0 = 0, v0 = 0;

  if (posX < 0)
  {
    x0 = 0;
    u0 = (-1 * posX) / scale;
  }

  posX += scale * SFG_TEXTURE_SIZE;

  uint16_t limitX = SFG_GAME_RESOLUTION_X - scale;
  uint16_t limitY = SFG_GAME_RESOLUTION_Y - scale;

  x1 = posX >= 0 ?
       (posX <= limitX ? posX : limitX)
       : 0;

  if (x1 >= SFG_GAME_RESOLUTION_X)
    x1 = SFG_GAME_RESOLUTION_X - 1;

  if (posY < 0)
  {
    y0 = 0;
    v0 = (-1 * posY) / scale;
  }

  posY += scale * SFG_TEXTURE_SIZE;

  y1 = posY >= 0 ? (posY <= limitY ? posY : limitY) : 0;

  if (y1 >= SFG_GAME_RESOLUTION_Y)
    y1 = SFG_GAME_RESOLUTION_Y - 1;

  uint8_t v = v0;

  for (uint16_t y = y0; y < y1; y += scale)
  {
    uint8_t u = u0;

    for (uint16_t x = x0; x < x1; x += scale)
    {
      uint8_t color = SFG_getTexel(image,u,v);

      if (color != SFG_TRANSPARENT_COLOR)
      {
        uint16_t sY = y;

        for (uint8_t j = 0; j < scale; ++j)
        {
          uint16_t sX = x;

          for (uint8_t i = 0; i < scale; ++i)
          {
            SFG_setGamePixel(sX,sY,color);
            sX++;
          }
          
          sY++;
        }
      }
      u++;
    }
    v++;
  }
}

void SFG_drawScaledSprite(
  const uint8_t *image,
  int16_t centerX,
  int16_t centerY,
  int16_t size,
  uint8_t minusValue,
  RCL_Unit distance)
{
  if (size == 0)
    return;

  if (size > SFG_MAX_SPRITE_SIZE)
    size = SFG_MAX_SPRITE_SIZE;

  uint16_t halfSize = size / 2;

  int16_t topLeftX = centerX - halfSize;
  int16_t topLeftY = centerY - halfSize; 

  int16_t x0, u0;

  if (topLeftX < 0)
  {
    u0 = -1 * topLeftX;
    x0 = 0;
  }
  else
  {
    u0 = 0;
    x0 = topLeftX;
  }

  int16_t x1 = topLeftX + size - 1;

  if (x1 >= SFG_GAME_RESOLUTION_X)
    x1 = SFG_GAME_RESOLUTION_X - 1;

  int16_t y0, v0;

  if (topLeftY < 0)
  {
    v0 = -1 * topLeftY;
    y0 = 0;
  }
  else
  {
    v0 = 0;
    y0 = topLeftY;
  }

  int16_t y1 = topLeftY + size - 1;

  if (y1 >= SFG_GAME_RESOLUTION_Y)
    y1 = SFG_GAME_RESOLUTION_Y - 1;

  if ((x0 > x1) || (y0 > y1) || (u0 >= size) || (v0 >= size)) // outside screen?
    return; 

  int16_t u1 = u0 + (x1 - x0);
  int16_t v1 = v0 + (y1 - y0);

  // precompute sampling positions:

  int16_t uMin = RCL_min(u0,u1);
  int16_t vMin = RCL_min(v0,v1);
  int16_t uMax = RCL_max(u0,u1);
  int16_t vMax = RCL_max(v0,v1);

  int16_t precompFrom = RCL_min(uMin,vMin);
  int16_t precompTo = RCL_max(uMax,vMax);

  precompFrom = RCL_max(0,precompFrom);
  precompTo = RCL_min(SFG_MAX_SPRITE_SIZE - 1,precompTo);

  #define PRECOMP_SCALE 512

  int16_t precompStepScaled = ((SFG_TEXTURE_SIZE) * PRECOMP_SCALE) / size;
  int16_t precompPosScaled = precompFrom * precompStepScaled;

  for (int16_t i = precompFrom; i <= precompTo; ++i)
  {
    SFG_game.spriteSamplingPoints[i] = precompPosScaled / PRECOMP_SCALE;
    precompPosScaled += precompStepScaled;
  }

  #undef PRECOMP_SCALE

  uint8_t zDistance = SFG_RCLUnitToZBuffer(distance);

  for (int16_t x = x0, u = u0; x <= x1; ++x, ++u)
  {
    if (SFG_game.zBuffer[x] >= zDistance)
    {
      int8_t columnTransparent = 1;

      for (int16_t y = y0, v = v0; y <= y1; ++y, ++v)
      {
        uint8_t color =
          SFG_getTexel(image,SFG_game.spriteSamplingPoints[u],
            SFG_game.spriteSamplingPoints[v]);

        if (color != SFG_TRANSPARENT_COLOR)
        {
#if SFG_DIMINISH_SPRITES
          color = palette_minusValue(color,minusValue);
#endif 
          columnTransparent = 0;

          SFG_setGamePixel(x,y,color);
        }
      }

      if (!columnTransparent)
        SFG_game.zBuffer[x] = zDistance;
    }
  }
}

RCL_Unit SFG_texturesAt(int16_t x, int16_t y)
{
  uint8_t p;

  SFG_TileDefinition tile =
    SFG_getMapTile(SFG_currentLevel.levelPointer,x,y,&p);

  return
    SFG_TILE_FLOOR_TEXTURE(tile) | (SFG_TILE_CEILING_TEXTURE(tile) << 3) | p;
    // ^ store both textures (floor and ceiling) and properties in one number
}

RCL_Unit SFG_movingWallHeight
(
  RCL_Unit low,
  RCL_Unit high,
  uint32_t time    
)
{
  RCL_Unit height = RCL_nonZero(high - low);
  RCL_Unit halfHeight = height / 2;

  RCL_Unit sinArg =
    (time * ((SFG_MOVING_WALL_SPEED * RCL_UNITS_PER_SQUARE) / 1000)) / height;

  return
    low + halfHeight + (RCL_sin(sinArg) * halfHeight) / RCL_UNITS_PER_SQUARE;
}

RCL_Unit SFG_floorHeightAt(int16_t x, int16_t y)
{
  uint8_t properties;

  SFG_TileDefinition tile =
    SFG_getMapTile(SFG_currentLevel.levelPointer,x,y,&properties);

  RCL_Unit doorHeight = 0;

  if (properties == SFG_TILE_PROPERTY_DOOR)
  {
    for (uint8_t i = 0; i < SFG_currentLevel.doorRecordCount; ++i)
    {
      SFG_DoorRecord *door = &(SFG_currentLevel.doorRecords[i]);

      if ((door->coords[0] == x) && (door->coords[1] == y))
      {
        doorHeight = door->state & SFG_DOOR_VERTICAL_POSITION_MASK;

        doorHeight = doorHeight != (0xff & SFG_DOOR_VERTICAL_POSITION_MASK)    ? 
          doorHeight * SFG_DOOR_HEIGHT_STEP : RCL_UNITS_PER_SQUARE;

        break;
      }
    }
  }
  else if (properties == SFG_TILE_PROPERTY_ELEVATOR)
  {
    RCL_Unit height =
      SFG_TILE_FLOOR_HEIGHT(tile) * SFG_WALL_HEIGHT_STEP;

    return SFG_movingWallHeight(
      height,
      height + SFG_TILE_CEILING_HEIGHT(tile) * SFG_WALL_HEIGHT_STEP,
      SFG_game.frameTime - SFG_currentLevel.timeStart);
  }
 
  return SFG_TILE_FLOOR_HEIGHT(tile) * SFG_WALL_HEIGHT_STEP - doorHeight;
}

/**
  Like SFG_floorCollisionHeightAt, but takes into account colliding items on
  the map, so the squares that have these items are higher. The former function
  is for rendering, this one is for collision checking.
*/
RCL_Unit SFG_floorCollisionHeightAt(int16_t x, int16_t y)
{
  return SFG_floorHeightAt(x,y) +
    SFG_getItemCollisionMapBit(x,y) * RCL_UNITS_PER_SQUARE; 
}

void SFG_getPlayerWeaponInfo(
  uint8_t *ammoType, uint8_t *projectileCount, uint8_t *canShoot)
{
  *ammoType = SFG_weaponAmmo(SFG_player.weapon);

  *projectileCount = SFG_GET_WEAPON_PROJECTILE_COUNT(SFG_player.weapon);

#if SFG_INFINITE_AMMO
  *canShoot = 1;
#else
  *canShoot = 
    ((*ammoType == SFG_AMMO_NONE) || 
     (SFG_player.ammo[*ammoType] >= *projectileCount) ||
     (SFG_game.cheatState & 0x80));
#endif
}

void SFG_playerRotateWeapon(uint8_t next)
{
  uint8_t initialWeapon = SFG_player.weapon;
  int8_t increment = next ? 1 : -1;

  while (1)
  {
    SFG_player.weapon =
      (SFG_WEAPONS_TOTAL + SFG_player.weapon + increment) % SFG_WEAPONS_TOTAL;

    if (SFG_player.weapon == initialWeapon)
      break;

    uint8_t ammo, projectileCount, canShoot;

    SFG_getPlayerWeaponInfo(&ammo,&projectileCount,&canShoot);
 
    if (canShoot)
      break;
  }
}

void SFG_initPlayer()
{
  RCL_initCamera(&SFG_player.camera);

  SFG_player.camera.resolution.x =
    SFG_GAME_RESOLUTION_X / SFG_RAYCASTING_SUBSAMPLE;

  SFG_player.camera.resolution.y = SFG_GAME_RESOLUTION_Y - SFG_HUD_BAR_HEIGHT;

  SFG_player.camera.position.x = RCL_UNITS_PER_SQUARE / 2 +
    SFG_currentLevel.levelPointer->playerStart[0] *  RCL_UNITS_PER_SQUARE;

  SFG_player.camera.position.y = RCL_UNITS_PER_SQUARE / 2 +
    SFG_currentLevel.levelPointer->playerStart[1] *  RCL_UNITS_PER_SQUARE;

  SFG_player.squarePosition[0] =
    SFG_player.camera.position.x / RCL_UNITS_PER_SQUARE;

  SFG_player.squarePosition[1] =
    SFG_player.camera.position.y / RCL_UNITS_PER_SQUARE;
  
  SFG_player.camera.height = SFG_floorHeightAt( 
      SFG_currentLevel.levelPointer->playerStart[0],
      SFG_currentLevel.levelPointer->playerStart[1]) +
      RCL_CAMERA_COLL_HEIGHT_BELOW;

  SFG_player.camera.direction = SFG_currentLevel.levelPointer->playerStart[2] *
    (RCL_UNITS_PER_SQUARE / 256);

  SFG_recomputePLayerDirection(); 

  SFG_player.previousVerticalSpeed = 0;

  SFG_player.headBobFrame = 0;

  SFG_player.weapon = SFG_WEAPON_KNIFE;

  SFG_player.weaponCooldownFrames = 0;
  SFG_player.lastHurtFrame = SFG_game.frame;
  SFG_player.lastItemTakenFrame = SFG_game.frame;

  SFG_player.health = SFG_PLAYER_START_HEALTH;

  SFG_player.previousWeaponDirection = 0;

  SFG_player.cards = 
#if SFG_UNLOCK_DOOR
  0x07;
#else
  0;
#endif

  SFG_player.justTeleported = 0;

  for (uint8_t i = 0; i < SFG_AMMO_TOTAL; ++i)
    SFG_player.ammo[i] = 0;
}

RCL_Unit SFG_ceilingHeightAt(int16_t x, int16_t y)
{
  uint8_t properties;
  SFG_TileDefinition tile =
    SFG_getMapTile(SFG_currentLevel.levelPointer,x,y,&properties);

  if (properties == SFG_TILE_PROPERTY_ELEVATOR)
    return SFG_CEILING_MAX_HEIGHT;

  uint8_t height = SFG_TILE_CEILING_HEIGHT(tile);

  return properties != SFG_TILE_PROPERTY_SQUEEZER ?
    (
      height != SFG_TILE_CEILING_MAX_HEIGHT ?
      ((SFG_TILE_FLOOR_HEIGHT(tile) + height) * SFG_WALL_HEIGHT_STEP) :
      SFG_CEILING_MAX_HEIGHT
    ) :
    SFG_movingWallHeight(
      SFG_TILE_FLOOR_HEIGHT(tile) * SFG_WALL_HEIGHT_STEP,
      (SFG_TILE_CEILING_HEIGHT(tile) + SFG_TILE_FLOOR_HEIGHT(tile))
         * SFG_WALL_HEIGHT_STEP,
      SFG_game.frameTime - SFG_currentLevel.timeStart);
}

/**
  Gets sprite (image and sprite size) for given item.
*/
void SFG_getItemSprite(
  uint8_t elementType, const uint8_t **sprite, uint8_t *spriteSize)
{
  *spriteSize = 0;
  *sprite = SFG_itemSprites + (elementType - 1) * SFG_TEXTURE_STORE_SIZE;

  switch (elementType)
  {
    case SFG_LEVEL_ELEMENT_TREE:
    case SFG_LEVEL_ELEMENT_RUIN:
    case SFG_LEVEL_ELEMENT_LAMP:
    case SFG_LEVEL_ELEMENT_TELEPORTER:
      *spriteSize = 2;
      break;

    case SFG_LEVEL_ELEMENT_TERMINAL:
      *spriteSize = 1;
      break;

    case SFG_LEVEL_ELEMENT_FINISH:
    case SFG_LEVEL_ELEMENT_COLUMN:
      *spriteSize = 3;
      break;

    case SFG_LEVEL_ELEMENT_CARD0:
    case SFG_LEVEL_ELEMENT_CARD1:
    case SFG_LEVEL_ELEMENT_CARD2:
      *sprite = SFG_itemSprites + 
        (SFG_LEVEL_ELEMENT_CARD0 - 1) * SFG_TEXTURE_STORE_SIZE;
      break;

    case SFG_LEVEL_ELEMENT_BLOCKER:
      *sprite = 0;
      break;

    default:
      break;
  }
}

/**
  Says whether given item type collides, i.e. stops player from moving.
*/
uint8_t SFG_itemCollides(uint8_t elementType)
{
  return 
    elementType == SFG_LEVEL_ELEMENT_BARREL ||
    elementType == SFG_LEVEL_ELEMENT_TREE ||
    elementType == SFG_LEVEL_ELEMENT_TERMINAL ||
    elementType == SFG_LEVEL_ELEMENT_COLUMN ||
    elementType == SFG_LEVEL_ELEMENT_RUIN ||
    elementType == SFG_LEVEL_ELEMENT_BLOCKER ||
    elementType == SFG_LEVEL_ELEMENT_LAMP;
}

void SFG_setGameState(uint8_t state)
{
  SFG_LOG("changing game state");
  SFG_game.state = state;
  SFG_game.stateTime = 0;
}

void SFG_setAndInitLevel(uint8_t levelNumber)
{
  SFG_LOG("setting and initializing level");

  const SFG_Level *level;

#if SFG_AVR
  memcpy_P(&SFG_ramLevel,SFG_levels[levelNumber],sizeof(SFG_Level));
  level = &SFG_ramLevel;
#else
  level = SFG_levels[levelNumber];
#endif

  SFG_game.currentRandom = 0;

  if (SFG_game.saved != SFG_CANT_SAVE)
    SFG_game.saved = 0;

  SFG_currentLevel.levelNumber = levelNumber;
  SFG_currentLevel.monstersDead = 0;
  SFG_currentLevel.backgroundImage = level->backgroundImage;
  SFG_currentLevel.levelPointer = level;
  SFG_currentLevel.bossCount = 0;
  SFG_currentLevel.floorColor = level->floorColor;
  SFG_currentLevel.ceilingColor = level->ceilingColor;
  SFG_currentLevel.completionTime10sOfS = 0;

  for (uint8_t i = 0; i < 7; ++i)
    SFG_currentLevel.textures[i] =
      SFG_wallTextures + level->textureIndices[i] * SFG_TEXTURE_STORE_SIZE;

  SFG_LOG("initializing doors");

  SFG_currentLevel.checkedDoorIndex = 0;
  SFG_currentLevel.doorRecordCount = 0;
  SFG_currentLevel.projectileRecordCount = 0;
  SFG_currentLevel.teleporterCount = 0;
  SFG_currentLevel.mapRevealMask = 
#if SFG_REVEAL_MAP
    0xffff;
#else
    0;
#endif

  for (uint8_t j = 0; j < SFG_MAP_SIZE; ++j)
  {
    for (uint8_t i = 0; i < SFG_MAP_SIZE; ++i)
    {
      uint8_t properties;
     
      SFG_getMapTile(level,i,j,&properties);

      if ((properties & SFG_TILE_PROPERTY_MASK) == SFG_TILE_PROPERTY_DOOR)
      {
        SFG_DoorRecord *d =
          &(SFG_currentLevel.doorRecords[SFG_currentLevel.doorRecordCount]);

        d->coords[0] = i;
        d->coords[1] = j;
        d->state = 0x00;

        SFG_currentLevel.doorRecordCount++;
      }

      if (SFG_currentLevel.doorRecordCount >= SFG_MAX_DOORS)
      {
        SFG_LOG("warning: too many doors!");
        break;
      }
    }

    if (SFG_currentLevel.doorRecordCount >= SFG_MAX_DOORS)
      break;
  }

  SFG_LOG("initializing level elements");

  SFG_currentLevel.itemRecordCount = 0;
  SFG_currentLevel.checkedItemIndex = 0;

  SFG_currentLevel.monsterRecordCount = 0;
  SFG_currentLevel.checkedMonsterIndex = 0;

  SFG_MonsterRecord *monster;

  for (uint16_t i = 0; i < ((SFG_MAP_SIZE * SFG_MAP_SIZE) / 8); ++i)
    SFG_currentLevel.itemCollisionMap[i] = 0;

  for (uint8_t i = 0; i < SFG_MAX_LEVEL_ELEMENTS; ++i)
  {
    const SFG_LevelElement *e = &(SFG_currentLevel.levelPointer->elements[i]);

    if (e->type != SFG_LEVEL_ELEMENT_NONE)
    {
      if (SFG_LEVEL_ELEMENT_TYPE_IS_MOSTER(e->type))
      {
        monster =
        &(SFG_currentLevel.monsterRecords[SFG_currentLevel.monsterRecordCount]);

        monster->stateType = (SFG_MONSTER_TYPE_TO_INDEX(e->type) << 4)
          | SFG_MONSTER_STATE_INACTIVE;
 
        monster->health =
          SFG_GET_MONSTER_MAX_HEALTH(SFG_MONSTER_TYPE_TO_INDEX(e->type));

        monster->coords[0] = e->coords[0] * 4 + 2;
        monster->coords[1] = e->coords[1] * 4 + 2;

        SFG_currentLevel.monsterRecordCount++;

        if (e->type == SFG_LEVEL_ELEMENT_MONSTER_ENDER)
          SFG_currentLevel.bossCount++;
      }
      else if ((e->type < SFG_LEVEL_ELEMENT_LOCK0) ||
        (e->type > SFG_LEVEL_ELEMENT_LOCK2))
      {
        SFG_currentLevel.itemRecords[SFG_currentLevel.itemRecordCount] = i;
        SFG_currentLevel.itemRecordCount++;

        if (e->type == SFG_LEVEL_ELEMENT_TELEPORTER)
          SFG_currentLevel.teleporterCount++;

        if (SFG_itemCollides(e->type))
          SFG_setItemCollisionMapBit(e->coords[0],e->coords[1],1);
      }
      else
      {
        uint8_t properties;
     
        SFG_getMapTile(level,e->coords[0],e->coords[1],&properties);

        if ((properties & SFG_TILE_PROPERTY_MASK) == SFG_TILE_PROPERTY_DOOR)
        {
          // find the door record and lock the door:
          for (uint16_t j = 0; j < SFG_currentLevel.doorRecordCount; ++j)
          {
            SFG_DoorRecord *d = &(SFG_currentLevel.doorRecords[j]);

            if (d->coords[0] == e->coords[0] && d->coords[1] == e->coords[1])
            {
              d->state |= (e->type - SFG_LEVEL_ELEMENT_LOCK0 + 1) << 6;
              break;
            }
          }
        }
        else
        {
          SFG_LOG("warning: lock not put on door tile!");
        }
      }
    }
  } 

  SFG_currentLevel.timeStart = SFG_game.frameTime; 
  SFG_currentLevel.frameStart = SFG_game.frame;

  SFG_game.spriteAnimationFrame = 0;

  SFG_initPlayer();
  SFG_setGameState(SFG_GAME_STATE_LEVEL_START);
  SFG_setMusic(SFG_MUSIC_NEXT);
  SFG_processEvent(SFG_EVENT_LEVEL_STARTS,levelNumber);
}

void SFG_createDefaultSaveData(uint8_t *memory)
{
  for (uint16_t i = 0; i < SFG_SAVE_SIZE; ++i)
    memory[i] = 0;
    
  memory[1] = SFG_DEFAULT_SETTINGS;
}

void SFG_init()
{
  SFG_LOG("initializing game")

  SFG_game.frame = 0;
  SFG_game.frameTime = 0;
  SFG_game.currentRandom = 0;
  SFG_game.cheatState = 0;
  SFG_game.continues = 1;

  RCL_initRayConstraints(&SFG_game.rayConstraints);
  SFG_game.rayConstraints.maxHits = SFG_RAYCASTING_MAX_HITS;
  SFG_game.rayConstraints.maxSteps = SFG_RAYCASTING_MAX_STEPS;

  RCL_initRayConstraints(&SFG_game.visibilityRayConstraints);
  SFG_game.visibilityRayConstraints.maxHits = 
    SFG_RAYCASTING_VISIBILITY_MAX_HITS;
  SFG_game.visibilityRayConstraints.maxSteps =
    SFG_RAYCASTING_VISIBILITY_MAX_STEPS;

  SFG_game.antiSpam = 0;

  SFG_LOG("computing average texture colors")

  for (uint8_t i = 0; i < SFG_WALL_TEXTURE_COUNT; ++i)
  {
    /** For simplicity, we round colors so that there is only 64 of them, and
      we count them up to 256. */

    uint8_t colorHistogram[64];

    for (uint8_t j = 0; j < 64; ++j)
      colorHistogram[j] = 0;

    for (uint8_t y = 0; y < SFG_TEXTURE_SIZE; ++y)
      for (uint8_t x = 0; x < SFG_TEXTURE_SIZE; ++x)
      {
        uint8_t color =
          SFG_getTexel(SFG_wallTextures + i * SFG_TEXTURE_STORE_SIZE,x,y) / 4;

        colorHistogram[color] += 1;

        if (colorHistogram[color] == 255)
          break;
      }

    uint8_t maxIndex = 0;

    for (uint8_t j = 0; j < 64; ++j)
    {
      if (colorHistogram[j] == 255)
      {
        maxIndex = j;
        break;
      }

      if (colorHistogram[j] > colorHistogram[maxIndex])
        maxIndex = j;
    }

    SFG_game.textureAverageColors[i] = maxIndex * 4;
  }

  for (uint16_t i = 0; i < SFG_GAME_RESOLUTION_Y; ++i)
    SFG_game.backgroundScaleMap[i] =
      (i * SFG_TEXTURE_SIZE) / SFG_GAME_RESOLUTION_Y;

  for (uint8_t i = 0; i < SFG_KEY_COUNT; ++i)
    SFG_game.keyStates[i] = 0;

  SFG_currentLevel.levelPointer = 0;
  SFG_game.backgroundScroll = 0;
  SFG_game.selectedMenuItem = 0;
  SFG_game.selectedLevel = 0;
  SFG_game.settings = SFG_DEFAULT_SETTINGS;
  SFG_game.saved = 0;

  SFG_createDefaultSaveData(SFG_game.save);

  SFG_gameLoad(); // attempt to load settings

  if (SFG_game.saved != SFG_CANT_SAVE)
  {
    SFG_LOG("settings loaded");
    SFG_game.settings = SFG_game.save[1]; 
  }
  else
  {
    SFG_LOG("saving/loading not possible");
    SFG_game.save[0] = SFG_NUMBER_OF_LEVELS - 1; // revealed all levels
  }

#if SFG_ALL_LEVELS
  SFG_game.save[0] = SFG_NUMBER_OF_LEVELS - 1;
#endif

  SFG_setMusic((SFG_game.settings & 0x02) ?
    SFG_MUSIC_TURN_ON : SFG_MUSIC_TURN_OFF);

#if SFG_START_LEVEL == 0
  SFG_setGameState(SFG_GAME_STATE_INIT);
#else
  SFG_setAndInitLevel(SFG_START_LEVEL - 1);
#endif
}

/**
  Adds new projectile to the current level, returns 1 if added, 0 if not (max
  count reached).
*/
uint8_t SFG_createProjectile(SFG_ProjectileRecord projectile)
{
  if (SFG_currentLevel.projectileRecordCount >= SFG_MAX_PROJECTILES)
    return 0; 

  SFG_currentLevel.projectileRecords[SFG_currentLevel.projectileRecordCount] =
    projectile;
  
  SFG_currentLevel.projectileRecordCount++;

  return 1;
}

/**
  Launches projectile of given type from given position in given direction
  (has to be normalized), with given offset (so as to not collide with the
  shooting entity). Returns the same value as SFG_createProjectile.
*/
uint8_t SFG_launchProjectile(
  uint8_t type,   
  RCL_Vector2D shootFrom,
  RCL_Unit shootFromHeight,
  RCL_Vector2D direction,
  RCL_Unit verticalSpeed,
  RCL_Unit offsetDistance
  )
{
  if (type == SFG_PROJECTILE_NONE)
    return 0;

  SFG_ProjectileRecord p;

  p.type = type;
  p.doubleFramesToLive = 
    RCL_nonZero(SFG_GET_PROJECTILE_FRAMES_TO_LIVE(type) / 2);
  
  p.position[0] =
    shootFrom.x + (direction.x * offsetDistance) / RCL_UNITS_PER_SQUARE;
  p.position[1] = 
    shootFrom.y + (direction.y * offsetDistance) / RCL_UNITS_PER_SQUARE; 
  p.position[2] = shootFromHeight;

  p.direction[0] = 
    (direction.x * SFG_GET_PROJECTILE_SPEED_UPS(type)) / RCL_UNITS_PER_SQUARE;
  p.direction[1] =
    (direction.y * SFG_GET_PROJECTILE_SPEED_UPS(type)) / RCL_UNITS_PER_SQUARE;
  p.direction[2] = verticalSpeed;

  return SFG_createProjectile(p);
}

/**
  Pushes a given position away from a center by given distance, with collisions.
  Returns 1 if push away happened, otherwise 0.
*/
uint8_t SFG_pushAway(
  RCL_Unit pos[3],
  RCL_Unit centerX,
  RCL_Unit centerY,
  RCL_Unit preferredDirection,
  RCL_Unit distance)
{
  RCL_Vector2D fromCenter;

  fromCenter.x = pos[0] - centerX;
  fromCenter.y = pos[1] - centerY;

  RCL_Unit l = RCL_len(fromCenter);

  if (l < 128)
  {
    fromCenter = RCL_angleToDirection(preferredDirection);
    l = RCL_UNITS_PER_SQUARE;
  }

  RCL_Vector2D offset;

  offset.x = (fromCenter.x * distance) / l; 
  offset.y = (fromCenter.y * distance) / l; 

  RCL_Camera c;

  RCL_initCamera(&c);

  c.position.x = pos[0];
  c.position.y = pos[1];
  c.height = pos[2];

  RCL_moveCameraWithCollision(&c,offset,0,SFG_floorCollisionHeightAt,
    SFG_ceilingHeightAt,1,1);

  pos[0] = c.position.x;
  pos[1] = c.position.y;
  pos[2] = c.height;

  return 1;
}

uint8_t SFG_pushPlayerAway(
  RCL_Unit centerX, RCL_Unit centerY, RCL_Unit distance)
{
  RCL_Unit p[3];

  p[0] = SFG_player.camera.position.x; 
  p[1] = SFG_player.camera.position.y; 
  p[2] = SFG_player.camera.height; 

  uint8_t result = SFG_pushAway(p,centerX,centerY,
    SFG_player.camera.direction - RCL_UNITS_PER_SQUARE / 2,
    distance);

  SFG_player.camera.position.x = p[0]; 
  SFG_player.camera.position.y = p[1]; 
  SFG_player.camera.height = p[2];

  return result;
}

/**
  Helper function to resolve collision with level element. The function supposes
  the collision already does happen and only resolves it. Returns adjusted move
  offset.
*/
RCL_Vector2D SFG_resolveCollisionWithElement(
  RCL_Vector2D position, RCL_Vector2D moveOffset, RCL_Vector2D elementPos)
{
  RCL_Unit dx = RCL_abs(elementPos.x - position.x);
  RCL_Unit dy = RCL_abs(elementPos.y - position.y);

  if (dx > dy)
  {
    // colliding from left/right

    if ((moveOffset.x > 0) == (position.x < elementPos.x))
      moveOffset.x = 0;
      // ^ only stop if heading towards element, to avoid getting stuck
  }
  else
  {
    // colliding from up/down

    if ((moveOffset.y > 0) == (position.y < elementPos.y))
      moveOffset.y = 0;
  }

  return moveOffset;  
}

/**
  Adds or substracts player's health during the playing state due to taking
  damage (negative value) or getting healed. Negative value will be corrected by
  SFG_PLAYER_DAMAGE_MULTIPLIER in this function.
*/
void SFG_playerChangeHealth(int8_t healthAdd)
{          
  if (SFG_game.state != SFG_GAME_STATE_PLAYING)
    return; // don't hurt during level starting phase

  if (healthAdd < 0)
  {
    if (SFG_game.cheatState & 0x80) // invincible?
      return;

    healthAdd =
      RCL_min(-1,
      (((RCL_Unit) healthAdd) * SFG_PLAYER_DAMAGE_MULTIPLIER) /
      RCL_UNITS_PER_SQUARE);

    SFG_player.lastHurtFrame = SFG_game.frame;
    SFG_processEvent(SFG_EVENT_VIBRATE,0);
    SFG_processEvent(SFG_EVENT_PLAYER_HURT,-1 * healthAdd);
  }

  int16_t health = SFG_player.health;
  health += healthAdd;
  health = RCL_clamp(health,0,SFG_PLAYER_MAX_HEALTH);

  SFG_player.health = health;
}

uint8_t SFG_distantSoundVolume(RCL_Unit x, RCL_Unit y, RCL_Unit z)
{
  RCL_Unit distance = SFG_taxicabDistance(x,y,z,
                        SFG_player.camera.position.x,
                        SFG_player.camera.position.y,
                        SFG_player.camera.height);

  if (distance >= SFG_SFX_MAX_DISTANCE)
    return 0;

  uint32_t result = 255 - (distance * 255) / SFG_SFX_MAX_DISTANCE;

  return (result * result) / 256;
}

/**
  Same as SFG_playerChangeHealth but for monsters.
*/
void SFG_monsterChangeHealth(SFG_MonsterRecord *monster, int8_t healthAdd)
{
  int16_t health = monster->health;

  health += healthAdd;
  health = RCL_clamp(health,0,255);
  monster->health = health;

  if (healthAdd < 0)
  {
    // play hurt sound
    
    uint8_t volume = SFG_distantSoundVolume( 
      SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]),
      SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]),
      SFG_floorHeightAt(
        SFG_MONSTER_COORD_TO_SQUARES(monster->coords[0]),
        SFG_MONSTER_COORD_TO_SQUARES(monster->coords[1])));
    
      SFG_playGameSound(5,volume);
    
    if (monster->health == 0)
      SFG_playGameSound(2,volume);
  }
}

void SFG_removeItem(uint8_t index)
{
  SFG_LOG("removing item");

  for (uint16_t j = index; j < SFG_currentLevel.itemRecordCount - 1; ++j)
    SFG_currentLevel.itemRecords[j] =
      SFG_currentLevel.itemRecords[j + 1];

  SFG_currentLevel.itemRecordCount--; 
}

/**
  Checks a 3D point visibility from player's position (WITHOUT considering
  facing direction).
*/
static inline uint8_t SFG_spriteIsVisible(RCL_Vector2D pos, RCL_Unit height)
{
  return
    RCL_castRay3D(
      SFG_player.camera.position,
      SFG_player.camera.height,
      pos,
      height,
      SFG_floorHeightAt,
      SFG_ceilingHeightAt,
      SFG_game.visibilityRayConstraints
    ) == RCL_UNITS_PER_SQUARE;
}

RCL_Unit SFG_directionTangent(RCL_Unit dirX, RCL_Unit dirY, RCL_Unit dirZ)
{
  RCL_Vector2D v;

  v.x = dirX;
  v.y = dirY;

  return (dirZ * RCL_UNITS_PER_SQUARE) / RCL_len(v);
}

/**
  Returns a tangent in RCL_Unit of vertical autoaim, given current game state.
*/
RCL_Unit SFG_autoaimVertically()
{
  for (uint16_t i = 0; i < SFG_currentLevel.monsterRecordCount; ++i)
  {
    SFG_MonsterRecord m = SFG_currentLevel.monsterRecords[i];
    
    uint8_t state = SFG_MR_STATE(m);
 
    if (state == SFG_MONSTER_STATE_INACTIVE ||
        state == SFG_MONSTER_STATE_DEAD)
      continue;

    RCL_Vector2D worldPosition, toMonster;

    worldPosition.x = SFG_MONSTER_COORD_TO_RCL_UNITS(m.coords[0]);
    worldPosition.y = SFG_MONSTER_COORD_TO_RCL_UNITS(m.coords[1]);
    
    toMonster.x = worldPosition.x - SFG_player.camera.position.x;
    toMonster.y = worldPosition.y - SFG_player.camera.position.y;

    if (RCL_abs(
         RCL_vectorsAngleCos(SFG_player.direction,toMonster) 
         - RCL_UNITS_PER_SQUARE) < SFG_VERTICAL_AUTOAIM_ANGLE_THRESHOLD)
    {
      uint8_t spriteSize = SFG_GET_MONSTER_SPRITE_SIZE(
        SFG_MONSTER_TYPE_TO_INDEX(SFG_MR_TYPE(m)));
        
      RCL_Unit worldHeight = 
        SFG_floorHeightAt(
          SFG_MONSTER_COORD_TO_SQUARES(m.coords[0]),
          SFG_MONSTER_COORD_TO_SQUARES(m.coords[1]))
          + 
          SFG_SPRITE_SIZE_TO_HEIGHT_ABOVE_GROUND(spriteSize);
        
      if (SFG_spriteIsVisible(worldPosition,worldHeight))
        return SFG_directionTangent(toMonster.x,toMonster.y,
               worldHeight - (SFG_player.camera.height));
    }
  }

  return 0;
}

/**
  Helper function, returns a pointer to level element representing item with
  given index, but only if the item is active (otherwise 0 is returned).
*/
static inline const SFG_LevelElement *SFG_getActiveItemElement(uint8_t index)
{
  SFG_ItemRecord item = SFG_currentLevel.itemRecords[index];

  if ((item & SFG_ITEM_RECORD_ACTIVE_MASK) == 0)
    return 0;

  return &(SFG_currentLevel.levelPointer->elements[item &
           ~SFG_ITEM_RECORD_ACTIVE_MASK]);
}

static inline const SFG_LevelElement *SFG_getLevelElement(uint8_t index)
{
  SFG_ItemRecord item = SFG_currentLevel.itemRecords[index];

  return &(SFG_currentLevel.levelPointer->elements[item &
           ~SFG_ITEM_RECORD_ACTIVE_MASK]);
}
  
void SFG_createExplosion(RCL_Unit, RCL_Unit, RCL_Unit); // forward decl

void SFG_explodeBarrel(uint8_t itemIndex, RCL_Unit x, RCL_Unit y, RCL_Unit z)
{
  const SFG_LevelElement *e = SFG_getLevelElement(itemIndex);
  SFG_setItemCollisionMapBit(e->coords[0],e->coords[1],0);
  SFG_removeItem(itemIndex);
  SFG_createExplosion(x,y,z);
}

void SFG_createExplosion(RCL_Unit x, RCL_Unit y, RCL_Unit z)
{
  SFG_ProjectileRecord explosion;

  SFG_playGameSound(2,SFG_distantSoundVolume(x,y,z));
  SFG_processEvent(SFG_EVENT_EXPLOSION,0);

  explosion.type = SFG_PROJECTILE_EXPLOSION;

  explosion.position[0] = x;
  explosion.position[1] = y;
  explosion.position[2] = z;

  explosion.direction[0] = 0;
  explosion.direction[1] = 0;
  explosion.direction[2] = 0;

  explosion.doubleFramesToLive = RCL_nonZero(
    SFG_GET_PROJECTILE_FRAMES_TO_LIVE(SFG_PROJECTILE_EXPLOSION) / 2);

  SFG_createProjectile(explosion);

  uint8_t damage = SFG_getDamageValue(SFG_WEAPON_FIRE_TYPE_FIREBALL);

  if (SFG_taxicabDistance(x,y,z,SFG_player.camera.position.x,
    SFG_player.camera.position.y,SFG_player.camera.height)
    <= SFG_EXPLOSION_RADIUS)
  {
    SFG_playerChangeHealth(-1 * damage);
    SFG_pushPlayerAway(x,y,SFG_EXPLOSION_PUSH_AWAY_DISTANCE);
  }

  for (uint16_t i = 0; i < SFG_currentLevel.monsterRecordCount; ++i)
  {
    SFG_MonsterRecord *monster = &(SFG_currentLevel.monsterRecords[i]);

    uint16_t state = SFG_MR_STATE(*monster); 

    if ((state == SFG_MONSTER_STATE_INACTIVE) ||
        (state == SFG_MONSTER_STATE_DEAD))
      continue; 

    RCL_Unit monsterHeight =
      SFG_floorHeightAt(
        SFG_MONSTER_COORD_TO_SQUARES(monster->coords[0]),
        SFG_MONSTER_COORD_TO_SQUARES(monster->coords[1]))
        + RCL_UNITS_PER_SQUARE / 2;

    if (SFG_taxicabDistance(
      SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]),
      SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]),monsterHeight,
      x,y,z) <= SFG_EXPLOSION_RADIUS)
    {
      SFG_monsterChangeHealth(monster,
        -1 * SFG_getDamageValue(SFG_WEAPON_FIRE_TYPE_FIREBALL));
    }
  }

  // explode nearby barrels

  if (damage >= SFG_BARREL_EXPLOSION_DAMAGE_THRESHOLD)
    for (uint16_t i = 0; i < SFG_currentLevel.itemRecordCount; ++i)
    {
      SFG_ItemRecord item = SFG_currentLevel.itemRecords[i];

      /* We DON'T check just active barrels but all, otherwise it looks weird
         that out of sight barrels in a line didn't explode.*/

      SFG_LevelElement element = SFG_ITEM_RECORD_LEVEL_ELEMENT(item);

      if (element.type != SFG_LEVEL_ELEMENT_BARREL)
        continue;

      RCL_Unit elementX =
        element.coords[0] * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2;

      RCL_Unit elementY =
        element.coords[1] * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2;

      RCL_Unit elementHeight =
        SFG_floorHeightAt(element.coords[0],element.coords[1]);

      if (SFG_taxicabDistance(
        x,y,z,elementX,elementY,elementHeight) <= SFG_EXPLOSION_RADIUS)
      {
        SFG_explodeBarrel(i,elementX,elementY,elementHeight);
        i--;
      }
    }
}

void SFG_createDust(RCL_Unit x, RCL_Unit y, RCL_Unit z)
{
  SFG_ProjectileRecord dust;

  dust.type = SFG_PROJECTILE_DUST;

  dust.position[0] = x;
  dust.position[1] = y;
  dust.position[2] = z;

  dust.direction[0] = 0;
  dust.direction[1] = 0;
  dust.direction[2] = 0;

  dust.doubleFramesToLive =
    RCL_nonZero(SFG_GET_PROJECTILE_FRAMES_TO_LIVE(SFG_PROJECTILE_DUST) / 2);

  SFG_createProjectile(dust);
}

void SFG_getMonsterWorldPosition(SFG_MonsterRecord *monster, RCL_Unit *x,
  RCL_Unit *y, RCL_Unit *z)
{
  *x = SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]);
  *y = SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]);
  *z = SFG_floorHeightAt(
         SFG_MONSTER_COORD_TO_SQUARES(monster->coords[0]),
         SFG_MONSTER_COORD_TO_SQUARES(monster->coords[1]))
       + RCL_UNITS_PER_SQUARE / 2;
}

void SFG_monsterPerformAI(SFG_MonsterRecord *monster)
{
  uint8_t state = SFG_MR_STATE(*monster);
  uint8_t type = SFG_MR_TYPE(*monster);
  uint8_t monsterNumber = SFG_MONSTER_TYPE_TO_INDEX(type);
  uint8_t attackType = SFG_GET_MONSTER_ATTACK_TYPE(monsterNumber);

  int8_t coordAdd[2];

  coordAdd[0] = 0;
  coordAdd[1] = 0;

  uint8_t notRanged =
    (attackType == SFG_MONSTER_ATTACK_MELEE) || 
    (attackType == SFG_MONSTER_ATTACK_EXPLODE); 

  uint8_t monsterSquare[2] =
    {
      SFG_MONSTER_COORD_TO_SQUARES(monster->coords[0]),
      SFG_MONSTER_COORD_TO_SQUARES(monster->coords[1])
    };

  RCL_Unit currentHeight =
    SFG_floorCollisionHeightAt(monsterSquare[0],monsterSquare[1]);

  if ( // ranged monsters: sometimes randomly attack
       !notRanged &&
       (SFG_random() < 
       SFG_GET_MONSTER_AGGRESSIVITY(SFG_MONSTER_TYPE_TO_INDEX(type)))
     )
  { 
    RCL_Vector2D pos;
    pos.x = SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]);
    pos.y = SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]);

    if (SFG_random() % 4 != 0 &&
      SFG_spriteIsVisible(pos,currentHeight + // only if player is visible
        SFG_SPRITE_SIZE_TO_HEIGHT_ABOVE_GROUND(
        SFG_GET_MONSTER_SPRITE_SIZE(
        SFG_MONSTER_TYPE_TO_INDEX(type)))))
    {
      // ranged attack
 
      state = SFG_MONSTER_STATE_ATTACKING;

      RCL_Vector2D dir;

      dir.x = SFG_player.camera.position.x - pos.x
        - 128 * SFG_MONSTER_AIM_RANDOMNESS + 
        SFG_random() * SFG_MONSTER_AIM_RANDOMNESS;

      dir.y = SFG_player.camera.position.y - pos.y
        - 128 * SFG_MONSTER_AIM_RANDOMNESS + 
        SFG_random() * SFG_MONSTER_AIM_RANDOMNESS;

      uint8_t projectile;  

      switch (SFG_GET_MONSTER_ATTACK_TYPE(monsterNumber))
      {
        case SFG_MONSTER_ATTACK_FIREBALL:
          projectile = SFG_PROJECTILE_FIREBALL; 
          break;

        case SFG_MONSTER_ATTACK_BULLET:
          projectile = SFG_PROJECTILE_BULLET; 
          break;

        case SFG_MONSTER_ATTACK_PLASMA:
          projectile = SFG_PROJECTILE_PLASMA;
          break;

        case SFG_MONSTER_ATTACK_FIREBALL_BULLET:
          projectile = (SFG_random() < 128) ?
            SFG_PROJECTILE_FIREBALL : 
            SFG_PROJECTILE_BULLET;
          break;

        case SFG_MONSTER_ATTACK_FIREBALL_PLASMA:
          projectile = (SFG_random() < 128) ?
            SFG_PROJECTILE_FIREBALL : 
            SFG_PROJECTILE_PLASMA;
          break;

        default:
          projectile = SFG_PROJECTILE_NONE; 
          break;
      }

      if (projectile == SFG_PROJECTILE_BULLET)
        SFG_playGameSound(0,
          SFG_distantSoundVolume( 
            SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]),
            SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]),
            currentHeight)
          );

      RCL_Unit middleHeight = currentHeight +
        SFG_SPRITE_SIZE_TO_HEIGHT_ABOVE_GROUND(SFG_GET_MONSTER_SPRITE_SIZE(
        SFG_MONSTER_TYPE_TO_INDEX(SFG_MR_TYPE(*monster))));

      RCL_Unit verticalSpeed = (
        ((projectile != SFG_PROJECTILE_NONE) ? 
        SFG_GET_PROJECTILE_SPEED_UPS(projectile) : 0) * 
        SFG_directionTangent(dir.x,dir.y,SFG_player.camera.height -
        middleHeight)) / RCL_UNITS_PER_SQUARE;
      
      dir = RCL_normalize(dir);

      SFG_launchProjectile(
        projectile,
        pos,
        middleHeight,
        dir,
        verticalSpeed,
        SFG_PROJECTILE_SPAWN_OFFSET
      );
    } // if visible
    else
      state = SFG_MONSTER_STATE_IDLE;
  }
  else if (state == SFG_MONSTER_STATE_IDLE)
  {
    if (notRanged)
    {
      // non-ranged monsters: walk towards player

      RCL_Unit pX, pY, pZ;
      SFG_getMonsterWorldPosition(monster,&pX,&pY,&pZ);

      uint8_t isClose = // close to player?
        SFG_taxicabDistance(pX,pY,pZ,
          SFG_player.camera.position.x,
          SFG_player.camera.position.y,
          SFG_player.camera.height) <= SFG_MELEE_RANGE;

      if (!isClose)
      {
        // walk towards player

        if (monsterSquare[0] > SFG_player.squarePosition[0])
        {
          if (monsterSquare[1] > SFG_player.squarePosition[1])
            state = SFG_MONSTER_STATE_GOING_NW;
          else if (monsterSquare[1] < SFG_player.squarePosition[1])
            state = SFG_MONSTER_STATE_GOING_SW;
          else
            state = SFG_MONSTER_STATE_GOING_W;
        }
        else if (monsterSquare[0] < SFG_player.squarePosition[0])
        {
          if (monsterSquare[1] > SFG_player.squarePosition[1])
            state = SFG_MONSTER_STATE_GOING_NE;
          else if (monsterSquare[1] < SFG_player.squarePosition[1])
            state = SFG_MONSTER_STATE_GOING_SE;
          else
            state = SFG_MONSTER_STATE_GOING_E;
        }
        else
        {
          if (monsterSquare[1] > SFG_player.squarePosition[1])
            state = SFG_MONSTER_STATE_GOING_N;
          else if (monsterSquare[1] < SFG_player.squarePosition[1])
            state = SFG_MONSTER_STATE_GOING_S;
        }
      }
      else // is close
      {
        // melee, close-up attack

        if (attackType == SFG_MONSTER_ATTACK_MELEE)
        {
          // melee attack

          state = SFG_MONSTER_STATE_ATTACKING;

          SFG_playerChangeHealth(
            -1 * SFG_getDamageValue(SFG_WEAPON_FIRE_TYPE_MELEE)); 
              
          SFG_playGameSound(3,255);
        }
        else // SFG_MONSTER_ATTACK_EXPLODE
        {
          // explode

          SFG_createExplosion(pX,pY,pZ);
          monster->health = 0;
        }
      }
    }
    else // ranged monsters
    {
      // choose walk direction randomly

      switch (SFG_random() % 8)
      {
        case 0: state = SFG_MONSTER_STATE_GOING_E; break;
        case 1: state = SFG_MONSTER_STATE_GOING_W; break;
        case 2: state = SFG_MONSTER_STATE_GOING_N; break;
        case 3: state = SFG_MONSTER_STATE_GOING_S; break;
        case 4: state = SFG_MONSTER_STATE_GOING_NE; break;
        case 5: state = SFG_MONSTER_STATE_GOING_NW; break;
        case 6: state = SFG_MONSTER_STATE_GOING_SE; break;
        case 7: state = SFG_MONSTER_STATE_GOING_SW; break;
        default: break;
      }
    }
  }
  else if (state == SFG_MONSTER_STATE_ATTACKING)
  {
    state = SFG_MONSTER_STATE_IDLE;
  }
  else
  {
    int8_t add = 1;

    if (attackType == SFG_MONSTER_ATTACK_MELEE)
      add = 2;
    else if (attackType == SFG_MONSTER_ATTACK_EXPLODE)
      add = 3;

    if (state == SFG_MONSTER_STATE_GOING_E ||
        state == SFG_MONSTER_STATE_GOING_NE ||
        state == SFG_MONSTER_STATE_GOING_SE)
      coordAdd[0] = add;
    else if (state == SFG_MONSTER_STATE_GOING_W ||
        state == SFG_MONSTER_STATE_GOING_SW ||
        state == SFG_MONSTER_STATE_GOING_NW)
      coordAdd[0] = -1 * add;

    if (state == SFG_MONSTER_STATE_GOING_N ||
        state == SFG_MONSTER_STATE_GOING_NE ||
        state == SFG_MONSTER_STATE_GOING_NW)
      coordAdd[1] = -1 * add;
    else if (state == SFG_MONSTER_STATE_GOING_S ||
        state == SFG_MONSTER_STATE_GOING_SE ||
        state == SFG_MONSTER_STATE_GOING_SW)
      coordAdd[1] = add;

    if ((coordAdd[0] != 0 || coordAdd[1] != 0) && SFG_random() <
        SFG_MONSTER_SOUND_PROBABILITY)
      SFG_playGameSound(5,
          SFG_distantSoundVolume( 
          SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]),
          SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]),
          currentHeight) / 2);

    state = SFG_MONSTER_STATE_IDLE;
  }

  int16_t newPos[2];

  newPos[0] = monster->coords[0] + coordAdd[0];
  newPos[1] = monster->coords[1] + coordAdd[1];

  int8_t collision = 0;

  if (newPos[0] < 0 || newPos[0] >= 256 || newPos[1] < 0 || newPos[1] >= 256)
  {
    collision = 1;
  }
  else
  {
    uint8_t movingDiagonally = (coordAdd[0] != 0) && (coordAdd[1] != 0);

    // when moving diagonally, we need to check extra tiles

    for (uint8_t i = 0; i < (1 + movingDiagonally); ++i)
    {
      newPos[0] = monster->coords[0] + (i != 1) * coordAdd[0];

      RCL_Unit newHeight =
        SFG_floorCollisionHeightAt(
          SFG_MONSTER_COORD_TO_SQUARES(newPos[0]),
          SFG_MONSTER_COORD_TO_SQUARES(newPos[1]));

      collision =
        RCL_abs(currentHeight - newHeight) > RCL_CAMERA_COLL_STEP_HEIGHT;

      if (!collision)
        collision = (SFG_ceilingHeightAt(
          SFG_MONSTER_COORD_TO_SQUARES(newPos[0]),
          SFG_MONSTER_COORD_TO_SQUARES(newPos[1])) - newHeight) <
          SFG_MONSTER_COLLISION_HEIGHT;

      if (collision)
        break;
    }

    newPos[0] = monster->coords[0] + coordAdd[0];
  }

  if (collision)
  {
    state = SFG_MONSTER_STATE_IDLE;
    // ^ will force the monster to choose random direction in the next update
 
    newPos[0] = monster->coords[0];
    newPos[1] = monster->coords[1];
  }

  monster->stateType = state | (monsterNumber << 4);
  monster->coords[0] = newPos[0];
  monster->coords[1] = newPos[1];;
}

static inline uint8_t SFG_elementCollides(
  RCL_Unit pointX,
  RCL_Unit pointY,
  RCL_Unit pointZ,
  RCL_Unit elementX,
  RCL_Unit elementY,
  RCL_Unit elementHeight
)
{
  return
    SFG_taxicabDistance(pointX,pointY,pointZ,elementX,elementY,elementHeight)
    <= SFG_ELEMENT_COLLISION_RADIUS;
}

/**
  Checks collision of a projectile with level element at given position.
*/
uint8_t SFG_projectileCollides(SFG_ProjectileRecord *projectile,
  RCL_Unit x, RCL_Unit y, RCL_Unit z)
{
  if (!SFG_elementCollides(x,y,z,
    projectile->position[0],projectile->position[1],projectile->position[2]))
    return 0;

  if ((projectile->type == SFG_PROJECTILE_EXPLOSION) ||
      (projectile->type == SFG_PROJECTILE_DUST))
    return 0;

  /* For directional projectiles we only register a collision if its direction
     is "towards" the element so that the shooter doesn't get shot by his own
     projectile. */

  RCL_Vector2D projDir, toElement;

  projDir.x = projectile->direction[0]; 
  projDir.y = projectile->direction[1];

  toElement.x = x - projectile->position[0];
  toElement.y = y - projectile->position[1];
   
  return RCL_vectorsAngleCos(projDir,toElement) >= 0;
}

/**
  Updates a frame of the currently loaded level, i.e. enemies, projectiles,
  animations etc., with the exception of player.
*/
void SFG_updateLevel()
{
  // update projectiles:

  uint8_t substractFrames =
    ((SFG_game.frame - SFG_currentLevel.frameStart) & 0x01) ? 1 : 0;
    /* ^ only substract frames to live every other frame because a maximum of
       256 frames would be too few */

  for (int8_t i = 0; i < SFG_currentLevel.projectileRecordCount; ++i)
  { // ^ has to be signed
    SFG_ProjectileRecord *p = &(SFG_currentLevel.projectileRecords[i]);

    uint8_t attackType = 255;

    if (p->type == SFG_PROJECTILE_BULLET)
      attackType = SFG_WEAPON_FIRE_TYPE_BULLET;
    else if (p->type == SFG_PROJECTILE_PLASMA)
      attackType = SFG_WEAPON_FIRE_TYPE_PLASMA;

    RCL_Unit pos[3] = {0,0,0}; /* we have to convert from uint16_t because of
                                  under/overflows */
    uint8_t eliminate = 0;

    for (uint8_t j = 0; j < 3; ++j) 
    {
      pos[j] = p->position[j];
      pos[j] += p->direction[j];

      if ( // projectile outside map?
        (pos[j] < 0) ||
        (pos[j] >= (SFG_MAP_SIZE * RCL_UNITS_PER_SQUARE)))
      {
        eliminate = 1;
        break;
      }
    }

    if (p->doubleFramesToLive == 0) // no more time to live?
    {
      eliminate = 1;
    }
    else if (
      (p->type != SFG_PROJECTILE_EXPLOSION) &&
      (p->type != SFG_PROJECTILE_DUST))
    {
      if (SFG_projectileCollides( // collides with player?
            p,
            SFG_player.camera.position.x,
            SFG_player.camera.position.y,
            SFG_player.camera.height))
        {
          eliminate = 1;

          SFG_playerChangeHealth(-1 * SFG_getDamageValue(attackType));
        }

      /* Check collision with the map (we don't use SFG_floorCollisionHeightAt
         because collisions with items have to be done differently for
         projectiles). */

      if (!eliminate &&
          ((SFG_floorHeightAt(pos[0] / RCL_UNITS_PER_SQUARE,pos[1] / 
            RCL_UNITS_PER_SQUARE) >= pos[2])
          ||
          (SFG_ceilingHeightAt(pos[0] / RCL_UNITS_PER_SQUARE,pos[1] /
            RCL_UNITS_PER_SQUARE) <= pos[2]))
        )
        eliminate = 1;

      // check collision with active level elements

      if (!eliminate) // monsters 
        for (uint16_t j = 0; j < SFG_currentLevel.monsterRecordCount; ++j)
        {
          SFG_MonsterRecord *m = &(SFG_currentLevel.monsterRecords[j]);

          uint8_t state = SFG_MR_STATE(*m);

          if ((state != SFG_MONSTER_STATE_INACTIVE) &&
              (state != SFG_MONSTER_STATE_DEAD))
          {
            if (SFG_projectileCollides(p,
                  SFG_MONSTER_COORD_TO_RCL_UNITS(m->coords[0]),
                  SFG_MONSTER_COORD_TO_RCL_UNITS(m->coords[1]),
                  SFG_floorHeightAt(
                    SFG_MONSTER_COORD_TO_SQUARES(m->coords[0]),
                    SFG_MONSTER_COORD_TO_SQUARES(m->coords[1]))
                   ))
            {
              eliminate = 1;
              SFG_monsterChangeHealth(m,-1 * SFG_getDamageValue(attackType));
              break;
            }
          }
        }

      if (!eliminate) // items (can't check itemCollisionMap because of barrels)
        for (uint16_t j = 0; j < SFG_currentLevel.itemRecordCount; ++j)
        {
          const SFG_LevelElement *e = SFG_getActiveItemElement(j);

          if (e != 0 && SFG_itemCollides(e->type))
          {
            RCL_Unit x = SFG_ELEMENT_COORD_TO_RCL_UNITS(e->coords[0]);
            RCL_Unit y = SFG_ELEMENT_COORD_TO_RCL_UNITS(e->coords[1]);
            RCL_Unit z = SFG_floorHeightAt(e->coords[0],e->coords[1]);

            if (SFG_projectileCollides(p,x,y,z))
            {
              if (
                   (e->type == SFG_LEVEL_ELEMENT_BARREL) &&
                   (SFG_getDamageValue(attackType) >= 
                     SFG_BARREL_EXPLOSION_DAMAGE_THRESHOLD)
                 )
              {
                SFG_explodeBarrel(j,x,y,z);
              }

              eliminate = 1;
              break;
            }
          }
        }
    }

    if (eliminate)
    {
      if (p->type == SFG_PROJECTILE_FIREBALL)
        SFG_createExplosion(p->position[0],p->position[1],p->position[2]);
      else if (p->type == SFG_PROJECTILE_BULLET)
        SFG_createDust(p->position[0],p->position[1],p->position[2]);
      else if (p->type == SFG_PROJECTILE_PLASMA)
        SFG_playGameSound(4,SFG_distantSoundVolume(pos[0],pos[1],pos[2]));

      // remove the projectile

      for (uint8_t j = i; j < SFG_currentLevel.projectileRecordCount - 1; ++j)
        SFG_currentLevel.projectileRecords[j] =
          SFG_currentLevel.projectileRecords[j + 1];

      SFG_currentLevel.projectileRecordCount--;

      i--;
    }
    else
    {
      p->position[0] = pos[0];
      p->position[1] = pos[1];
      p->position[2] = pos[2];
    }

    p->doubleFramesToLive -= substractFrames;
  }

  // handle door:
  if (SFG_currentLevel.doorRecordCount > 0) // has to be here
  {
    /* Check door on whether a player is standing nearby. For performance
       reasons we only check a few doors and move to others in the next
       frame. */
   
    if (SFG_currentLevel.checkedDoorIndex == 0)
    {
      uint8_t count = SFG_player.cards >> 6;

      SFG_player.cards = (count <= 1) ?
        (SFG_player.cards & 0x07) :
        ((SFG_player.cards & 0x7f) | ((count - 1) << 6));
    }
 
    for (uint16_t i = 0;
         i < RCL_min(SFG_ELEMENT_DISTANCES_CHECKED_PER_FRAME,
           SFG_currentLevel.doorRecordCount);
         ++i) 
    {
      SFG_DoorRecord *door =
        &(SFG_currentLevel.doorRecords[SFG_currentLevel.checkedDoorIndex]);

      uint8_t upDownState = door->state & SFG_DOOR_UP_DOWN_MASK;

      uint8_t newUpDownState = 0;
      
      uint8_t lock = SFG_DOOR_LOCK(door->state);

      if ( // player near door?
        (door->coords[0] >= (SFG_player.squarePosition[0] - 1)) &&
        (door->coords[0] <= (SFG_player.squarePosition[0] + 1)) &&
        (door->coords[1] >= (SFG_player.squarePosition[1] - 1)) &&
        (door->coords[1] <= (SFG_player.squarePosition[1] + 1)))
      {
        if (lock == 0)
        {
          newUpDownState = SFG_DOOR_UP_DOWN_MASK;    
        }
        else
        {
          lock = 1 << (lock - 1);

          if (SFG_player.cards & lock) // player has the card?
            newUpDownState = SFG_DOOR_UP_DOWN_MASK;
          else
            SFG_player.cards = 
              (SFG_player.cards & 0x07) | (lock << 3) | (2 << 6);
        }
      }

      if (upDownState != newUpDownState)
        SFG_playGameSound(1,255);

      door->state = (door->state & ~SFG_DOOR_UP_DOWN_MASK) | newUpDownState;

      SFG_currentLevel.checkedDoorIndex++;

      if (SFG_currentLevel.checkedDoorIndex >= SFG_currentLevel.doorRecordCount)
        SFG_currentLevel.checkedDoorIndex = 0;
    }

    // move door up/down:
    for (uint32_t i = 0; i < SFG_currentLevel.doorRecordCount; ++i)
    {
      SFG_DoorRecord *door = &(SFG_currentLevel.doorRecords[i]);

      int8_t height = door->state & SFG_DOOR_VERTICAL_POSITION_MASK;

      height = (door->state & SFG_DOOR_UP_DOWN_MASK) ?
            RCL_min(0x1f,height + SFG_DOOR_INCREMENT_PER_FRAME) :
            RCL_max(0x00,height - SFG_DOOR_INCREMENT_PER_FRAME);

      door->state = (door->state & ~SFG_DOOR_VERTICAL_POSITION_MASK) | height;
    }
  }

  // handle items, in a similar manner to door:
  if (SFG_currentLevel.itemRecordCount > 0) // has to be here
  {
    // check item distances:

    for (uint16_t i = 0;
         i < RCL_min(SFG_ELEMENT_DISTANCES_CHECKED_PER_FRAME,
           SFG_currentLevel.itemRecordCount);
         ++i) 
    {
      SFG_ItemRecord item =
        SFG_currentLevel.itemRecords[SFG_currentLevel.checkedItemIndex];

      item &= ~SFG_ITEM_RECORD_ACTIVE_MASK;

      SFG_LevelElement e =
        SFG_currentLevel.levelPointer->elements[item];

      if (
        SFG_isInActiveDistanceFromPlayer(
          e.coords[0] * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2,
          e.coords[1] * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2,
          SFG_floorHeightAt(e.coords[0],e.coords[1]) + RCL_UNITS_PER_SQUARE / 2)
        )
        item |= SFG_ITEM_RECORD_ACTIVE_MASK;

      SFG_currentLevel.itemRecords[SFG_currentLevel.checkedItemIndex] = item;

      SFG_currentLevel.checkedItemIndex++;

      if (SFG_currentLevel.checkedItemIndex >= SFG_currentLevel.itemRecordCount)
        SFG_currentLevel.checkedItemIndex = 0;
    }
  }

  // similarly handle monsters:
  if (SFG_currentLevel.monsterRecordCount > 0) // has to be here
  {
    // check monster distances:

    for (uint16_t i = 0;
         i < RCL_min(SFG_ELEMENT_DISTANCES_CHECKED_PER_FRAME,
           SFG_currentLevel.monsterRecordCount);
         ++i) 
    {
      SFG_MonsterRecord *monster =
      &(SFG_currentLevel.monsterRecords[SFG_currentLevel.checkedMonsterIndex]);

      if ( // far away from the player?
        !SFG_isInActiveDistanceFromPlayer(
          SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]),
          SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]),
          SFG_floorHeightAt(
            SFG_MONSTER_COORD_TO_SQUARES(monster->coords[0]),
            SFG_MONSTER_COORD_TO_SQUARES(monster->coords[1]))
            + RCL_UNITS_PER_SQUARE / 2
          )
        )
      {
        monster->stateType = 
           (monster->stateType & SFG_MONSTER_MASK_TYPE) |
           SFG_MONSTER_STATE_INACTIVE;
      }
      else if (SFG_MR_STATE(*monster) == SFG_MONSTER_STATE_INACTIVE)
      {
        monster->stateType = 
          (monster->stateType & SFG_MONSTER_MASK_TYPE) |
          (monster->health != 0 ? 
            SFG_MONSTER_STATE_IDLE : SFG_MONSTER_STATE_DEAD);
      }

      SFG_currentLevel.checkedMonsterIndex++;

      if (SFG_currentLevel.checkedMonsterIndex >=
        SFG_currentLevel.monsterRecordCount)
        SFG_currentLevel.checkedMonsterIndex = 0;
    }
  }

  // update AI and handle dead monsters:
  if ((SFG_game.frame - SFG_currentLevel.frameStart) %
      SFG_AI_UPDATE_FRAME_INTERVAL == 0)
  {
    for (uint16_t i = 0; i < SFG_currentLevel.monsterRecordCount; ++i)
    {
      SFG_MonsterRecord *monster = &(SFG_currentLevel.monsterRecords[i]);
      uint8_t state = SFG_MR_STATE(*monster);

      if ((state == SFG_MONSTER_STATE_INACTIVE) || 
          (state == SFG_MONSTER_STATE_DEAD))
        continue;

      if (state == SFG_MONSTER_STATE_DYING)
      {
        monster->stateType =
          (monster->stateType & 0xf0) | SFG_MONSTER_STATE_DEAD;
      }
      else if (monster->health == 0)
      {
        monster->stateType = (monster->stateType & SFG_MONSTER_MASK_TYPE) |
          SFG_MONSTER_STATE_DYING;

        if (SFG_MR_TYPE(*monster) == SFG_LEVEL_ELEMENT_MONSTER_ENDER)
        {
          SFG_currentLevel.bossCount--;

          // last boss killed gives player a key card

          if (SFG_currentLevel.bossCount == 0)
          {
            SFG_LOG("boss killed, giving player a card");
            SFG_player.cards |= 0x04;
          }
        }

        SFG_processEvent(SFG_EVENT_MONSTER_DIES,SFG_MR_TYPE(*monster));

        if (SFG_MR_TYPE(*monster) == SFG_LEVEL_ELEMENT_MONSTER_EXPLODER)
          SFG_createExplosion(
            SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[0]),
            SFG_MONSTER_COORD_TO_RCL_UNITS(monster->coords[1]),
            SFG_floorCollisionHeightAt(
              SFG_MONSTER_COORD_TO_SQUARES(monster->coords[0]),
              SFG_MONSTER_COORD_TO_SQUARES(monster->coords[0])) +
            RCL_UNITS_PER_SQUARE / 2);
      }
      else
      {
#if SFG_PREVIEW_MODE == 0
        SFG_monsterPerformAI(monster);
#endif
      }
    }
  }
}

/**
  Maps square position on the map to a bit in map reveal mask.
*/
static inline uint16_t SFG_getMapRevealBit(uint8_t squareX, uint8_t squareY)
{
  return 1 << ((squareY / 16) * 4 + squareX / 16);
}

/**
  Draws text on screen using the bitmap font stored in assets.
*/
void SFG_drawText(
  const char *text,
  uint16_t x,
  uint16_t y,
  uint8_t size,
  uint8_t color,
  uint16_t maxLength,
  uint16_t limitX)
{
  if (size == 0)
    size = 1;

  if (limitX == 0)
    limitX = 65535;

  if (maxLength == 0)
    maxLength = 65535;

  uint16_t pos = 0;

  uint16_t currentX = x;
  uint16_t currentY = y;

  while (pos < maxLength && text[pos] != 0) // for each character
  {
    uint16_t character = SFG_font[SFG_charToFontIndex(text[pos])];

    for (uint8_t i = 0; i < SFG_FONT_CHARACTER_SIZE; ++i) // for each line
    {
      currentY = y;

      for (uint8_t j = 0; j < SFG_FONT_CHARACTER_SIZE; ++j) // for each row
      {
        if (character & 0x8000)
          for (uint8_t k = 0; k < size; ++k)
            for (uint8_t l = 0; l < size; ++l)
            {
              uint16_t drawX = currentX + k;
              uint16_t drawY = currentY + l;

              if (drawX < SFG_GAME_RESOLUTION_X &&
                drawY < SFG_GAME_RESOLUTION_Y)
                SFG_setGamePixel(drawX,drawY,color);
            }

        currentY += size;
        character = character << 1;
      }

      currentX += size;
    }
    
    currentX += size; // space
      
    if (currentX > limitX)
    {
      currentX = x;
      y += (SFG_FONT_CHARACTER_SIZE + 1) * size;
    }

    pos++;    
  }
}

void SFG_drawLevelStartOverlay()
{
  uint8_t stage = (SFG_game.stateTime * 4) / SFG_LEVEL_START_DURATION;

  // fade in:

  for (uint16_t y = 0; y < SFG_GAME_RESOLUTION_Y; ++y)
    for (uint16_t x = 0; x < SFG_GAME_RESOLUTION_X; ++x)
    {
      uint8_t draw = 0;

      switch (stage)
      {
        case 0: draw = 1; break;
        case 1: draw = (x % 2) || (y % 2); break;
        case 2: draw = (x % 2) == (y % 2); break;
        case 3: draw = (x % 2) && (y % 2); break;
        default: break;
      }

      if (draw)
        SFG_setGamePixel(x,y,0);
    }

  if (SFG_game.saved == 1)
    SFG_drawText(SFG_TEXT_SAVED,SFG_HUD_MARGIN,SFG_HUD_MARGIN,
      SFG_FONT_SIZE_MEDIUM,7,255,0);
}

/**
  Sets player's height to match the floor height below him.
*/
void SFG_updatePlayerHeight()
{
  SFG_player.camera.height =
    SFG_floorCollisionHeightAt(
      SFG_player.squarePosition[0],SFG_player.squarePosition[1]) +
      RCL_CAMERA_COLL_HEIGHT_BELOW;
}

void SFG_winLevel()
{
  SFG_levelEnds();
  SFG_setGameState(SFG_GAME_STATE_WIN);
  SFG_playGameSound(2,255); 
  SFG_processEvent(SFG_EVENT_VIBRATE,0);
  SFG_processEvent(SFG_EVENT_LEVEL_WON,SFG_currentLevel.levelNumber + 1);
}

/**
  Part of SFG_gameStep() for SFG_GAME_STATE_PLAYING.
*/
void SFG_gameStepPlaying()
{
#if SFG_QUICK_WIN
  if (SFG_game.stateTime > 500)
    SFG_winLevel();
#endif

  if (
    (SFG_keyIsDown(SFG_KEY_C) && SFG_keyIsDown(SFG_KEY_DOWN)) ||
    SFG_keyIsDown(SFG_KEY_MENU))
  {
    SFG_setGameState(SFG_GAME_STATE_MENU);
    SFG_playGameSound(3,SFG_MENU_CLICK_VOLUME);
    return;
  }

  SFG_updateLevel();

  int8_t recomputeDirection = SFG_currentLevel.frameStart == SFG_game.frame;

  RCL_Vector2D moveOffset;

  moveOffset.x = 0;
  moveOffset.y = 0;

  int8_t strafe = 0;

  uint8_t currentWeapon = SFG_player.weapon;

#if SFG_HEADBOB_ENABLED
  int8_t bobbing = 0;
#endif

  int8_t shearing = 0;

  if (SFG_player.weaponCooldownFrames > 0)
    SFG_player.weaponCooldownFrames--;

  if (SFG_keyJustPressed(SFG_KEY_TOGGLE_FREELOOK))
    SFG_game.settings = (SFG_game.settings & 0x04) ?
      (SFG_game.settings & ~0x0c) : (SFG_game.settings | 0x0c);

  int8_t canSwitchWeapon = SFG_player.weaponCooldownFrames == 0;

  if (SFG_keyJustPressed(SFG_KEY_NEXT_WEAPON) && canSwitchWeapon)
    SFG_playerRotateWeapon(1);
  else if (SFG_keyJustPressed(SFG_KEY_PREVIOUS_WEAPON) && canSwitchWeapon)
    SFG_playerRotateWeapon(0);
  else if (SFG_keyJustPressed(SFG_KEY_CYCLE_WEAPON) &&
    SFG_player.previousWeaponDirection)
    SFG_playerRotateWeapon(SFG_player.previousWeaponDirection > 0);

  uint8_t shearingOn = SFG_game.settings & 0x04;

  if (SFG_keyIsDown(SFG_KEY_B))
  {
    if (shearingOn)                      // B + U/D: shearing (if on)
    {
      if (SFG_keyIsDown(SFG_KEY_UP))
      {
        SFG_player.camera.shear =
          RCL_min(SFG_CAMERA_MAX_SHEAR_PIXELS,
                  SFG_player.camera.shear + SFG_CAMERA_SHEAR_STEP_PER_FRAME);

        shearing = 1;
      }
      else if (SFG_keyIsDown(SFG_KEY_DOWN))
      {
        SFG_player.camera.shear =
          RCL_max(-1 * SFG_CAMERA_MAX_SHEAR_PIXELS,
                  SFG_player.camera.shear - SFG_CAMERA_SHEAR_STEP_PER_FRAME);

        shearing = 1;
      }
    }

    if (!SFG_keyIsDown(SFG_KEY_C))
    {                                    // B + L/R: strafing
      if (SFG_keyIsDown(SFG_KEY_LEFT))
        strafe = -1;
      else if (SFG_keyIsDown(SFG_KEY_RIGHT))
        strafe = 1;
    }
  }

  if (SFG_keyIsDown(SFG_KEY_C))          // C + A/B/L/R: weapon switching
  {
    if ((SFG_keyJustPressed(SFG_KEY_LEFT) || SFG_keyJustPressed(SFG_KEY_A)) &&
      canSwitchWeapon)
      SFG_playerRotateWeapon(0);
    else if (
      (SFG_keyJustPressed(SFG_KEY_RIGHT) || SFG_keyJustPressed(SFG_KEY_B)) &&
      canSwitchWeapon)
      SFG_playerRotateWeapon(1);
  }
  else if (!SFG_keyIsDown(SFG_KEY_B))    // L/R: turning
  {
    if (SFG_keyIsDown(SFG_KEY_LEFT))
    {
      SFG_player.camera.direction -= SFG_PLAYER_TURN_UNITS_PER_FRAME;
      recomputeDirection = 1;
    }
    else if (SFG_keyIsDown(SFG_KEY_RIGHT))
    {
      SFG_player.camera.direction += SFG_PLAYER_TURN_UNITS_PER_FRAME;
      recomputeDirection = 1;
    } 
  }

  if (!SFG_keyIsDown(SFG_KEY_B) || !shearingOn)     // U/D: movement
  {
    if (SFG_keyIsDown(SFG_KEY_UP))
    {
      moveOffset.x += SFG_player.direction.x;
      moveOffset.y += SFG_player.direction.y;
#if SFG_HEADBOB_ENABLED
      bobbing = 1;
#endif
    }
    else if (SFG_keyIsDown(SFG_KEY_DOWN))
    {
      moveOffset.x -= SFG_player.direction.x;
      moveOffset.y -= SFG_player.direction.y;
#if SFG_HEADBOB_ENABLED
      bobbing = 1;
#endif
    }
  }

  int16_t mouseX = 0, mouseY = 0;

  SFG_getMouseOffset(&mouseX,&mouseY);

  if (mouseX != 0)                                  // mouse turning
  {
    SFG_player.camera.direction += 
      (mouseX * SFG_MOUSE_SENSITIVITY_HORIZONTAL) / 128;

    recomputeDirection = 1;
  }

  if ((mouseY != 0) && shearingOn)                  // mouse shearing
    SFG_player.camera.shear =
      RCL_max(RCL_min(
        SFG_player.camera.shear - 
        (mouseY * SFG_MOUSE_SENSITIVITY_VERTICAL) / 128,
        SFG_CAMERA_MAX_SHEAR_PIXELS),
        -1 * SFG_CAMERA_MAX_SHEAR_PIXELS);

  if (recomputeDirection)
    SFG_recomputePLayerDirection();

  if (SFG_keyIsDown(SFG_KEY_STRAFE_LEFT))
    strafe = -1;
  else if (SFG_keyIsDown(SFG_KEY_STRAFE_RIGHT))
    strafe = 1;

  if (strafe != 0)
  {
    uint8_t normalize = (moveOffset.x != 0) || (moveOffset.y != 0);

    moveOffset.x += strafe * SFG_player.direction.y;
    moveOffset.y -= strafe * SFG_player.direction.x;

    if (normalize)
    {
      // This prevents reaching higher speed when moving diagonally.

      moveOffset = RCL_normalize(moveOffset);

      moveOffset.x = (moveOffset.x * SFG_PLAYER_MOVE_UNITS_PER_FRAME)
        / RCL_UNITS_PER_SQUARE;

      moveOffset.y = (moveOffset.y * SFG_PLAYER_MOVE_UNITS_PER_FRAME)
        / RCL_UNITS_PER_SQUARE;
    }
  }

#if SFG_PREVIEW_MODE
  if (SFG_keyIsDown(SFG_KEY_B))
    SFG_player.verticalSpeed = SFG_PLAYER_MOVE_UNITS_PER_FRAME;
  else if (SFG_keyIsDown(SFG_KEY_C))
    SFG_player.verticalSpeed = -1 * SFG_PLAYER_MOVE_UNITS_PER_FRAME;
  else
    SFG_player.verticalSpeed = 0;
#else
  RCL_Unit verticalOffset = 
    (  
      (
        SFG_keyIsDown(SFG_KEY_JUMP) ||
        (SFG_keyIsDown(SFG_KEY_UP) && SFG_keyIsDown(SFG_KEY_C))
      ) &&
      (SFG_player.verticalSpeed == 0) &&
      (SFG_player.previousVerticalSpeed == 0)) ?
    SFG_PLAYER_JUMP_OFFSET_PER_FRAME : // jump
    (SFG_player.verticalSpeed - SFG_GRAVITY_SPEED_INCREASE_PER_FRAME);
#endif

  if (!shearing && SFG_player.camera.shear != 0 && !(SFG_game.settings & 0x08))
  {
    // gradually shear back to zero

    SFG_player.camera.shear =
      (SFG_player.camera.shear > 0) ?
      RCL_max(0,SFG_player.camera.shear - SFG_CAMERA_SHEAR_STEP_PER_FRAME) :
      RCL_min(0,SFG_player.camera.shear + SFG_CAMERA_SHEAR_STEP_PER_FRAME);
  }

#if SFG_HEADBOB_ENABLED && !SFG_PREVIEW_MODE
  if (bobbing)
  {
    SFG_player.headBobFrame += SFG_HEADBOB_FRAME_INCREASE_PER_FRAME; 
  }
  else if (SFG_player.headBobFrame != 0)
  {
    // smoothly stop bobbing

    uint8_t quadrant = (SFG_player.headBobFrame % RCL_UNITS_PER_SQUARE) /
      (RCL_UNITS_PER_SQUARE / 4);

    /* When in quadrant in which sin is going away from zero, switch to the
       same value of the next quadrant, so that bobbing starts to go towards
       zero immediately. */

    if (quadrant % 2 == 0)
      SFG_player.headBobFrame =
        ((quadrant + 1) * RCL_UNITS_PER_SQUARE / 4) +
        (RCL_UNITS_PER_SQUARE / 4 - SFG_player.headBobFrame %
        (RCL_UNITS_PER_SQUARE / 4));

    RCL_Unit currentFrame = SFG_player.headBobFrame;
    RCL_Unit nextFrame = SFG_player.headBobFrame + 16;

    // only stop bobbing when we pass a frame at which sin crosses zero
    SFG_player.headBobFrame =
      (currentFrame / (RCL_UNITS_PER_SQUARE / 2) ==
       nextFrame / (RCL_UNITS_PER_SQUARE / 2)) ?
       nextFrame : 0;
  }
#endif

  RCL_Unit previousHeight = SFG_player.camera.height;

  // handle player collision with level elements:

  // monsters:
  for (uint16_t i = 0; i < SFG_currentLevel.monsterRecordCount; ++i)
  {
    SFG_MonsterRecord *m = &(SFG_currentLevel.monsterRecords[i]);

    uint8_t state = SFG_MR_STATE(*m);

    if (state == SFG_MONSTER_STATE_INACTIVE || state == SFG_MONSTER_STATE_DEAD)
      continue;

    RCL_Vector2D mPos;

    mPos.x = SFG_MONSTER_COORD_TO_RCL_UNITS(m->coords[0]);
    mPos.y = SFG_MONSTER_COORD_TO_RCL_UNITS(m->coords[1]);

    if (
         SFG_elementCollides(
           SFG_player.camera.position.x,
           SFG_player.camera.position.y,
           SFG_player.camera.height,
           mPos.x,
           mPos.y,
           SFG_floorHeightAt(
               SFG_MONSTER_COORD_TO_SQUARES(m->coords[0]),
               SFG_MONSTER_COORD_TO_SQUARES(m->coords[1]))
         )
       )
    {
      moveOffset = SFG_resolveCollisionWithElement(
        SFG_player.camera.position,moveOffset,mPos);
    }
  }

  uint8_t collidesWithTeleporter = 0;

  /* item collisions with player (only those that don't stop player's movement,
     as those are handled differently, via itemCollisionMap): */
  for (int16_t i = 0; i < SFG_currentLevel.itemRecordCount; ++i)
    // ^ has to be int16_t (signed)
  {
    if (!(SFG_currentLevel.itemRecords[i] & SFG_ITEM_RECORD_ACTIVE_MASK))
      continue;

    const SFG_LevelElement *e = SFG_getActiveItemElement(i);

    if (e != 0)
    {
      RCL_Vector2D ePos;

      ePos.x = SFG_ELEMENT_COORD_TO_RCL_UNITS(e->coords[0]);
      ePos.y = SFG_ELEMENT_COORD_TO_RCL_UNITS(e->coords[1]);

      if (!SFG_itemCollides(e->type) &&
          SFG_elementCollides(
            SFG_player.camera.position.x,
            SFG_player.camera.position.y,
            SFG_player.camera.height,
            ePos.x,
            ePos.y,
            SFG_floorHeightAt(e->coords[0],e->coords[1]))
         )
      {
        uint8_t eliminate = 1;

        uint8_t onlyKnife = 1;

        for (uint8_t j = 0; j < SFG_AMMO_TOTAL; ++j)
          if (SFG_player.ammo[j] != 0)
          {
            onlyKnife = 0;
            break;
          }

        switch (e->type)
        {
          case SFG_LEVEL_ELEMENT_HEALTH:
            if (SFG_player.health < SFG_PLAYER_MAX_HEALTH)
              SFG_playerChangeHealth(SFG_HEALTH_KIT_VALUE);
            else
              eliminate = 0;
            break;

#define addAmmo(type) \
  if (SFG_player.ammo[SFG_AMMO_##type] < SFG_AMMO_MAX_##type) \
  {\
    SFG_player.ammo[SFG_AMMO_##type] = RCL_min(SFG_AMMO_MAX_##type,\
      SFG_player.ammo[SFG_AMMO_##type] + SFG_AMMO_INCREASE_##type);\
    if (onlyKnife) SFG_playerRotateWeapon(1); \
  }\
  else\
    eliminate = 0;

          case SFG_LEVEL_ELEMENT_BULLETS:
            addAmmo(BULLETS)
            break;

          case SFG_LEVEL_ELEMENT_ROCKETS:
            addAmmo(ROCKETS)
            break;

          case SFG_LEVEL_ELEMENT_PLASMA:
            addAmmo(PLASMA)
            break;

#undef addAmmo

          case SFG_LEVEL_ELEMENT_CARD0:
          case SFG_LEVEL_ELEMENT_CARD1:
          case SFG_LEVEL_ELEMENT_CARD2:
            SFG_player.cards |= 1 << (e->type - SFG_LEVEL_ELEMENT_CARD0);
            break;

          case SFG_LEVEL_ELEMENT_TELEPORTER:
            collidesWithTeleporter = 1;
            eliminate = 0;
            break;

          case SFG_LEVEL_ELEMENT_FINISH:
            SFG_winLevel();
            eliminate = 0;
            break;

          default:
            eliminate = 0;
            break;
        }

        if (eliminate) // take the item
        {
#if !SFG_PREVIEW_MODE
          SFG_removeItem(i);
          SFG_player.lastItemTakenFrame = SFG_game.frame;
          i--;
          SFG_playGameSound(3,255);
          SFG_processEvent(SFG_EVENT_PLAYER_TAKES_ITEM,e->type);
#endif
        }
        else if (
          e->type == SFG_LEVEL_ELEMENT_TELEPORTER &&
          SFG_currentLevel.teleporterCount > 1 &&
          !SFG_player.justTeleported)
        {
          // teleport to random destination teleporter

          uint8_t teleporterNumber =
            SFG_random() % (SFG_currentLevel.teleporterCount - 1) + 1;

          for (uint16_t j = 0; j < SFG_currentLevel.itemRecordCount; ++j)
          {
            SFG_LevelElement e2 = 
              SFG_currentLevel.levelPointer->elements
                [SFG_currentLevel.itemRecords[j] &
                ~SFG_ITEM_RECORD_ACTIVE_MASK];

            if ((e2.type == SFG_LEVEL_ELEMENT_TELEPORTER) && (j != i))
              teleporterNumber--;

            if (teleporterNumber == 0)
            {
              SFG_player.camera.position.x =
                SFG_ELEMENT_COORD_TO_RCL_UNITS(e2.coords[0]);

              SFG_player.camera.position.y =
                SFG_ELEMENT_COORD_TO_RCL_UNITS(e2.coords[1]);

              SFG_player.camera.height =
                SFG_floorHeightAt(e2.coords[0],e2.coords[1]) +
                RCL_CAMERA_COLL_HEIGHT_BELOW;

              SFG_currentLevel.itemRecords[j] |= SFG_ITEM_RECORD_ACTIVE_MASK;
              /* ^ we have to make the new teleporter immediately active so
                 that it will immediately collide */

              SFG_player.justTeleported = 1;

              SFG_playGameSound(4,255);
              SFG_processEvent(SFG_EVENT_PLAYER_TELEPORTS,0);

              break;
            } // if teleporterNumber == 0
          } // for level items
        } // if eliminate
      } // if item collides
    } // if element != 0 
  } // for, item collision check

  if (!collidesWithTeleporter)
    SFG_player.justTeleported = 0;

#if SFG_PREVIEW_MODE
  SFG_player.camera.position.x +=
    SFG_PREVIEW_MODE_SPEED_MULTIPLIER * moveOffset.x;

  SFG_player.camera.position.y +=
    SFG_PREVIEW_MODE_SPEED_MULTIPLIER * moveOffset.y;

  SFG_player.camera.height += 
    SFG_PREVIEW_MODE_SPEED_MULTIPLIER * SFG_player.verticalSpeed;
#else
  RCL_moveCameraWithCollision(&(SFG_player.camera),moveOffset,
    verticalOffset,SFG_floorCollisionHeightAt,SFG_ceilingHeightAt,1,1);

  SFG_player.previousVerticalSpeed = SFG_player.verticalSpeed;

  RCL_Unit limit = RCL_max(RCL_max(0,verticalOffset),SFG_player.verticalSpeed);
  
  SFG_player.verticalSpeed =
    RCL_min(limit,SFG_player.camera.height - previousHeight);
  /* ^ By "limit" we assure height increase caused by climbing a step doesn't
     add vertical velocity. */
#endif

#if SFG_PREVIEW_MODE == 0
  if (
    SFG_keyIsDown(SFG_KEY_A) &&
    !SFG_keyIsDown(SFG_KEY_C) &&
    (SFG_player.weaponCooldownFrames == 0) &&
    (SFG_game.stateTime > 400) // don't immediately shoot if returning from menu
    )
  {
    /* Player attack/shoot/fire, this has to be done AFTER the player is moved,
       otherwise he could shoot himself while running forward. */

    uint8_t ammo, projectileCount, canShoot;

    SFG_getPlayerWeaponInfo(&ammo,&projectileCount,&canShoot);

    if (canShoot)
    {
      uint8_t sound;

      switch (SFG_player.weapon)
      {
        case SFG_WEAPON_KNIFE:           sound = 255; break;
        case SFG_WEAPON_ROCKET_LAUNCHER: 
        case SFG_WEAPON_SHOTGUN:         sound = 2; break; 
        case SFG_WEAPON_PLASMAGUN:
        case SFG_WEAPON_SOLUTION:        sound = 4; break;
        default:                         sound = 0; break;
      }

      if (sound != 255)
        SFG_playGameSound(sound,255);

      if (ammo != SFG_AMMO_NONE)
        SFG_player.ammo[ammo] -= projectileCount;

      uint8_t projectile;

      switch (SFG_GET_WEAPON_FIRE_TYPE(SFG_player.weapon))
      {
        case SFG_WEAPON_FIRE_TYPE_PLASMA:
          projectile = SFG_PROJECTILE_PLASMA;
          break;

        case SFG_WEAPON_FIRE_TYPE_FIREBALL:
          projectile = SFG_PROJECTILE_FIREBALL;
          break;

        case SFG_WEAPON_FIRE_TYPE_BULLET:
          projectile = SFG_PROJECTILE_BULLET;
          break;

        case SFG_WEAPON_FIRE_TYPE_MELEE:
          projectile = SFG_PROJECTILE_NONE;
          break;

        default:
          projectile = 255;
          break;
      }
          
      if (projectile != SFG_PROJECTILE_NONE)
      {
        uint16_t angleAdd = SFG_PROJECTILE_SPREAD_ANGLE / (projectileCount + 1);

        RCL_Unit direction =
          (SFG_player.camera.direction - SFG_PROJECTILE_SPREAD_ANGLE / 2) 
          + angleAdd;
          
        RCL_Unit projectileSpeed = SFG_GET_PROJECTILE_SPEED_UPS(projectile);
        
        /* Vertical speed will be either determined by autoaim (if shearing is
           off) or the camera shear value. */
        RCL_Unit verticalSpeed = (SFG_game.settings & 0x04) ?
          (SFG_player.camera.shear * projectileSpeed * 2) / // only approximate
            SFG_CAMERA_MAX_SHEAR_PIXELS
          :
          (projectileSpeed * SFG_autoaimVertically()) / RCL_UNITS_PER_SQUARE;

        for (uint8_t i = 0; i < projectileCount; ++i)
        {
          SFG_launchProjectile(
            projectile,
            SFG_player.camera.position,
            SFG_player.camera.height,
            RCL_angleToDirection(direction),
            verticalSpeed,  
            SFG_PROJECTILE_SPAWN_OFFSET
            );

          direction += angleAdd;
        }
      }
      else
      {
        // player's melee attack

        for (uint16_t i = 0; i < SFG_currentLevel.monsterRecordCount; ++i)
        {
          SFG_MonsterRecord *m = &(SFG_currentLevel.monsterRecords[i]);

          uint8_t state = SFG_MR_STATE(*m);

          if ((state == SFG_MONSTER_STATE_INACTIVE) || 
              (state == SFG_MONSTER_STATE_DEAD))
            continue;

          RCL_Unit pX, pY, pZ;
          SFG_getMonsterWorldPosition(m,&pX,&pY,&pZ);

          if (SFG_taxicabDistance(pX,pY,pZ,
              SFG_player.camera.position.x,
              SFG_player.camera.position.y,
              SFG_player.camera.height) > SFG_MELEE_RANGE)
            continue;
   
          RCL_Vector2D toMonster;

          toMonster.x = pX - SFG_player.camera.position.x;
          toMonster.y = pY - SFG_player.camera.position.y;

          if (RCL_vectorsAngleCos(SFG_player.direction,toMonster) >=
              (RCL_UNITS_PER_SQUARE - SFG_PLAYER_MELEE_ANGLE))
          {
            SFG_monsterChangeHealth(m,
              -1 * SFG_getDamageValue(SFG_WEAPON_FIRE_TYPE_MELEE));

            SFG_createDust(pX,pY,pZ);

            break;
          }
        }
      }

      SFG_player.weaponCooldownFrames =
        RCL_max(
          SFG_GET_WEAPON_FIRE_COOLDOWN_FRAMES(SFG_player.weapon),
          SFG_MIN_WEAPON_COOLDOWN_FRAMES);

      SFG_getPlayerWeaponInfo(&ammo,&projectileCount,&canShoot);

      if (!canShoot)
      {
        // No more ammo, switch to the second strongest weapon.

        SFG_playerRotateWeapon(1);

        uint8_t previousWeapon = SFG_player.weapon;

        SFG_playerRotateWeapon(0);

        if (previousWeapon > SFG_player.weapon)
          SFG_playerRotateWeapon(1);
      }
    } // endif: has enough ammo?
  } // attack
#endif // SFG_PREVIEW_MODE == 0

  SFG_player.squarePosition[0] =
    SFG_player.camera.position.x / RCL_UNITS_PER_SQUARE;

  SFG_player.squarePosition[1] =
    SFG_player.camera.position.y / RCL_UNITS_PER_SQUARE;

  SFG_currentLevel.mapRevealMask |= 
    SFG_getMapRevealBit(
      SFG_player.squarePosition[0],
      SFG_player.squarePosition[1]);
              
  uint8_t properties;

  SFG_getMapTile(SFG_currentLevel.levelPointer,SFG_player.squarePosition[0],
    SFG_player.squarePosition[1],&properties);

  if ( // squeezer check
     (properties == SFG_TILE_PROPERTY_SQUEEZER) &&
     ((SFG_ceilingHeightAt(
       SFG_player.squarePosition[0],SFG_player.squarePosition[1]) -
     SFG_floorHeightAt(
       SFG_player.squarePosition[0],SFG_player.squarePosition[1]))
     <
     (RCL_CAMERA_COLL_HEIGHT_ABOVE + RCL_CAMERA_COLL_HEIGHT_BELOW)))
  {
    SFG_LOG("player is squeezed");
    SFG_player.health = 0;
  }

  if (SFG_player.weapon != currentWeapon) // if weapon switched, start cooldown
  {

    if (SFG_player.weapon == (currentWeapon + 1) % SFG_WEAPONS_TOTAL)
      SFG_player.previousWeaponDirection = -1;
    else if (currentWeapon == (SFG_player.weapon + 1) % SFG_WEAPONS_TOTAL)
      SFG_player.previousWeaponDirection = 1;
    else
      SFG_player.previousWeaponDirection = 0;

    SFG_player.weaponCooldownFrames =
      SFG_GET_WEAPON_FIRE_COOLDOWN_FRAMES(SFG_player.weapon) / 2;
  }

#if SFG_IMMORTAL == 0
  if (SFG_player.health == 0)
  {
    SFG_LOG("player dies");
    SFG_levelEnds();
    SFG_processEvent(SFG_EVENT_VIBRATE,0);
    SFG_processEvent(SFG_EVENT_PLAYER_DIES,0);
    SFG_setGameState(SFG_GAME_STATE_LOSE);
  }
#endif
}

/**
  This function defines which items are displayed in the menu.
*/
uint8_t SFG_getMenuItem(uint8_t index)
{
  uint8_t current = 0;

  while (1) // find first legitimate item
  {
    if ( // skip non-legitimate items
      ((current <= SFG_MENU_ITEM_MAP) && (SFG_currentLevel.levelPointer == 0))
      || ((current == SFG_MENU_ITEM_LOAD) && ((SFG_game.save[0] >> 4) == 0)))
    {
      current++;
      continue;
    }

    if (index == 0)
      return (current <= (SFG_MENU_ITEM_EXIT - (SFG_CAN_EXIT ? 0 : 1))
        ) ? current : SFG_MENU_ITEM_NONE;

    current++;
    index--;
  }

  return SFG_MENU_ITEM_NONE;
}

void SFG_handleCheats()
{
  // this is a state machine handling cheat typing

  uint8_t expectedKey;

  switch (SFG_game.cheatState & 0x0f)
  {
    case 0: case 3: case 5: case 7: case 10:
      expectedKey = SFG_KEY_A; break;
    case 1: case 8:
      expectedKey = SFG_KEY_B; break;
    case 2: case 9:
      expectedKey = SFG_KEY_RIGHT; break;
    case 4:
      expectedKey = SFG_KEY_C; break;
    case 6: default:
      expectedKey = SFG_KEY_DOWN; break;
  }

  for (uint8_t i = 0; i < SFG_KEY_COUNT; ++i) // no other keys must be pressed
    if ((i != expectedKey) && SFG_keyJustPressed(i))
    {
      SFG_game.cheatState &= 0xf0; // back to start state
      return;
    }
 
  if (!SFG_keyJustPressed(expectedKey))
    return;

  SFG_game.cheatState++; // go to next state

  if ((SFG_game.cheatState & 0x0f) > 10) // final state resolved?
  {
    if (SFG_game.cheatState & 0x80)
    {
      SFG_LOG("cheat disabled");
      SFG_game.cheatState = 0;
    }
    else
    {
      SFG_LOG("cheat activated");
      SFG_playGameSound(4,255);
      SFG_playerChangeHealth(SFG_PLAYER_MAX_HEALTH);
      SFG_player.ammo[SFG_AMMO_BULLETS] = SFG_AMMO_MAX_BULLETS;
      SFG_player.ammo[SFG_AMMO_ROCKETS] = SFG_AMMO_MAX_ROCKETS;
      SFG_player.ammo[SFG_AMMO_PLASMA] = SFG_AMMO_MAX_PLASMA;
      SFG_player.weapon = SFG_WEAPON_SOLUTION;
      SFG_player.cards |= 0x07;
      SFG_game.cheatState = 0x80;
    }
  }
}

void SFG_gameStepMenu()
{
  uint8_t menuItems = 0;

  while (SFG_getMenuItem(menuItems) != SFG_MENU_ITEM_NONE)
    menuItems++;

  uint8_t item = SFG_getMenuItem(SFG_game.selectedMenuItem);

  if (SFG_keyRegisters(SFG_KEY_DOWN) && 
    (SFG_game.selectedMenuItem < menuItems - 1))
  {
    SFG_game.selectedMenuItem++;
    SFG_playGameSound(3,SFG_MENU_CLICK_VOLUME);
  }
  else if (SFG_keyRegisters(SFG_KEY_UP) && (SFG_game.selectedMenuItem > 0))
  {
    SFG_game.selectedMenuItem--;
    SFG_playGameSound(3,SFG_MENU_CLICK_VOLUME);
  }
  else if (SFG_keyJustPressed(SFG_KEY_A))
  {
    switch (item)
    {
      case SFG_MENU_ITEM_PLAY:
        for (uint8_t i = 6; i < SFG_SAVE_SIZE; ++i) // reset totals in save
          SFG_game.save[i] = 0;

        if (SFG_game.selectedLevel == 0)
        {
          SFG_currentLevel.levelNumber = 0; // to draw intro, not outro
          SFG_setGameState(SFG_GAME_STATE_INTRO);
        }
        else
          SFG_setAndInitLevel(SFG_game.selectedLevel);

        break;

      case SFG_MENU_ITEM_LOAD:
      {
        SFG_gameLoad();

        uint8_t saveBackup[SFG_SAVE_SIZE];

        for (uint8_t i = 0; i < SFG_SAVE_SIZE; ++i)
          saveBackup[i] = SFG_game.save[i];

        SFG_setAndInitLevel(SFG_game.save[0] >> 4);

        for (uint8_t i = 0; i < SFG_SAVE_SIZE; ++i)
          SFG_game.save[i] = saveBackup[i];

        SFG_player.health = SFG_game.save[2];
        SFG_player.ammo[0] = SFG_game.save[3];
        SFG_player.ammo[1] = SFG_game.save[4];
        SFG_player.ammo[2] = SFG_game.save[5];

        SFG_playerRotateWeapon(1); // this chooses weapon with ammo available
        break;
      }

      case SFG_MENU_ITEM_CONTINUE:
        SFG_setGameState(SFG_GAME_STATE_PLAYING);
        break;

      case SFG_MENU_ITEM_MAP:
        SFG_setGameState(SFG_GAME_STATE_MAP);
        break;

      case SFG_MENU_ITEM_SOUND:
        SFG_LOG("sound changed");

        SFG_game.settings = 
          (SFG_game.settings & ~0x03) | ((SFG_game.settings + 1)  & 0x03);

        SFG_playGameSound(3,SFG_MENU_CLICK_VOLUME);

        if ((SFG_game.settings & 0x02) !=
            ((SFG_game.settings - 1) & 0x02))
            SFG_setMusic((SFG_game.settings & 0x02) ? 
              SFG_MUSIC_TURN_ON : SFG_MUSIC_TURN_OFF);

        SFG_game.save[1] = SFG_game.settings;
        SFG_gameSave();

        break;

      case SFG_MENU_ITEM_SHEAR:
      {
        uint8_t current = (SFG_game.settings >> 2) & 0x03;

        current++;

        if (current == 2) // option that doesn't make sense, skip
          current++;

        SFG_game.settings = 
          (SFG_game.settings & ~0x0c) | ((current & 0x03) << 2);

        SFG_game.save[1] = SFG_game.settings;
        SFG_gameSave();

        break;
      }

      case SFG_MENU_ITEM_EXIT:
        SFG_game.continues = 0;
        break;

      default:
        break;
    }
  }
  else if (item == SFG_MENU_ITEM_PLAY)
  {
    if (SFG_keyRegisters(SFG_KEY_RIGHT) && 
      (SFG_game.selectedLevel < (SFG_game.save[0] & 0x0f)))
    {
      SFG_game.selectedLevel++;
      SFG_playGameSound(3,SFG_MENU_CLICK_VOLUME);
    }
    else if (SFG_keyRegisters(SFG_KEY_LEFT) && SFG_game.selectedLevel > 0)
    {
      SFG_game.selectedLevel--;
      SFG_playGameSound(3,SFG_MENU_CLICK_VOLUME);
    }
  }
}

/**
  Performs one game step (logic, physics, menu, ...), happening SFG_MS_PER_FRAME
  after the previous step.
*/
void SFG_gameStep()
{
  SFG_GAME_STEP_COMMAND

  SFG_game.soundsPlayedThisFrame = 0;
  
  SFG_game.blink = (SFG_game.frame / SFG_BLINK_PERIOD_FRAMES) % 2;

  for (uint8_t i = 0; i < SFG_KEY_COUNT; ++i)
    if (!SFG_keyPressed(i))
      SFG_game.keyStates[i] = 0;
    else if (SFG_game.keyStates[i] < 255)
      SFG_game.keyStates[i]++;

  if ((SFG_currentLevel.frameStart - SFG_game.frame) %
      SFG_SPRITE_ANIMATION_FRAME_DURATION == 0)
    SFG_game.spriteAnimationFrame++;

  switch (SFG_game.state)
  {
    case SFG_GAME_STATE_PLAYING:
      SFG_handleCheats();
      SFG_gameStepPlaying();
      break;

    case SFG_GAME_STATE_MENU: 
      SFG_gameStepMenu();
      break;

    case SFG_GAME_STATE_LOSE:
    { 
      // player die animation (lose)

      SFG_updateLevel(); // let monsters and other things continue moving
      SFG_updatePlayerHeight(); // in case player is on elevator 

      int32_t t = SFG_game.stateTime;

      RCL_Unit h = SFG_floorHeightAt(SFG_player.squarePosition[0],
        SFG_player.squarePosition[1]); 

      SFG_player.camera.height = 
        RCL_max(h,h + ((SFG_LOSE_ANIMATION_DURATION - t) *
            RCL_CAMERA_COLL_HEIGHT_BELOW) / SFG_LOSE_ANIMATION_DURATION);

      SFG_player.camera.shear = 
        RCL_min(SFG_CAMERA_MAX_SHEAR_PIXELS / 4,
        (t * (SFG_CAMERA_MAX_SHEAR_PIXELS / 4)) / SFG_LOSE_ANIMATION_DURATION);

      if (t > SFG_LOSE_ANIMATION_DURATION && 
        (SFG_keyIsDown(SFG_KEY_A) || SFG_keyIsDown(SFG_KEY_B)))
      {
        for (uint8_t i = 6; i < SFG_SAVE_SIZE; ++i)
          SFG_game.save[i] = 0;

        SFG_setAndInitLevel(SFG_currentLevel.levelNumber);
      }

      break;
    }

    case SFG_GAME_STATE_WIN:
    {
      // win animation
     
      SFG_updateLevel();

      int32_t t = SFG_game.stateTime;

      if (t > SFG_WIN_ANIMATION_DURATION)
      {
        if (SFG_currentLevel.levelNumber == (SFG_NUMBER_OF_LEVELS - 1))
        {
          if (SFG_keyIsDown(SFG_KEY_A))
          {
            SFG_setGameState(SFG_GAME_STATE_OUTRO);
            SFG_setMusic(SFG_MUSIC_TURN_OFF);
          }
        }
        else if (SFG_keyIsDown(SFG_KEY_RIGHT) ||
            SFG_keyIsDown(SFG_KEY_LEFT) ||
            SFG_keyIsDown(SFG_KEY_STRAFE_LEFT) ||
            SFG_keyIsDown(SFG_KEY_STRAFE_RIGHT))
        {
          SFG_setAndInitLevel(SFG_currentLevel.levelNumber + 1);
          
          SFG_player.health = SFG_game.save[2];
          SFG_player.ammo[0] = SFG_game.save[3];
          SFG_player.ammo[1] = SFG_game.save[4];
          SFG_player.ammo[2] = SFG_game.save[5];
        
          SFG_playerRotateWeapon(1);

          if (SFG_keyIsDown(SFG_KEY_RIGHT) || SFG_keyIsDown(SFG_KEY_STRAFE_RIGHT))
          {
            // save the current position
            SFG_game.save[0] = 
              (SFG_game.save[0] & 0x0f) | (SFG_currentLevel.levelNumber << 4);

            SFG_gameSave();
            SFG_game.saved = 1;
          }
        }
      }

      break;
    }

    case SFG_GAME_STATE_MAP:
      if (SFG_keyIsDown(SFG_KEY_B))
        SFG_setGameState(SFG_GAME_STATE_MENU);

      break;

    case SFG_GAME_STATE_INTRO:
      if (SFG_keyJustPressed(SFG_KEY_A) || SFG_keyJustPressed(SFG_KEY_B))
        SFG_setAndInitLevel(0);

      break;

    case SFG_GAME_STATE_OUTRO:
      if ((SFG_game.stateTime > SFG_STORYTEXT_DURATION) &&
           (SFG_keyIsDown(SFG_KEY_A) ||
           SFG_keyIsDown(SFG_KEY_B)))
      {
        SFG_currentLevel.levelPointer = 0;
        SFG_currentLevel.levelNumber = 0;
        SFG_setGameState(SFG_GAME_STATE_MENU);
        SFG_playGameSound(3,SFG_MENU_CLICK_VOLUME);
        SFG_setMusic(SFG_MUSIC_TURN_ON);
      }

      break;

    case SFG_GAME_STATE_LEVEL_START:
    {
      SFG_updateLevel();
      SFG_updatePlayerHeight(); // in case player is on elevator

      int16_t x = 0, y = 0;
      
      SFG_getMouseOffset(&x,&y); // this keeps centering the mouse

      if (SFG_game.stateTime >= SFG_LEVEL_START_DURATION)
        SFG_setGameState(SFG_GAME_STATE_PLAYING);

      break;
    }

    default:
      break;
  }

  SFG_game.stateTime += SFG_MS_PER_FRAME;
}

void SFG_fillRectangle(
  uint16_t x, uint16_t y, uint16_t width, uint16_t height, uint8_t color)
{
  if ((x + width > SFG_GAME_RESOLUTION_X) ||
      (y + height > SFG_GAME_RESOLUTION_Y))
    return;

  for (uint16_t j = y; j < y + height; ++j)
    for (uint16_t i = x; i < x + width; ++i)
      SFG_setGamePixel(i,j,color);
}

static inline void SFG_clearScreen(uint8_t color)
{
  SFG_fillRectangle(0,0,SFG_GAME_RESOLUTION_X,
    SFG_GAME_RESOLUTION_Y,color);
}

/**
  Draws fullscreen map of the current level.
*/
void SFG_drawMap()
{
  SFG_clearScreen(0);
   
  uint16_t maxJ =
    (SFG_MAP_PIXEL_SIZE * SFG_MAP_SIZE) < SFG_GAME_RESOLUTION_Y ?
    (SFG_MAP_SIZE) : (SFG_GAME_RESOLUTION_Y / SFG_MAP_PIXEL_SIZE);

  uint16_t maxI =
    (SFG_MAP_PIXEL_SIZE * SFG_MAP_SIZE) < SFG_GAME_RESOLUTION_X ?
    (SFG_MAP_SIZE) : (SFG_GAME_RESOLUTION_X / SFG_MAP_PIXEL_SIZE);

  uint16_t topLeftX =
    (SFG_GAME_RESOLUTION_X - (maxI * SFG_MAP_PIXEL_SIZE)) / 2;

  uint16_t topLeftY =
    (SFG_GAME_RESOLUTION_Y - (maxJ * SFG_MAP_PIXEL_SIZE)) / 2;

  uint16_t x;
  uint16_t y = topLeftY;

  uint8_t playerColor = 
    SFG_game.blink ? SFG_MAP_PLAYER_COLOR1 : SFG_MAP_PLAYER_COLOR2;

  for (int16_t j = 0; j < maxJ; ++j)
  {
    x = topLeftX;

    for (int16_t i = maxI - 1; i >= 0; --i)
    {
      uint8_t color = 0; // init with non-revealed color

      if (SFG_currentLevel.mapRevealMask & SFG_getMapRevealBit(i,j)) 
      {
        uint8_t properties;

        SFG_TileDefinition tile =
          SFG_getMapTile(SFG_currentLevel.levelPointer,i,j,&properties);

        color = playerColor; // start with player color

        if (i != SFG_player.squarePosition[0] ||
            j != SFG_player.squarePosition[1])
        {
          if (properties == SFG_TILE_PROPERTY_ELEVATOR)
            color = SFG_MAP_ELEVATOR_COLOR;
          else if (properties == SFG_TILE_PROPERTY_SQUEEZER)
            color = SFG_MAP_SQUEEZER_COLOR;
          else if (properties == SFG_TILE_PROPERTY_DOOR)
            color = SFG_MAP_DOOR_COLOR;
          else
          {
            color = 0;

            uint8_t c = SFG_TILE_CEILING_HEIGHT(tile) / 4;

            if (c != 0)
              color = (SFG_TILE_FLOOR_HEIGHT(tile) % 8 + 3) * 8 + c - 1;
          }
        }
      }

      for (int_fast16_t k = 0; k < SFG_MAP_PIXEL_SIZE; ++k)
        for (int_fast16_t l = 0; l < SFG_MAP_PIXEL_SIZE; ++l)
          SFG_setGamePixel(x + l, y + k,color);

      x += SFG_MAP_PIXEL_SIZE;
    }

    y += SFG_MAP_PIXEL_SIZE;
  } 
}

/**
  Draws fullscreen story text (intro/outro).
*/
void SFG_drawStoryText()
{
  const char *text = SFG_outroText;
  uint16_t textColor = 23;
  uint8_t clearColor = 9;
  uint8_t sprite = 18;

  if (SFG_currentLevel.levelNumber != (SFG_NUMBER_OF_LEVELS - 1)) // intro?  
  {
    text = SFG_introText;
    textColor = 7; 
    clearColor = 0;
    sprite = SFG_game.blink * 2;
  }
    
  SFG_clearScreen(clearColor);

  if (SFG_GAME_RESOLUTION_Y > 50) 
    SFG_blitImage(SFG_monsterSprites + sprite * SFG_TEXTURE_STORE_SIZE,
        (SFG_GAME_RESOLUTION_X - SFG_TEXTURE_SIZE * SFG_FONT_SIZE_SMALL) / 2,
        SFG_GAME_RESOLUTION_Y - (SFG_TEXTURE_SIZE + 3) * SFG_FONT_SIZE_SMALL,
        SFG_FONT_SIZE_SMALL);  

  uint16_t textLen = 0;

  while (text[textLen] != 0)
    textLen++;

  uint16_t drawLen = RCL_min(
    textLen,(SFG_game.stateTime * textLen) / SFG_STORYTEXT_DURATION + 1);

#define CHAR_SIZE (SFG_FONT_SIZE_SMALL * (SFG_FONT_CHARACTER_SIZE + 1))
#define LINE_LENGTH (SFG_GAME_RESOLUTION_X / CHAR_SIZE)
#define MAX_LENGTH (((SFG_GAME_RESOLUTION_Y / CHAR_SIZE) / 2) * LINE_LENGTH  )

  uint16_t drawShift = (drawLen < MAX_LENGTH) ? 0 :
    (((drawLen - MAX_LENGTH) / LINE_LENGTH) * LINE_LENGTH);

#undef CHAR_SIZE
#undef LINE_LENGTH
#undef MAX_LENGTH

  text += drawShift;
  drawLen -= drawShift;

  SFG_drawText(text,SFG_HUD_MARGIN,SFG_HUD_MARGIN,SFG_FONT_SIZE_SMALL,textColor,
    drawLen,SFG_GAME_RESOLUTION_X - SFG_HUD_MARGIN);
}

/**
  Draws a number as text on screen, returns the number of characters drawn.
*/
uint8_t SFG_drawNumber(
  int16_t number,
  uint16_t x,
  uint16_t y,
  uint8_t size,
  uint8_t color)
{
  char text[7];

  text[6] = 0; // terminate the string

  int8_t positive = 1;

  if (number < 0)
  {
    positive = 0;
    number *= -1;
  }

  int8_t position = 5;

  while (1)
  {
    text[position] = '0' + number % 10;
    number /= 10;

    position--;

    if (number == 0 || position == 0)
      break;
  }

  if (!positive)
  {
    text[position] = '-';
    position--;
  }

  SFG_drawText(text + position + 1,x,y,size,color,0,0);

  return 5 - position;
}

/**
  Draws a screen border that indicates something is happening, e.g. being hurt
  or taking an item.
*/
void SFG_drawIndicationBorder(uint16_t width, uint8_t color)
{
  for (int_fast16_t j = 0; j < width; ++j)
  {
    uint16_t j2 = SFG_GAME_RESOLUTION_Y - 1 - j;

    for (int_fast16_t i = 0; i < SFG_GAME_RESOLUTION_X; ++i)
    {
      if ((i & 0x01) == (j & 0x01))
      {
        SFG_setGamePixel(i,j,color);
        SFG_setGamePixel(i,j2,color);
      }
    }
  }

  for (int_fast16_t i = 0; i < width; ++i)
  {
    uint16_t i2 = SFG_GAME_RESOLUTION_X - 1 - i;

    for (int_fast16_t j = width; j < SFG_GAME_RESOLUTION_Y - width; ++j)
    {
      if ((i & 0x01) == (j & 0x01))
      {
        SFG_setGamePixel(i,j,color);
        SFG_setGamePixel(i2,j,color);
      }
    }
  }
}

/**
  Draws the player weapon, includes handling the shoot animation.
*/
void SFG_drawWeapon(int16_t bobOffset)
{
  uint32_t animationLength =
    RCL_max(SFG_MIN_WEAPON_COOLDOWN_FRAMES,
      SFG_GET_WEAPON_FIRE_COOLDOWN_FRAMES(SFG_player.weapon));

  uint32_t shotAnimationFrame =
    animationLength - SFG_player.weaponCooldownFrames;

  bobOffset -= SFG_HUD_BAR_HEIGHT;
     
  uint8_t fireType = SFG_GET_WEAPON_FIRE_TYPE(SFG_player.weapon);

  if (shotAnimationFrame < animationLength)
  {
    if (fireType == SFG_WEAPON_FIRE_TYPE_MELEE)
    {
      bobOffset = shotAnimationFrame < animationLength / 2 ? 0 :
        2 * SFG_WEAPONBOB_OFFSET_PIXELS;
    }
    else
    {
      bobOffset +=  
          ((animationLength - shotAnimationFrame) * SFG_WEAPON_IMAGE_SCALE * 20)
          / animationLength;
   
      if (
        ((fireType == SFG_WEAPON_FIRE_TYPE_FIREBALL) ||
         (fireType == SFG_WEAPON_FIRE_TYPE_BULLET)) &&
        shotAnimationFrame < animationLength / 2)
        SFG_blitImage(SFG_effectSprites,
          SFG_WEAPON_IMAGE_POSITION_X,
          SFG_WEAPON_IMAGE_POSITION_Y -
            (SFG_TEXTURE_SIZE / 3) * SFG_WEAPON_IMAGE_SCALE + bobOffset,
          SFG_WEAPON_IMAGE_SCALE);
    }
  }

  SFG_blitImage(SFG_weaponImages + SFG_player.weapon * SFG_TEXTURE_STORE_SIZE,
  SFG_WEAPON_IMAGE_POSITION_X,
  SFG_WEAPON_IMAGE_POSITION_Y + bobOffset - 1,
  SFG_WEAPON_IMAGE_SCALE);
}

uint16_t SFG_textLen(const char *text)
{
  uint16_t result = 0;

  while (text[result] != 0)
    result++;

  return result;
}

static inline uint16_t SFG_characterSize(uint8_t textSize)
{
  return (SFG_FONT_CHARACTER_SIZE + 1) * textSize;
}

static inline uint16_t
  SFG_textHorizontalSize(const char *text, uint8_t textSize)
{
  return (SFG_textLen(text) * SFG_characterSize(textSize));
}

void SFG_drawMenu()
{
  #define BACKGROUND_SCALE (SFG_GAME_RESOLUTION_X / (4 * SFG_TEXTURE_SIZE))

  #if BACKGROUND_SCALE == 0
    #undef BACKGROUND_SCALE
    #define BACKGROUND_SCALE 1
  #endif

  #define SCROLL_PIXELS_PER_FRAME ((64 * SFG_GAME_RESOLUTION_X) / (8 * SFG_FPS))

  #if SCROLL_PIXELS_PER_FRAME == 0
    #undef SCROLL_PIXELS_PER_FRAME
    #define SCROLL_PIXELS_PER_FRAME 1
  #endif

  #define SELECTION_START_X ((SFG_GAME_RESOLUTION_X - 12 * SFG_FONT_SIZE_MEDIUM\
    * (SFG_FONT_CHARACTER_SIZE + 1)) / 2)

  uint16_t scroll = (SFG_game.frame * SCROLL_PIXELS_PER_FRAME) / 64;

  for (uint16_t y = 0; y < SFG_GAME_RESOLUTION_Y; ++y)
    for (uint16_t x = 0; x < SFG_GAME_RESOLUTION_X; ++x)
      SFG_setGamePixel(x,y,
        (y >= (SFG_TEXTURE_SIZE * BACKGROUND_SCALE)) ? 0 :
        SFG_getTexel(SFG_backgroundImages,((x + scroll) / BACKGROUND_SCALE)
          % SFG_TEXTURE_SIZE,y / BACKGROUND_SCALE));

  uint16_t y = SFG_characterSize(SFG_FONT_SIZE_MEDIUM);

  SFG_blitImage(SFG_logoImage,
    SFG_GAME_RESOLUTION_X / 2 - 16 * SFG_FONT_SIZE_MEDIUM,y,
    SFG_FONT_SIZE_MEDIUM);

#if SFG_GAME_RESOLUTION_Y > 50
  y += 32 * SFG_FONT_SIZE_MEDIUM + SFG_characterSize(SFG_FONT_SIZE_MEDIUM);
#else
  y = 2;
#endif

  uint8_t i = 0;

  while (1) // draw menu items
  {
    uint8_t item = SFG_getMenuItem(i);

    if (item == SFG_MENU_ITEM_NONE)
      break;

#if (SFG_GAME_RESOLUTION_Y < 70) || SFG_FORCE_SINGLE_ITEM_MENU
    // with low resolution only display the selected item

    if (i != SFG_game.selectedMenuItem)
    {
      i++;
      continue;
    }
#endif

    const char *text = SFG_menuItemTexts[item];
    uint8_t textLen = SFG_textLen(text);

    uint16_t drawX = (SFG_GAME_RESOLUTION_X -
      SFG_textHorizontalSize(text,SFG_FONT_SIZE_MEDIUM)) / 2;

    uint8_t textColor = 7;

    if (i != SFG_game.selectedMenuItem)
      textColor = 23;
    else
      SFG_fillRectangle( // menu item highlight
        SELECTION_START_X,
        y - SFG_FONT_SIZE_MEDIUM,
        SFG_GAME_RESOLUTION_X - SELECTION_START_X * 2,
        SFG_characterSize(SFG_FONT_SIZE_MEDIUM),2);
  
    SFG_drawText(text,drawX,y,SFG_FONT_SIZE_MEDIUM,textColor,0,0);

    if ((item == SFG_MENU_ITEM_PLAY || item == SFG_MENU_ITEM_SOUND
         || item == SFG_MENU_ITEM_SHEAR) &&
        ((i != SFG_game.selectedMenuItem) || SFG_game.blink))
    {
      uint32_t x =
        drawX + SFG_characterSize(SFG_FONT_SIZE_MEDIUM) * (textLen + 1);

      uint8_t c = 93;

      if (item == SFG_MENU_ITEM_PLAY)
        SFG_drawNumber(SFG_game.selectedLevel + 1,x,y,SFG_FONT_SIZE_MEDIUM,c);
      else if (item == SFG_MENU_ITEM_SHEAR)
      {
        uint8_t n = (SFG_game.settings >> 2) & 0x03;

        SFG_drawNumber(n == 3 ? 2 : n,x,y,SFG_FONT_SIZE_MEDIUM,c);
      }
      else
      {
        char settingText[3] = "  ";

        settingText[0] = (SFG_game.settings & 0x01) ? 'S' : ' ';
        settingText[1] = (SFG_game.settings & 0x02) ? 'M' : ' ';

        SFG_drawText(settingText,x,y,SFG_FONT_SIZE_MEDIUM,c,0,0);
      }
    }

    y += SFG_characterSize(SFG_FONT_SIZE_MEDIUM) + SFG_FONT_SIZE_MEDIUM;
    i++;
  }
  
  SFG_drawText(SFG_VERSION_STRING " CC0",SFG_HUD_MARGIN,SFG_GAME_RESOLUTION_Y -
    SFG_HUD_MARGIN - SFG_FONT_SIZE_SMALL * SFG_FONT_CHARACTER_SIZE,
    SFG_FONT_SIZE_SMALL,4,0,0);

  #if SFG_OS_IS_MALWARE
    if (SFG_game.blink)
      SFG_drawText(SFG_MALWARE_WARNING,SFG_HUD_MARGIN,SFG_HUD_MARGIN,
        SFG_FONT_SIZE_MEDIUM,95,0,0);
  #endif

  #undef MAX_ITEMS
  #undef BACKGROUND_SCALE
  #undef SCROLL_PIXELS_PER_FRAME
}

void SFG_drawWinOverlay()
{
  uint32_t t = RCL_min(SFG_WIN_ANIMATION_DURATION,SFG_game.stateTime);

  uint32_t t2 = RCL_min(t,SFG_WIN_ANIMATION_DURATION / 4);

  #define STRIP_HEIGHT (SFG_GAME_RESOLUTION_Y / 2)
  #define INNER_STRIP_HEIGHT ((STRIP_HEIGHT * 3) / 4)
  #define STRIP_START ((SFG_GAME_RESOLUTION_Y - STRIP_HEIGHT) / 2)

  RCL_Unit l = (t2 * STRIP_HEIGHT * 4) / SFG_WIN_ANIMATION_DURATION;

  for (uint16_t y = STRIP_START; y < STRIP_START + l; ++y)
    for (uint16_t x = 0; x < SFG_GAME_RESOLUTION_X; ++x)
      SFG_setGamePixel(x,y, 
        RCL_abs(y - (SFG_GAME_RESOLUTION_Y / 2)) <= (INNER_STRIP_HEIGHT / 2) ?
          0 : 172);

  char textLine[] = SFG_TEXT_LEVEL_COMPLETE;

  uint16_t y = SFG_GAME_RESOLUTION_Y / 2 - 
    ((STRIP_HEIGHT + INNER_STRIP_HEIGHT) / 2) / 2;

  uint16_t x = (SFG_GAME_RESOLUTION_X - 
    SFG_textHorizontalSize(textLine,SFG_FONT_SIZE_BIG)) / 2;

  SFG_drawText(textLine,x,y,SFG_FONT_SIZE_BIG,7 + SFG_game.blink * 95,255,0);

  uint32_t timeTotal = SFG_SAVE_TOTAL_TIME;

  // don't show totals in level 1:
  uint8_t blink = (SFG_game.blink) && (SFG_currentLevel.levelNumber != 0)
    && (timeTotal != 0);

  if (t >= (SFG_WIN_ANIMATION_DURATION / 2))
  {
    y += (SFG_FONT_SIZE_BIG + SFG_FONT_SIZE_MEDIUM) * SFG_FONT_CHARACTER_SIZE;
    x = SFG_HUD_MARGIN;

    #define CHAR_SIZE (SFG_FONT_SIZE_SMALL * SFG_FONT_CHARACTER_SIZE)

    uint32_t time = blink ? timeTotal : SFG_currentLevel.completionTime10sOfS;

    x += SFG_drawNumber(time / 10,x,y,SFG_FONT_SIZE_SMALL,7) *
      CHAR_SIZE + SFG_FONT_SIZE_SMALL;

    char timeRest[5] = ".X s";

    timeRest[1] = '0' + (time % 10);
    
    SFG_drawText(timeRest,x,y,SFG_FONT_SIZE_SMALL,7,4,0);

    x = SFG_HUD_MARGIN;
    y += (SFG_FONT_SIZE_BIG + SFG_FONT_SIZE_MEDIUM) * SFG_FONT_CHARACTER_SIZE;

    if (blink)
    {
      x += (SFG_drawNumber(SFG_game.save[10] + SFG_game.save[11] * 256,x,y,
        SFG_FONT_SIZE_SMALL,7) + 1) * CHAR_SIZE;
    }
    else
    {
      x += SFG_drawNumber(SFG_currentLevel.monstersDead,x,y,
        SFG_FONT_SIZE_SMALL,7) * CHAR_SIZE;

      SFG_drawText("/",x,y,SFG_FONT_SIZE_SMALL,7,1,0);

      x += CHAR_SIZE;

      x += (SFG_drawNumber(SFG_currentLevel.monsterRecordCount,x,y,
        SFG_FONT_SIZE_SMALL,7) + 1) * CHAR_SIZE;
    }
    
    SFG_drawText(SFG_TEXT_KILLS,x,y,SFG_FONT_SIZE_SMALL,7,255,0);

    if ((t >= (SFG_WIN_ANIMATION_DURATION - 1)) && 
      (SFG_currentLevel.levelNumber != (SFG_NUMBER_OF_LEVELS - 1)) &&
      SFG_game.blink)
    {
      y += (SFG_FONT_SIZE_BIG + SFG_FONT_SIZE_MEDIUM) * SFG_FONT_CHARACTER_SIZE;

      SFG_drawText(SFG_TEXT_SAVE_PROMPT,
        (SFG_GAME_RESOLUTION_X - SFG_textHorizontalSize(SFG_TEXT_SAVE_PROMPT,
          SFG_FONT_SIZE_MEDIUM)) / 2,y,SFG_FONT_SIZE_MEDIUM,7,255,0);
    }

    #undef CHAR_SIZE
  }

  #undef STRIP_HEIGHT
  #undef STRIP_START
  #undef INNER_STRIP_HEIGHT
}

void SFG_draw()
{
#if SFG_BACKGROUND_BLUR != 0
  SFG_backgroundBlurIndex = 0;
#endif

  if (SFG_game.state == SFG_GAME_STATE_MENU)
  {
    SFG_drawMenu();
    return;
  }

  if (SFG_game.state == SFG_GAME_STATE_INTRO ||
      SFG_game.state == SFG_GAME_STATE_OUTRO)
  {
    SFG_drawStoryText();
    return;
  }

  if (SFG_keyIsDown(SFG_KEY_MAP) || (SFG_game.state == SFG_GAME_STATE_MAP))
  {
    SFG_drawMap();
  } 
  else
  { 
    for (int_fast16_t i = 0; i < SFG_Z_BUFFER_SIZE; ++i)
      SFG_game.zBuffer[i] = 255;

    int16_t weaponBobOffset = 0;

#if SFG_HEADBOB_ENABLED
    RCL_Unit headBobOffset = 0;

#if SFG_HEADBOB_SHEAR != 0
    int16_t headBobShearOffset = 0;
#endif

    if (SFG_game.state != SFG_GAME_STATE_LOSE)
    {
      RCL_Unit bobSin = RCL_sin(SFG_player.headBobFrame);

      headBobOffset = (bobSin * SFG_HEADBOB_OFFSET) / RCL_UNITS_PER_SQUARE;

#if SFG_HEADBOB_SHEAR != 0
      headBobShearOffset = (bobSin * SFG_HEADBOB_SHEAR) / RCL_UNITS_PER_SQUARE;
      SFG_player.camera.shear += headBobShearOffset;
#endif

      weaponBobOffset =
        (bobSin * SFG_WEAPONBOB_OFFSET_PIXELS) / (RCL_UNITS_PER_SQUARE) + 
        SFG_WEAPONBOB_OFFSET_PIXELS;
    }
    else
    {
      // player die animation

      weaponBobOffset =
        (SFG_WEAPON_IMAGE_SCALE * SFG_TEXTURE_SIZE * SFG_game.stateTime) /
        SFG_LOSE_ANIMATION_DURATION;
    }
      
    // add head bob just for the rendering (we'll will substract it back later)

    SFG_player.camera.height += headBobOffset;
#endif // headbob enabled?

    RCL_renderComplex(
      SFG_player.camera,
      SFG_floorHeightAt,
      SFG_ceilingHeightAt,
      SFG_texturesAt,
      SFG_game.rayConstraints);
 
    // draw sprites:

    // monster sprites:
    for (int_fast16_t i = 0; i < SFG_currentLevel.monsterRecordCount; ++i)
    {
      SFG_MonsterRecord m = SFG_currentLevel.monsterRecords[i];
      uint8_t state = SFG_MR_STATE(m);

      if (state != SFG_MONSTER_STATE_INACTIVE)
      {
        RCL_Vector2D worldPosition;

        worldPosition.x = SFG_MONSTER_COORD_TO_RCL_UNITS(m.coords[0]);
        worldPosition.y = SFG_MONSTER_COORD_TO_RCL_UNITS(m.coords[1]);

        uint8_t spriteSize = SFG_GET_MONSTER_SPRITE_SIZE(
          SFG_MONSTER_TYPE_TO_INDEX(SFG_MR_TYPE(m)));

        RCL_Unit worldHeight = 
          SFG_floorHeightAt(
            SFG_MONSTER_COORD_TO_SQUARES(m.coords[0]),
            SFG_MONSTER_COORD_TO_SQUARES(m.coords[1]))
            + SFG_SPRITE_SIZE_TO_HEIGHT_ABOVE_GROUND(spriteSize);

        RCL_PixelInfo p =
          RCL_mapToScreen(worldPosition,worldHeight,SFG_player.camera);

        if (p.depth > 0 &&
          SFG_spriteIsVisible(worldPosition,worldHeight))
        {
          const uint8_t *s =
            SFG_getMonsterSprite(
              SFG_MR_TYPE(m),
              state,
              SFG_game.spriteAnimationFrame & 0x01);

          SFG_drawScaledSprite(s,
            p.position.x * SFG_RAYCASTING_SUBSAMPLE,p.position.y,
            RCL_perspectiveScaleVertical(
            SFG_SPRITE_SIZE_PIXELS(spriteSize),
            p.depth),
            p.depth / (RCL_UNITS_PER_SQUARE * 2),p.depth);
        }
      }
    }

    // item sprites:
    for (int_fast16_t i = 0; i < SFG_currentLevel.itemRecordCount; ++i)
      if (SFG_currentLevel.itemRecords[i] & SFG_ITEM_RECORD_ACTIVE_MASK)
      {
        RCL_Vector2D worldPosition;

        SFG_LevelElement e = 
          SFG_currentLevel.levelPointer->elements[
            SFG_currentLevel.itemRecords[i] & ~SFG_ITEM_RECORD_ACTIVE_MASK];

        worldPosition.x =
          SFG_ELEMENT_COORD_TO_RCL_UNITS(e.coords[0]);

        worldPosition.y =
          SFG_ELEMENT_COORD_TO_RCL_UNITS(e.coords[1]);

        const uint8_t *sprite;
        uint8_t spriteSize;

        SFG_getItemSprite(e.type,&sprite,&spriteSize);

        if (sprite != 0)
        {
          RCL_Unit worldHeight = SFG_floorHeightAt(e.coords[0],e.coords[1])
            + SFG_SPRITE_SIZE_TO_HEIGHT_ABOVE_GROUND(spriteSize);

          RCL_PixelInfo p =
            RCL_mapToScreen(worldPosition,worldHeight,SFG_player.camera);

          if (p.depth > 0 &&
            SFG_spriteIsVisible(worldPosition,worldHeight))
            SFG_drawScaledSprite(sprite,p.position.x * SFG_RAYCASTING_SUBSAMPLE,
              p.position.y,
              RCL_perspectiveScaleVertical(SFG_SPRITE_SIZE_PIXELS(spriteSize),
              p.depth),p.depth / (RCL_UNITS_PER_SQUARE * 2),p.depth);
        }
      }

    // projectile sprites:
    for (uint8_t i = 0; i < SFG_currentLevel.projectileRecordCount; ++i)
    {
      SFG_ProjectileRecord *proj = &(SFG_currentLevel.projectileRecords[i]);

      if (proj->type == SFG_PROJECTILE_BULLET)
        continue; // bullets aren't drawn

      RCL_Vector2D worldPosition;

      worldPosition.x = proj->position[0];
      worldPosition.y = proj->position[1];

      RCL_PixelInfo p =
        RCL_mapToScreen(worldPosition,proj->position[2],SFG_player.camera);
       
      const uint8_t *s =
        SFG_effectSprites + proj->type * SFG_TEXTURE_STORE_SIZE;

      int16_t spriteSize = SFG_SPRITE_SIZE_PIXELS(0);

      if (proj->type == SFG_PROJECTILE_EXPLOSION ||
          proj->type == SFG_PROJECTILE_DUST)
      {
        int16_t doubleFramesToLive =
          RCL_nonZero(SFG_GET_PROJECTILE_FRAMES_TO_LIVE(proj->type) / 2);

        // grow the explosion/dust sprite as an animation
        spriteSize = (
            SFG_SPRITE_SIZE_PIXELS(2) *
            RCL_sin(          
              ((doubleFramesToLive -
               proj->doubleFramesToLive) * RCL_UNITS_PER_SQUARE / 4)
               / doubleFramesToLive) 
          ) / RCL_UNITS_PER_SQUARE;
      }

      if (p.depth > 0 && 
        SFG_spriteIsVisible(worldPosition,proj->position[2]))
        SFG_drawScaledSprite(s,
            p.position.x * SFG_RAYCASTING_SUBSAMPLE,p.position.y,
            RCL_perspectiveScaleVertical(spriteSize,p.depth),
            SFG_fogValueDiminish(p.depth),
            p.depth);  
    }

#if SFG_HEADBOB_ENABLED
    // after rendering sprites substract back the head bob offset
    SFG_player.camera.height -= headBobOffset;

#if SFG_HEADBOB_SHEAR != 0
    SFG_player.camera.shear -= headBobShearOffset;
#endif

#endif // head bob enabled?

#if SFG_PREVIEW_MODE == 0
    SFG_drawWeapon(weaponBobOffset);
#endif

    // draw HUD:

    // bar

    uint8_t color = 61;
    uint8_t color2 = 48;

    if (SFG_game.cheatState & 0x80)
    {
      color = 170;
      color2 = 0;
    }

    for (uint16_t j = SFG_GAME_RESOLUTION_Y - SFG_HUD_BAR_HEIGHT;
      j < SFG_GAME_RESOLUTION_Y; ++j)
    {
      for (uint16_t i = 0; i < SFG_GAME_RESOLUTION_X; ++i)
        SFG_setGamePixel(i,j,color);

      color = color2;
    }

    #define TEXT_Y (SFG_GAME_RESOLUTION_Y - SFG_HUD_MARGIN - \
      SFG_FONT_CHARACTER_SIZE * SFG_FONT_SIZE_MEDIUM)

    SFG_drawNumber( // health
      SFG_player.health,
      SFG_HUD_MARGIN,
      TEXT_Y,
      SFG_FONT_SIZE_MEDIUM,
      SFG_player.health > SFG_PLAYER_HEALTH_WARNING_LEVEL ? 6 : 175);

    SFG_drawNumber( // ammo
      SFG_player.weapon != SFG_WEAPON_KNIFE ?
        SFG_player.ammo[SFG_weaponAmmo(SFG_player.weapon)] : 0,
      SFG_GAME_RESOLUTION_X - SFG_HUD_MARGIN -
        (SFG_FONT_CHARACTER_SIZE + 1) * SFG_FONT_SIZE_MEDIUM * 3,
      TEXT_Y,
      SFG_FONT_SIZE_MEDIUM,
      6); 

    for (uint8_t i = 0; i < 3; ++i) // access cards
      if ( 
        ((SFG_player.cards >> i) | ((SFG_player.cards >> (i + 3))
        & SFG_game.blink)) & 0x01)
        SFG_fillRectangle(
          SFG_HUD_MARGIN + (SFG_FONT_CHARACTER_SIZE + 1) *
            SFG_FONT_SIZE_MEDIUM * (5 + i),
          TEXT_Y,
          SFG_FONT_SIZE_MEDIUM * SFG_FONT_CHARACTER_SIZE,
          SFG_FONT_SIZE_MEDIUM * SFG_FONT_CHARACTER_SIZE,
          i == 0 ? 93 : (i == 1 ? 124 : 60));

    #undef TEXT_Y

    // border indicator

    if ((SFG_game.frame - SFG_player.lastHurtFrame
        <= SFG_HUD_BORDER_INDICATOR_DURATION_FRAMES) ||
        (SFG_game.state == SFG_GAME_STATE_LOSE))
      SFG_drawIndicationBorder(SFG_HUD_BORDER_INDICATOR_WIDTH_PIXELS,
      SFG_HUD_HURT_INDICATION_COLOR);
    else if (SFG_game.frame - SFG_player.lastItemTakenFrame
        <= SFG_HUD_BORDER_INDICATOR_DURATION_FRAMES)
      SFG_drawIndicationBorder(SFG_HUD_BORDER_INDICATOR_WIDTH_PIXELS,
      SFG_HUD_ITEM_TAKEN_INDICATION_COLOR);

    if (SFG_game.state == SFG_GAME_STATE_WIN)
      SFG_drawWinOverlay();
    else if (SFG_game.state == SFG_GAME_STATE_LEVEL_START)
      SFG_drawLevelStartOverlay();
  }
}

uint8_t SFG_mainLoopBody()
{
  /* Standard deterministic game loop, independed of actual achieved FPS.
     Each game logic (physics) frame is performed with the SFG_MS_PER_FRAME
     delta time. */

  if (SFG_game.state != SFG_GAME_STATE_INIT)
  {
    uint32_t timeNow = SFG_getTimeMs();

#if SFG_TIME_MULTIPLIER != 1024
    timeNow = (timeNow * SFG_TIME_MULTIPLIER) / 1024;
#endif

    int32_t timeSinceLastFrame = timeNow - SFG_game.frameTime;

    if (timeSinceLastFrame >= SFG_MS_PER_FRAME)
    {
      uint8_t steps = 0;

      uint8_t wasFirstFrame = SFG_game.frame == 0;

      while (timeSinceLastFrame >= SFG_MS_PER_FRAME)
      {
        uint8_t previousWeapon = SFG_player.weapon;

        SFG_game.frameTime += SFG_MS_PER_FRAME;

        SFG_gameStep();

        if (SFG_player.weapon != previousWeapon)
          SFG_processEvent(SFG_EVENT_PLAYER_CHANGES_WEAPON,SFG_player.weapon);

        timeSinceLastFrame -= SFG_MS_PER_FRAME;

        SFG_game.frame++;
        steps++;
      }

      if ((steps > 1) && (SFG_game.antiSpam == 0) && (!wasFirstFrame))
      {
        SFG_LOG("failed to reach target FPS! consider setting a lower value")
        SFG_game.antiSpam = 30;
      }

      if (SFG_game.antiSpam > 0)
        SFG_game.antiSpam--;

      // render only once
      SFG_draw();

      if (SFG_game.frame % 16 == 0)
        SFG_CPU_LOAD(((SFG_getTimeMs() - timeNow) * 100) / SFG_MS_PER_FRAME);
    }
    else
    {
      // wait, relieve CPU
      SFG_sleepMs(RCL_max(1,
        (3 * (SFG_game.frameTime + SFG_MS_PER_FRAME - timeNow)) / 4));
    }
  }
  else if (!SFG_keyPressed(SFG_KEY_A) && !SFG_keyPressed(SFG_KEY_B))
  {
    /* At the beginning we have to wait for the release of the keys in order not
    to immediatelly confirm a menu item. */
    SFG_setGameState(SFG_GAME_STATE_MENU);
  }

  return SFG_game.continues;
}

#undef SFG_SAVE_TOTAL_TIME

#endif // guard
main_sdl.c
/**
  @file main_sdl.c

  This is an SDL2 implementation of the game front end. It can be used to
  compile a native executable or a transpiled JS browser version with
  emscripten.

  This frontend is not strictly minimal, it could be reduced a lot. If you want
  a learning example of frontend, look at another, simpler one, e.g. terminal.

  To compile with emscripten run:

  emcc ./main_sdl.c -s USE_SDL=2 -O3 --shell-file HTMLshell.html -o game.html

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is to
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#if defined(_WIN32) || defined(WIN32) || defined(__WIN32__) || defined(__NT__) || defined(__APPLE__)
  #define SFG_OS_IS_MALWARE 1
#endif

 #define SFG_START_LEVEL 1
// #define SFG_QUICK_WIN 1
// #define SFG_IMMORTAL 1
// #define SFG_ALL_LEVELS 1
// #define SFG_UNLOCK_DOOR 1
// #define SFG_REVEAL_MAP 1
// #define SFG_INFINITE_AMMO 1
// #define SFG_TIME_MULTIPLIER 512
// #define SFG_CPU_LOAD(percent) printf("CPU load: %d%\n",percent);
// #define GAME_LQ

#ifndef __EMSCRIPTEN__
  #ifndef GAME_LQ
    // higher quality
    #define SFG_FPS 60
    #define SFG_LOG(str) puts(str);
    #define SFG_SCREEN_RESOLUTION_X 700
    #define SFG_SCREEN_RESOLUTION_Y 512
    #define SFG_DITHERED_SHADOW 1
    #define SFG_DIMINISH_SPRITES 1
    #define SFG_HEADBOB_SHEAR (-1 * SFG_SCREEN_RESOLUTION_Y / 80)
    #define SFG_BACKGROUND_BLUR 1
  #else
    // lower quality
    #define SFG_FPS 35
    #define SFG_SCREEN_RESOLUTION_X 640
    #define SFG_SCREEN_RESOLUTION_Y 480
    #define SFG_RAYCASTING_SUBSAMPLE 2
    #define SFG_RESOLUTION_SCALEDOWN 2
    #define SFG_LOG(str) puts(str);
    #define SFG_DIMINISH_SPRITES 0
    #define SFG_DITHERED_SHADOW 0
    #define SFG_BACKGROUND_BLUR 0
    #define SFG_RAYCASTING_MAX_STEPS 18
    #define SFG_RAYCASTING_MAX_HITS 8
  #endif
#else
  // emscripten
  #define SFG_FPS 35
  #define SFG_SCREEN_RESOLUTION_X 512
  #define SFG_SCREEN_RESOLUTION_Y 320
  #define SFG_CAN_EXIT 0
  #define SFG_RESOLUTION_SCALEDOWN 2
  #define SFG_DITHERED_SHADOW 1
  #define SFG_BACKGROUND_BLUR 0
  #define SFG_RAYCASTING_MAX_STEPS 18
  #define SFG_RAYCASTING_MAX_HITS 8

  #include <emscripten.h>
#endif

/*
  SDL is easier to play thanks to nice controls so make the player take full
  damage to make it a bit harder.
*/
#define SFG_PLAYER_DAMAGE_MULTIPLIER 1024

#define SDL_MUSIC_VOLUME 16

#if !SFG_OS_IS_MALWARE
  #include <signal.h>
#endif

#define SDL_MAIN_HANDLED 1

#include <stdio.h>
#include <unistd.h>
#include <SDL2/SDL.h>

#include "game.h"
#include "sounds.h"

const uint8_t *sdlKeyboardState;
uint8_t webKeyboardState[SFG_KEY_COUNT];
uint8_t sdlMouseButtonState = 0;
int8_t sdlMouseWheelState = 0;

uint16_t sdlScreen[SFG_SCREEN_RESOLUTION_X * SFG_SCREEN_RESOLUTION_Y]; // RGB565

SDL_Window *window;
SDL_Renderer *renderer;
SDL_Texture *texture;
SDL_Surface *screenSurface;

// now implement the Anarch API functions (SFG_*)

void SFG_setPixel(uint16_t x, uint16_t y, uint8_t colorIndex)
{
  sdlScreen[y * SFG_SCREEN_RESOLUTION_X + x] = paletteRGB565[colorIndex];
}

uint32_t SFG_getTimeMs()
{
  return SDL_GetTicks();
}

void SFG_save(uint8_t data[SFG_SAVE_SIZE])
{
  FILE *f = fopen("anarch.sav","wb");

  puts("SDL: opening and writing save file");

  if (f == NULL)
  {
    puts("SDL: could not open the file!");
    return;
  }

  fwrite(data,1,SFG_SAVE_SIZE,f);

  fclose(f);
}

uint8_t SFG_load(uint8_t data[SFG_SAVE_SIZE])
{
#ifndef __EMSCRIPTEN__
  FILE *f = fopen("anarch.sav","rb");

  puts("SDL: opening and reading save file");

  if (f == NULL)
  {
    puts("SDL: no save file to open");
  }
  else
  {
    fread(data,1,SFG_SAVE_SIZE,f);
    fclose(f);
  }

  return 1;
#else
  // no saving for web version
  return 0;
#endif
}

void SFG_sleepMs(uint16_t timeMs)
{
#ifndef __EMSCRIPTEN__
  usleep(timeMs * 1000);
#endif
}

#ifdef __EMSCRIPTEN__
void webButton(uint8_t key, uint8_t down) // HTML button pressed
{
  webKeyboardState[key] = down;
}
#endif

int8_t mouseMoved = 0; /* Whether the mouse has moved since program started,
                          this is needed to fix an SDL limitation. */

void SFG_getMouseOffset(int16_t *x, int16_t *y)
{
#ifndef __EMSCRIPTEN__
  if (mouseMoved)
  {

  int mX, mY;

  SDL_GetMouseState(&mX,&mY);

  *x = mX - SFG_SCREEN_RESOLUTION_X / 2;
  *y = mY - SFG_SCREEN_RESOLUTION_Y / 2;

  SDL_WarpMouseInWindow(window,
    SFG_SCREEN_RESOLUTION_X / 2, SFG_SCREEN_RESOLUTION_Y / 2);
  }
#endif
}

void SFG_processEvent(uint8_t event, uint8_t data)
{
}

int8_t SFG_keyPressed(uint8_t key)
{
  if (webKeyboardState[key]) // this only takes effect in the web version 
    return 1;

  #define k(x) sdlKeyboardState[SDL_SCANCODE_ ## x]

  switch (key)
  {
    case SFG_KEY_UP: return k(UP) || k(W) || k(KP_8); break;
    case SFG_KEY_RIGHT: return k(RIGHT) || k(E) || k(KP_6); break;
    case SFG_KEY_DOWN: return k(DOWN) || k(S) || k(KP_5) || k(KP_2); break;
    case SFG_KEY_LEFT: return k(LEFT) || k(Q) || k(KP_4); break;
    case SFG_KEY_A: return k(J) || k(RETURN) || k(LCTRL) || k(RCTRL) ||
                    (sdlMouseButtonState & SDL_BUTTON_LMASK); break;
    case SFG_KEY_B: return k(K) || k(LSHIFT); break;
    case SFG_KEY_C: return k(L); break;
    case SFG_KEY_JUMP: return k(SPACE); break;
    case SFG_KEY_STRAFE_LEFT: return k(A) || k(KP_7); break;
    case SFG_KEY_STRAFE_RIGHT: return k(D) || k(KP_9); break;
    case SFG_KEY_MAP: return k(TAB); break;
    case SFG_KEY_CYCLE_WEAPON: return k(F) ||
                               (sdlMouseButtonState & SDL_BUTTON_MMASK); break;
    case SFG_KEY_TOGGLE_FREELOOK: return sdlMouseButtonState & SDL_BUTTON_RMASK;
                                  break;
    case SFG_KEY_NEXT_WEAPON:
      if (k(P) || k(X))
        return 1;

#define checkMouse(cmp)\
  if (sdlMouseWheelState cmp 0) { sdlMouseWheelState = 0; return 1; }

      checkMouse(>)
        
      return 0;
      break;

    case SFG_KEY_PREVIOUS_WEAPON:
      if (k(O) || k(Y) || k(Z))
        return 1;

      checkMouse(<)

#undef checkMouse
        
      return 0;
      break;

    case SFG_KEY_MENU: return k(ESCAPE); break;

    default: return 0; break;
  }
}
  
int running;

void mainLoopIteration()
{
  SDL_Event event;

#ifdef __EMSCRIPTEN__
  // hack, without it sound won't work because of shitty browser audio policies

  if (SFG_game.frame % 512 == 0)
    SDL_PauseAudio(0);
#endif

  while (SDL_PollEvent(&event)) // also automatically updates sdlKeyboardState
  {
    if (event.type == SDL_MOUSEWHEEL)
    {
      if (event.wheel.y > 0)      // scroll up
        sdlMouseWheelState = 1;
      else if (event.wheel.y < 0) // scroll down
        sdlMouseWheelState = -1;
    }
    else if (event.type == SDL_QUIT)
      running = 0;
    else if (event.type == SDL_MOUSEMOTION)
      mouseMoved = 1; 
  }

  sdlMouseButtonState = SDL_GetMouseState(NULL,NULL);

  if (!SFG_mainLoopBody())
    running = 0;

  SDL_UpdateTexture(texture,NULL,sdlScreen,
    SFG_SCREEN_RESOLUTION_X * sizeof(uint16_t));

  SDL_RenderClear(renderer);
  SDL_RenderCopy(renderer,texture,NULL,NULL);
  SDL_RenderPresent(renderer);
}

#ifdef __EMSCRIPTEN__
typedef void (*em_callback_func)(void);
void emscripten_set_main_loop(
       em_callback_func func, int fps, int simulate_infinite_loop);
#endif

uint16_t audioBuff[SFG_SFX_SAMPLE_COUNT];
uint16_t audioPos = 0; // audio position for the next audio buffer fill
uint32_t audioUpdateFrame = 0; // game frame at which audio buffer fill happened

static inline int16_t mixSamples(int16_t sample1, int16_t sample2)
{
  return sample1 + sample2;
}

uint8_t musicOn = 0;
// ^ this has to be init to 0 (not 1), else a few samples get played at start

void audioFillCallback(void *userdata, uint8_t *s, int l)
{
  uint16_t *s16 = (uint16_t *) s;

  for (int i = 0; i < l / 2; ++i)
  {
    s16[i] = musicOn ?
      mixSamples(audioBuff[audioPos], SDL_MUSIC_VOLUME *
      (SFG_getNextMusicSample() - SFG_musicTrackAverages[SFG_MusicState.track]))
      : audioBuff[audioPos];

    audioBuff[audioPos] = 0;
    audioPos = (audioPos < SFG_SFX_SAMPLE_COUNT - 1) ? (audioPos + 1) : 0;
  }

  audioUpdateFrame = SFG_game.frame;
}

void SFG_setMusic(uint8_t value)
{
  switch (value)
  {
    case SFG_MUSIC_TURN_ON: musicOn = 1; break;
    case SFG_MUSIC_TURN_OFF: musicOn = 0; break;
    case SFG_MUSIC_NEXT: SFG_nextMusicTrack(); break;
    default: break;
  }
}

void SFG_playSound(uint8_t soundIndex, uint8_t volume)
{
  uint16_t pos = (audioPos +
    ((SFG_game.frame - audioUpdateFrame) * SFG_MS_PER_FRAME * 8)) %
    SFG_SFX_SAMPLE_COUNT;

  uint16_t volumeScale = 1 << (volume / 37);

  for (int i = 0; i < SFG_SFX_SAMPLE_COUNT; ++i)
  {
    audioBuff[pos] = mixSamples(audioBuff[pos], 
      (128 - SFG_GET_SFX_SAMPLE(soundIndex,i)) * volumeScale);

    pos = (pos < SFG_SFX_SAMPLE_COUNT - 1) ? (pos + 1) : 0;
  }
}

void handleSignal(int signal)
{
  running = 0;
}

int main(int argc, char *argv[])
{
  uint8_t argHelp = 0;
  uint8_t argForceWindow = 0;
  uint8_t argForceFullscreen = 0;

#ifndef __EMSCRIPTEN__
  argForceFullscreen = 1;
#endif

  for (uint8_t i = 0; i < SFG_KEY_COUNT; ++i)
    webKeyboardState[i] = 0;

  for (uint8_t i = 1; i < argc; ++i)
  {
    if (argv[i][0] == '-' && argv[i][1] == 'h' && argv[i][2] == 0)
      argHelp = 1;
    else if (argv[i][0] == '-' && argv[i][1] == 'w' && argv[i][2] == 0)       
      argForceWindow = 1;
    else if (argv[i][0] == '-' && argv[i][1] == 'f' && argv[i][2] == 0)       
      argForceFullscreen = 1;
    else
      puts("SDL: unknown argument"); 
  }

  if (argHelp)
  {
    puts("Anarch (SDL), version " SFG_VERSION_STRING "\n");
    puts("Anarch is a unique suckless FPS game. Collect weapons and items and destroy");
    puts("robot enemies in your way in order to get to the level finish. Some door are");
    puts("locked and require access cards. Good luck!\n");
    puts("created by Miloslav \"drummyfish\" Ciz, 2020, released under CC0 1.0 (public domain)\n");
    puts("CLI flags:\n");
    puts("-h   print this help and exit");
    puts("-w   force window");
    puts("-f   force fullscreen\n");
    puts("controls:\n");
    puts("- arrows, numpad, [W] [S] [A] [D] [Q] [E]: movement");
    puts("- mouse: rotation, [LMB] shoot, [RMB] toggle free look");
    puts("- [SPACE]: jump");
    puts("- [J] [RETURN] [CTRL] [LMB]: game A button (shoot, confirm)");
    puts("- [K] [SHIFT]: game B button (cancel, strafe)");
    puts("- [L]: game C button (+ down = menu, + up = jump, ...)");
    puts("- [F]: cycle next/previous weapon");
    puts("- [O] [P] [X] [Y] [Z] [mouse wheel] [mouse middle]: change weapons");
    puts("- [TAB]: map");
    puts("- [ESCAPE]: menu");

    return 0;
  }

  SFG_init();

  puts("SDL: initializing SDL");

  window =
    SDL_CreateWindow("Anarch", SDL_WINDOWPOS_UNDEFINED,
    SDL_WINDOWPOS_UNDEFINED, SFG_SCREEN_RESOLUTION_X, SFG_SCREEN_RESOLUTION_Y,
    SDL_WINDOW_SHOWN); 

  renderer = SDL_CreateRenderer(window,-1,0);

  texture =
    SDL_CreateTexture(renderer,SDL_PIXELFORMAT_RGB565,SDL_TEXTUREACCESS_STATIC,
    SFG_SCREEN_RESOLUTION_X,SFG_SCREEN_RESOLUTION_Y);

  screenSurface = SDL_GetWindowSurface(window);

#if SFG_FULLSCREEN
  argForceFullscreen = 1;
#endif

  if (!argForceWindow && argForceFullscreen)
  {
    puts("SDL: setting fullscreen");
    SDL_SetWindowFullscreen(window,SDL_WINDOW_FULLSCREEN_DESKTOP);
  }

  sdlKeyboardState = SDL_GetKeyboardState(NULL);

  SDL_Init(SDL_INIT_AUDIO);

#if !SFG_OS_IS_MALWARE
  signal(SIGINT,handleSignal);
  signal(SIGQUIT,handleSignal);
  signal(SIGTERM,handleSignal);
#endif

  SDL_AudioSpec audioSpec;

  SDL_memset(&audioSpec, 0, sizeof(audioSpec));
  audioSpec.callback = audioFillCallback;
  audioSpec.freq = 8000;
  audioSpec.format = AUDIO_S16;
  audioSpec.channels = 1;
#ifdef __EMSCRIPTEN__
  audioSpec.samples = 1024;
#else
  audioSpec.samples = 256;
#endif

  if (SDL_OpenAudio(&audioSpec,NULL) < 0)
    puts("SDL: could not initialize audio");

  for (int16_t i = 0; i < SFG_SFX_SAMPLE_COUNT; ++i)
    audioBuff[i] = 0;

  SDL_PauseAudio(0);

  running = 1;

  SDL_ShowCursor(0);

  SDL_PumpEvents();

  SDL_WarpMouseInWindow(window,
    SFG_SCREEN_RESOLUTION_X / 2, SFG_SCREEN_RESOLUTION_Y / 2);

#ifdef __EMSCRIPTEN__
  emscripten_set_main_loop(mainLoopIteration,0,1);
#else
  while (running)
    mainLoopIteration();
#endif

  puts("SDL: freeing SDL");

  SDL_PauseAudio(1);
  SDL_CloseAudio();
  SDL_DestroyTexture(texture);
  SDL_DestroyRenderer(renderer); 
  SDL_DestroyWindow(window); 

  puts("SDL: ending");

  return 0;
}
settings.h
/**
  @file settings.h

  This file contains settings (or setting hints) for the game. Values here can
  fine tune performance vs quality and personalize the final compiled game. Some
  of these settings may be overriden by the specific platform used according to
  its limitations. You are advised to NOT change value in this file directly,
  but rather predefine them somewhere before this file gets included, e.g. in
  you personal settings file.

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is to
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#ifndef _SFG_SETTINGS_H
#define _SFG_SETTINGS_H

/**
  Time multiplier in SFG_Units (1.0 == 1024). This can be used to slow down or
  speed up the game. Note that this also changes the rendering FPS accordingly
  (e.g. half FPS at half speed), so if you want to keep the FPS, divide it by
  the multiplier value.
*/
#ifndef SFG_TIME_MULTIPLIER
  #define SFG_TIME_MULTIPLIER 1024
#endif

/**
  Target FPS (frames per second). This sets the game logic FPS and will try to
  render at the same rate. If such fast rendering can't be achieved, frames will
  be droped, but the game logic will still be forced to run at this speed, so
  the game may actually become slowed down if FPS is set too high. Too high or
  too low FPS can also negatively affect game speeds which are computed as
  integers and rounding errors can occur soon, so don't set this to extreme
  values (try to keep between 20 to 100). FPS also determines the game
  simulation step length, so different FPS values may result in very slight
  differences in game behavior (not very noticeable but affecting demos etc.).
*/
#ifndef SFG_FPS
  #define SFG_FPS 60
#endif

/**
  On platforms with mouse this sets its horizontal sensitivity. 128 means 1
  RCL_Unit turn angle per mouse pixel travelled.
*/
#ifndef SFG_MOUSE_SENSITIVITY_HORIZONTAL
  #define SFG_MOUSE_SENSITIVITY_HORIZONTAL 32
#endif

/**
  Like SFG_MOUSE_SENSITIVITY_HORIZONTAL but for vertical look. 128 means 1
  shear pixel per mouse pixel travelled.
*/
#ifndef SFG_MOUSE_SENSITIVITY_VERTICAL
  #define SFG_MOUSE_SENSITIVITY_VERTICAL 64
#endif

/**
  Width of the screen in pixels. Set this to ACTUAL resolution. If you want the
  game to run at smaller resolution (with bigger pixels), do this using
  SFG_RESOLUTION_SCALEDOWN. 
*/
#ifndef SFG_SCREEN_RESOLUTION_X
  #define SFG_SCREEN_RESOLUTION_X 800
#endif

/**
  Like SFG_SCREEN_RESOLUTION_X, but for y resolution.
*/
#ifndef SFG_SCREEN_RESOLUTION_Y
  #define SFG_SCREEN_RESOLUTION_Y 600
#endif

/**
  How quickly player turns left/right, in degrees per second.
*/
#ifndef SFG_PLAYER_TURN_SPEED
  #define SFG_PLAYER_TURN_SPEED 180
#endif

/**
  Horizontal FOV (field of vision) in RCL_Units (1024 means 360 degrees).
*/
#ifndef SFG_FOV_HORIZONTAL
  #define SFG_FOV_HORIZONTAL 256
#endif

/**
  Like SFG_FOV_HORIZONTAL but for vertical angle.
*/
#ifndef SFG_FOV_VERTICAL
  #define SFG_FOV_VERTICAL 330
#endif

/**
  Distance, in RCL_Units, to which textures will be drawn. Textures behind this
  distance will be replaced by an average constant color, which maybe can help
  performance and also serves as an antialiasim (2 level MIP map). Value 0 turns
  texturing completely off, which is much faster than having just a low value,
  values >= 65535 activate texturing completely, which can be a little faster
  than setting having a high value lower than this limit.
*/
#ifndef SFG_TEXTURE_DISTANCE
  #define SFG_TEXTURE_DISTANCE 100000
#endif

/**
  How many times the screen resolution will be divided (how many times a game
  pixel will be bigger than the screen pixel).
*/
#ifndef SFG_RESOLUTION_SCALEDOWN
  #define SFG_RESOLUTION_SCALEDOWN 1
#endif

/**
  Multiplier, in RCL_Units (1024 == 1.0), of the damager player takes. This can
  be used to balance difficulty.
*/
#ifndef SFG_PLAYER_DAMAGE_MULTIPLIER
  #define SFG_PLAYER_DAMAGE_MULTIPLIER 512
#endif

/**
  Hint as to whether to run in fullscreen, if the platform allows it.
*/
#ifndef SFG_FULLSCREEN
  #define SFG_FULLSCREEN 0
#endif

/**
  Whether shadows (fog) should be dithered, i.e. more smooth (needs a bit more
  CPU performance and memory).
*/
#ifndef SFG_DITHERED_SHADOW
  #define SFG_DITHERED_SHADOW 0
#endif

/**
  Depth step (in RCL_Units) after which fog diminishes a color by one value
  point. For performance reasons this number should be kept a power of two!
*/
#ifndef SFG_FOG_DIMINISH_STEP
  #define SFG_FOG_DIMINISH_STEP 2048
#endif

/**
  Maximum number of squares that will be traversed by any cast ray. Smaller
  number is faster but can cause visual artifacts.
*/
#ifndef SFG_RAYCASTING_MAX_STEPS
  #define SFG_RAYCASTING_MAX_STEPS 30
#endif

/**
  Maximum number of hits any cast ray will register. Smaller number is faster
  but can cause visual artifacts.
*/
#ifndef SFG_RAYCASTING_MAX_HITS
  #define SFG_RAYCASTING_MAX_HITS 10
#endif

/**
  Same as SFG_RAYCASTING_MAX_STEPS but for visibility rays that are used to
  check whether sprites are visible etc.
*/
#ifndef SFG_RAYCASTING_VISIBILITY_MAX_STEPS
  #if SFG_RAYCASTING_MAX_STEPS < 15
    #define SFG_RAYCASTING_VISIBILITY_MAX_STEPS 15
  #else
    #define SFG_RAYCASTING_VISIBILITY_MAX_STEPS SFG_RAYCASTING_MAX_STEPS
  #endif
#endif

/**
  Same as SFG_RAYCASTING_MAX_HITS but for visibility rays that are used to check
  whether sprites are visible etc.
*/
#ifndef SFG_RAYCASTING_VISIBILITY_MAX_HITS
  #if SFG_RAYCASTING_MAX_HITS < 6
    #define SFG_RAYCASTING_VISIBILITY_MAX_HITS 6
  #else
    #define SFG_RAYCASTING_VISIBILITY_MAX_HITS SFG_RAYCASTING_MAX_HITS
  #endif
#endif

/**
  How many times rendering should be subsampled horizontally. Bigger number
  can significantly improve performance (by casting fewer rays), but can look
  a little worse. This number should be a divisor of SFG_SCREEN_RESOLUTION_X!
*/
#ifndef SFG_RAYCASTING_SUBSAMPLE
  #define SFG_RAYCASTING_SUBSAMPLE 1
#endif

/**
  Enables or disables fog (darkness) due to distance. Recommended to keep on
  for good look, but can be turned off for performance.
*/
#ifndef SFG_ENABLE_FOG
  #define SFG_ENABLE_FOG 1
#endif

/**
  Says whether sprites should diminish in fog. This takes more performance but
  looks better.
*/
#ifndef SFG_DIMINISH_SPRITES
  #define SFG_DIMINISH_SPRITES 1
#endif

/**
  How quick player head bob is, 1024 meaning once per second. 0 Means turn off
  head bob.
*/
#ifndef SFG_HEADBOB_SPEED
  #define SFG_HEADBOB_SPEED 900
#endif

/**
  Sets head bob offset, in RCL_UNITS_PER_SQUARE. 0 Means turn off head bob.
*/
#ifndef SFG_HEADBOB_OFFSET
  #define SFG_HEADBOB_OFFSET 200
#endif

/**
  If head bob is on, this additionally sets additional camera shear bob, in
  pixels, which can make bobbing look more "advanced". 0 turns this option off.
*/
#ifndef SFG_HEADBOB_SHEAR
  #define SFG_HEADBOB_SHEAR 0
#endif

/**
  Weapon bobbing offset in weapon image pixels.
*/
#ifndef SFG_WEAPONBOB_OFFSET
  #define SFG_WEAPONBOB_OFFSET 4 
#endif

/**
  Camera shearing (looking up/down) speed, in vertical resolutions per second.
*/
#ifndef SFG_CAMERA_SHEAR_SPEED
  #define SFG_CAMERA_SHEAR_SPEED 3
#endif

/**
  Maximum camera shear (vertical angle). 1024 means 1.0 * vertical resolution.
*/
#ifndef SFG_CAMERA_MAX_SHEAR
  #define SFG_CAMERA_MAX_SHEAR 1024
#endif

/**
  Specifies how quick some sprite animations are, in frames per second.
*/
#ifndef SFG_SPRITE_ANIMATION_SPEED
  #define SFG_SPRITE_ANIMATION_SPEED 4
#endif

/**
  How wide the border indicator is, in fractions of screen width.
*/
#ifndef SFG_HUD_BORDER_INDICATOR_WIDTH
  #define SFG_HUD_BORDER_INDICATOR_WIDTH 32
#endif

/**
  For how long border indication (being hurt etc.) stays shown, in ms.
*/
#ifndef SFG_HUD_BORDER_INDICATOR_DURATION
  #define SFG_HUD_BORDER_INDICATOR_DURATION 500
#endif

/**
  Color (palette index) by which being hurt is indicated.
*/
#ifndef SFG_HUD_HURT_INDICATION_COLOR
  #define SFG_HUD_HURT_INDICATION_COLOR 175
#endif

/**
  Color (palette index) by which taking an item is indicated.
*/
#ifndef SFG_HUD_ITEM_TAKEN_INDICATION_COLOR
  #define SFG_HUD_ITEM_TAKEN_INDICATION_COLOR 207
#endif

/**
  How many element (items, monsters, ...) distances will be checked per frame
  for distance. Higher value may decrease performance a tiny bit, but things
  will react more quickly and appear less "out of thin air".
*/
#ifndef SFG_ELEMENT_DISTANCES_CHECKED_PER_FRAME
  #define SFG_ELEMENT_DISTANCES_CHECKED_PER_FRAME 8
#endif

/**
  Maximum distance at which sound effects (SFX) will be played. The SFX volume
  will gradually drop towards this distance.
*/
#ifndef SFG_SFX_MAX_DISTANCE
  #define SFG_SFX_MAX_DISTANCE (1024 * 60)
#endif

/**
  Says the intensity of background image blur. 0 means no blur, which improves
  performance and lowers memory usage. Blur doesn't look very good in small
  resolutions.
*/
#ifndef SFG_BACKGROUND_BLUR
  #define SFG_BACKGROUND_BLUR 0
#endif

/**
  Defines the period, in ms, of things that blink, such as text.
*/
#ifndef SFG_BLINK_PERIOD
  #define SFG_BLINK_PERIOD 500
#endif

/**
  Probability (0 - 255) of how often a monster makes sound during movement.
*/
#ifndef SFG_MONSTER_SOUND_PROBABILITY
  #define SFG_MONSTER_SOUND_PROBABILITY 64
#endif

/**
  Affects how precise monsters are in aiming, specify random range in
  fourths of a game square. Should be power of 2 for performance.
*/
#ifndef SFG_MONSTER_AIM_RANDOMNESS
  #define SFG_MONSTER_AIM_RANDOMNESS 4
#endif

/// Color 1 index of player on map.
#ifndef SFG_MAP_PLAYER_COLOR1
  #define SFG_MAP_PLAYER_COLOR1 93
#endif

/// Color 2 index of player on map.
#ifndef SFG_MAP_PLAYER_COLOR2
  #define SFG_MAP_PLAYER_COLOR2 111
#endif

/// Color index of elevators on map.
#ifndef SFG_MAP_ELEVATOR_COLOR
  #define SFG_MAP_ELEVATOR_COLOR 214
#endif

/// Color index of squeezers on map.
#ifndef SFG_MAP_SQUEEZER_COLOR
  #define SFG_MAP_SQUEEZER_COLOR 246
#endif

/// Color index of door on map.
#ifndef SFG_MAP_DOOR_COLOR
  #define SFG_MAP_DOOR_COLOR 188
#endif

/**
  Boolean value indicating whether current OS is malware.
*/
#ifndef SFG_OS_IS_MALWARE
  #define SFG_OS_IS_MALWARE 0
#endif

/**
  Angle difference, as a cos value in RCL_Units, between the player and a
  monster, at which vertical autoaim will trigger. If the angle is greater, a
  shot will go directly forward.
*/
#ifndef SFG_VERTICAL_AUTOAIM_ANGLE_THRESHOLD
  #define SFG_VERTICAL_AUTOAIM_ANGLE_THRESHOLD 50
#endif

/**
  Byte (0 - 255) volume of the menu click sound.
*/
#ifndef SFG_MENU_CLICK_VOLUME
  #define SFG_MENU_CLICK_VOLUME 220
#endif

/**
  Says whether the exit item should be showed in the menu. Platforms that can't
  exit (such as some gaming consoles that simply use power off button) can
  define this to 0.
*/
#ifndef SFG_CAN_EXIT
  #define SFG_CAN_EXIT 1
#endif

/**
  On Arduino platforms this should be set to 1. That will cause some special
  treatment regarding constant variables and PROGMEM.
*/
#ifndef SFG_ARDUINO
  #define SFG_ARDUINO 0
#endif

/**
  Whether levels background (in distance or transparent wall textures) should
  be drawn. If turned off, the background will be constant color, which can 
  noticably increase performance.
*/
#ifndef SFG_DRAW_LEVEL_BACKGROUND
  #define SFG_DRAW_LEVEL_BACKGROUND 1
#endif

/**
  Says the size, in pixels, of a sprite when it is closest to the camera, which
  is the maximum size that can be drawn. Sprites on "weird" aspect ratios can
  look weirdly scaled, so this option can be used to fix that (typically set
  horizontal screen resolution instead of vertical).
*/
#ifndef SFG_SPRITE_MAX_SIZE
  #define SFG_SPRITE_MAX_SIZE \
    (SFG_SCREEN_RESOLUTION_Y / SFG_RESOLUTION_SCALEDOWN)
#endif

/**
  If set, single item menu will be forced.
*/
#ifndef SFG_FORCE_SINGLE_ITEM_MENU
  #define SFG_FORCE_SINGLE_ITEM_MENU 0
#endif

//------ developer/debug settings ------

/**
  Developer cheat for having infinite ammo in all weapons.
*/
#ifndef SFG_INFINITE_AMMO
  #define SFG_INFINITE_AMMO 0
#endif

/**
  Developer cheat for immortality.
*/
#ifndef SFG_IMMORTAL
  #define SFG_IMMORTAL 0
#endif

/**
  Developer setting, with 1 every level is won immediately after start.
*/
#ifndef SFG_QUICK_WIN
  #define SFG_QUICK_WIN 0
#endif

/**
  Reveals all levels to be played.
*/
#ifndef SFG_ALL_LEVELS
  #define SFG_ALL_LEVELS 0
#endif

/**
  Turn on for previes mode for map editing (flying, noclip, fast movement etc.).
*/
#ifndef SFG_PREVIEW_MODE
  #define SFG_PREVIEW_MODE 0
#endif

/**
  How much faster movement is in the preview mode.
*/
#ifndef SFG_PREVIEW_MODE_SPEED_MULTIPLIER
  #define SFG_PREVIEW_MODE_SPEED_MULTIPLIER 2
#endif

/**
  Skips menu and starts given level immediatelly, for development. 0 means this
  options is ignored, 1 means load level 1 etc.
*/
#ifndef SFG_START_LEVEL
  #define SFG_START_LEVEL 0
#endif

/**
  Reveals whole level map from start.
*/
#ifndef SFG_REVEAL_MAP
  #define SFG_REVEAL_MAP 0
#endif

/**
  Gives player all keys from start.
*/
#ifndef SFG_UNLOCK_DOOR
  #define SFG_UNLOCK_DOOR 0
#endif

#endif // guard
constants.h
/**
  @file constants.h

  This file contains definitions of game constants that are not considered
  part of game settings and whose change can ffect the game balance and
  playability, e.g. physics constants.

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is to
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#ifndef _SFG_CONSTANTS_H
#define _SFG_CONSTANTS_H

/**
  How quickly player moves, in squares per second.
*/
#define SFG_PLAYER_MOVE_SPEED 7

/**
  Gravity acceleration in squares / (second^2).
*/
#define SFG_GRAVITY_ACCELERATION 30

/**
  Initial upwards speed of player's jump, in squares per second. 
*/
#define SFG_PLAYER_JUMP_SPEED 5

/**
  Melee and close-up attack range, in RCL_Units.
*/
#define SFG_MELEE_RANGE 1600

/**
  When a projectile is shot, it'll be offset by this distance (in RCL_Units)
  from the shooter.
*/

#define SFG_PROJECTILE_SPAWN_OFFSET 256

/**
  Player's melee hit range, in RCL_Units (RCL_UNITS_PER_SQUARE means full angle,
  180 degrees to both sides).
*/
#define SFG_PLAYER_MELEE_ANGLE 512

/**
  How quickly elevators and squeezers move, in RCL_Unit per second.
*/
#define SFG_MOVING_WALL_SPEED 1024

/**
  How quickly doors open and close, in RCL_Unit per second.
*/
#define SFG_DOOR_OPEN_SPEED 2048

/**
  Helper special state value.
*/
#define SFG_CANT_SAVE 255

/**
  Says the distance in RCL_Units at which level elements (items, monsters etc.)
  are active.
*/
#define SFG_LEVEL_ELEMENT_ACTIVE_DISTANCE (12 * 1024)

/**
  Rate at which AI will be updated, which also affects how fast enemies will
  appear.
*/
#define SFG_AI_FPS 4

/**
  Says a probability (0 - 255) of the AI changing its state during one update
  step.
*/
#define SFG_AI_RANDOM_CHANGE_PROBABILITY 40

/**
  Distance at which level elements (sprites) collide, in RCL_Unit (1024 per
  square).
*/
#define SFG_ELEMENT_COLLISION_RADIUS 1800

/**
  Height, in RCL_Units, at which collisions happen with level elements
  (sprites).
*/
#define SFG_ELEMENT_COLLISION_HEIGHT 1024

/**
  Distance at which explosion does damage and throws away the player, in
  RCL_Units. Should be higher than SFG_ELEMENT_COLLISION_RADIUS so that
  exploded rockets also hurt the target.
*/
#define SFG_EXPLOSION_RADIUS 2000

/**
  Distance in RCL_Units which the player is pushed away by an explosion. Watch
  out, a slightly higher value can make player go through walls. Rather keep
  this under RCL_UNITS_PER_SQUARE;
*/
#define SFG_EXPLOSION_PUSH_AWAY_DISTANCE 1023

/**
  How much damage triggers a barrel explosion.
*/

#define SFG_BARREL_EXPLOSION_DAMAGE_THRESHOLD 3

/**
  Maximum player health.
*/
#define SFG_PLAYER_MAX_HEALTH 125

/**
  Start health of player.
*/
#define SFG_PLAYER_START_HEALTH 100

/**
  At which value health indicator shows a warning (red color).
*/
#define SFG_PLAYER_HEALTH_WARNING_LEVEL 20

/**
  Amount of health that is increased by taking a health kit.
*/
#define SFG_HEALTH_KIT_VALUE 20

/**
  How much randomness (positive and negative) will be added to damage
  (e.g. by weapons, explosions, ...). This constant is is 0 to 255, 255 meaning
  100% of the base value.
*/
#define SFG_DAMAGE_RANDOMNESS 64 

/**
  Height of monster collision BBox in RCL_Units.
*/
#define SFG_MONSTER_COLLISION_HEIGHT 1024

/**
  Specifies key repeat delay, in ms.
*/
#define SFG_KEY_REPEAT_DELAY 500

/**
  Specifies key repeat period, in ms.
*/
#define SFG_KEY_REPEAT_PERIOD 150

/**
  Angle in which multiple projectiles are spread, RCL_Units.
*/
#define SFG_PROJECTILE_SPREAD_ANGLE 100

#define SFG_MAX_MONSTERS 64

#define SFG_MAX_PROJECTILES 12

#define SFG_MAX_DOORS 32

#define SFG_AMMO_BULLETS 0
#define SFG_AMMO_ROCKETS 1
#define SFG_AMMO_PLASMA 2

#define SFG_AMMO_TOTAL 3

#define SFG_AMMO_NONE SFG_AMMO_TOTAL

#define SFG_AMMO_INCREASE_BULLETS 10
#define SFG_AMMO_INCREASE_ROCKETS 5
#define SFG_AMMO_INCREASE_PLASMA 8

#define SFG_AMMO_MAX_BULLETS 200
#define SFG_AMMO_MAX_ROCKETS 100
#define SFG_AMMO_MAX_PLASMA 150

/**
  Duration of story text (intro/outro) in ms.
*/
#define SFG_STORYTEXT_DURATION 15000

/**
  Time in ms of the player death animation.
*/
#define SFG_LOSE_ANIMATION_DURATION 2000

/**
  Time in ms of the level win animation.
*/
#define SFG_WIN_ANIMATION_DURATION 2500

/**
  Time in ms of the level start stage.
*/
#define SFG_LEVEL_START_DURATION 1500

/**
  Vertical sprite size, in RCL_Units.
*/
#define SFG_BASE_SPRITE_SIZE RCL_UNITS_PER_SQUARE

/**
  Default value of the settings byte.
*/
#define SFG_DEFAULT_SETTINGS 0x03

// -----------------------------------------------------------------------------
// derived constants

#define SFG_GAME_RESOLUTION_X \
  (SFG_SCREEN_RESOLUTION_X / SFG_RESOLUTION_SCALEDOWN)

#define SFG_GAME_RESOLUTION_Y \
  (SFG_SCREEN_RESOLUTION_Y / SFG_RESOLUTION_SCALEDOWN)

#define SFG_MS_PER_FRAME (1000 / SFG_FPS) // ms per frame with target FPS

#if SFG_MS_PER_FRAME == 0
  #undef SFG_MS_PER_FRAME
  #define SFG_MS_PER_FRAME 1
#endif

#define SFG_KEY_REPEAT_DELAY_FRAMES \
  (SFG_KEY_REPEAT_DELAY / SFG_MS_PER_FRAME)

#if SFG_KEY_REPEAT_DELAY_FRAMES == 0
  #undef SFG_KEY_REPEAT_DELAY_FRAMES
  #define SFG_KEY_REPEAT_DELAY_FRAMES 1
#endif

#define SFG_KEY_REPEAT_PERIOD_FRAMES \
  (SFG_KEY_REPEAT_PERIOD / SFG_MS_PER_FRAME)

#if SFG_KEY_REPEAT_PERIOD_FRAMES == 0
  #undef SFG_KEY_REPEAT_PERIOD_FRAMES
  #define SFG_KEY_REPEAT_PERIOD_FRAMES 1
#endif

#define SFG_WEAPON_IMAGE_SCALE \
  (SFG_GAME_RESOLUTION_X / (SFG_TEXTURE_SIZE * 5))

#if SFG_WEAPON_IMAGE_SCALE == 0
  #undef SFG_WEAPON_IMAGE_SCALE
  #define SFG_WEAPON_IMAGE_SCALE 1
#endif

#define SFG_WEAPONBOB_OFFSET_PIXELS \
  (SFG_WEAPONBOB_OFFSET * SFG_WEAPON_IMAGE_SCALE)

#define SFG_WEAPON_IMAGE_POSITION_X \
  (SFG_GAME_RESOLUTION_X / 2 - (SFG_WEAPON_IMAGE_SCALE * SFG_TEXTURE_SIZE) / 2)

#if SFG_GAME_RESOLUTION_Y > 70
  #define SFG_WEAPON_IMAGE_POSITION_Y \
    (SFG_GAME_RESOLUTION_Y - (SFG_WEAPON_IMAGE_SCALE * SFG_TEXTURE_SIZE))
#elif SFG_GAME_RESOLUTION_Y > 50
  #define SFG_WEAPON_IMAGE_POSITION_Y (SFG_GAME_RESOLUTION_Y \
    - ((SFG_WEAPON_IMAGE_SCALE * 3 * SFG_TEXTURE_SIZE) / 4))
#else
  #define SFG_WEAPON_IMAGE_POSITION_Y \
    (SFG_GAME_RESOLUTION_Y - SFG_TEXTURE_SIZE / 2)
#endif

#define SFG_PLAYER_TURN_UNITS_PER_FRAME \
  ((SFG_PLAYER_TURN_SPEED * RCL_UNITS_PER_SQUARE) / (360 * SFG_FPS))

#if SFG_PLAYER_TURN_UNITS_PER_FRAME == 0
  #undef SFG_PLAYER_TURN_UNITS_PER_FRAME
  #define SFG_PLAYER_TURN_UNITS_PER_FRAME 1
#endif

#define SFG_PLAYER_MOVE_UNITS_PER_FRAME \
  ((SFG_PLAYER_MOVE_SPEED * RCL_UNITS_PER_SQUARE) / SFG_FPS)

#if SFG_PLAYER_MOVE_UNITS_PER_FRAME == 0
  #undef SFG_PLAYER_MOVE_UNITS_PER_FRAME
  #define SFG_PLAYER_MOVE_UNITS_PER_FRAME 1
#endif

#define SFG_GRAVITY_SPEED_INCREASE_PER_FRAME \
  ((SFG_GRAVITY_ACCELERATION * RCL_UNITS_PER_SQUARE) / (SFG_FPS * SFG_FPS))

#if SFG_GRAVITY_SPEED_INCREASE_PER_FRAME == 0
  #undef SFG_GRAVITY_SPEED_INCREASE_PER_FRAME
  #define SFG_GRAVITY_SPEED_INCREASE_PER_FRAME 1
#endif

#define SFG_PLAYER_JUMP_OFFSET_PER_FRAME \
  (((SFG_PLAYER_JUMP_SPEED * RCL_UNITS_PER_SQUARE) / SFG_FPS) \
  - SFG_GRAVITY_SPEED_INCREASE_PER_FRAME / 2) 
  /* ^ This substraction corrects the initial veloc. so that the numeric curve
     copies the analytical (smooth) curve. Without it the numeric curve goes
     ABOVE and makes player jump higher with lower FPS. To make sense of this
     try to solve the differential equation and plot it. */

#if SFG_PLAYER_JUMP_OFFSET_PER_FRAME == 0
  #undef SFG_PLAYER_JUMP_OFFSET_PER_FRAME
  #define SFG_PLAYER_JUMP_OFFSET_PER_FRAME 1
#endif

#define SFG_HEADBOB_FRAME_INCREASE_PER_FRAME \
  (SFG_HEADBOB_SPEED / SFG_FPS)

#if SFG_HEADBOB_FRAME_INCREASE_PER_FRAME == 0
  #undef SFG_HEADBOB_FRAME_INCREASE_PER_FRAME
  #define SFG_HEADBOB_FRAME_INCREASE_PER_FRAME 1
#endif

#define SFG_HEADBOB_ENABLED (SFG_HEADBOB_SPEED > 0 && SFG_HEADBOB_OFFSET > 0)

#define SFG_CAMERA_SHEAR_STEP_PER_FRAME \
  ((SFG_GAME_RESOLUTION_Y * SFG_CAMERA_SHEAR_SPEED) / SFG_FPS)

#if SFG_CAMERA_SHEAR_STEP_PER_FRAME == 0
  #undef SFG_CAMERA_SHEAR_STEP_PER_FRAME
  #define SFG_CAMERA_SHEAR_STEP_PER_FRAME 1
#endif

#define SFG_CAMERA_MAX_SHEAR_PIXELS \
  ((SFG_CAMERA_MAX_SHEAR * SFG_GAME_RESOLUTION_Y) / 1024)

#define SFG_FONT_SIZE_SMALL \
 (SFG_GAME_RESOLUTION_X / (SFG_FONT_CHARACTER_SIZE * 50))

#if SFG_FONT_SIZE_SMALL == 0
  #undef SFG_FONT_SIZE_SMALL
  #define SFG_FONT_SIZE_SMALL 1
#endif

#define SFG_FONT_SIZE_MEDIUM \
  (SFG_GAME_RESOLUTION_X / (SFG_FONT_CHARACTER_SIZE * 30))

#if SFG_FONT_SIZE_MEDIUM == 0
  #undef SFG_FONT_SIZE_MEDIUM
  #define SFG_FONT_SIZE_MEDIUM 1
#endif

#define SFG_FONT_SIZE_BIG \
  (SFG_GAME_RESOLUTION_X / (SFG_FONT_CHARACTER_SIZE * 18))

#if SFG_FONT_SIZE_BIG == 0
  #undef SFG_FONT_SIZE_BIG
  #define SFG_FONT_SIZE_BIG 1
#endif

#define SFG_Z_BUFFER_SIZE SFG_GAME_RESOLUTION_X

/**
  Step in which walls get higher, in raycastlib units.
*/
#define SFG_WALL_HEIGHT_STEP (RCL_UNITS_PER_SQUARE / 4)

#define SFG_CEILING_MAX_HEIGHT\
  (16 * RCL_UNITS_PER_SQUARE - RCL_UNITS_PER_SQUARE / 2 )

#define SFG_DOOR_UP_DOWN_MASK 0x20
#define SFG_DOOR_LOCK(doorRecord) ((doorRecord) >> 6)
#define SFG_DOOR_VERTICAL_POSITION_MASK 0x1f
#define SFG_DOOR_HEIGHT_STEP (RCL_UNITS_PER_SQUARE / 0x1f)

#define SFG_DOOR_INCREMENT_PER_FRAME \
  (SFG_DOOR_OPEN_SPEED / (SFG_DOOR_HEIGHT_STEP * SFG_FPS))

#if SFG_DOOR_INCREMENT_PER_FRAME == 0
  #undef SFG_DOOR_INCREMENT_PER_FRAME
  #define SFG_DOOR_INCREMENT_PER_FRAME 1
#endif

#define SFG_MAX_ITEMS SFG_MAX_LEVEL_ELEMENTS

#define SFG_MAX_SPRITE_SIZE SFG_GAME_RESOLUTION_X

#define SFG_MAP_PIXEL_SIZE (SFG_GAME_RESOLUTION_Y / SFG_MAP_SIZE)

#if SFG_MAP_PIXEL_SIZE == 0
  #undef SFG_MAP_PIXEL_SIZE
  #define SFG_MAP_PIXEL_SIZE 1
#endif

#define SFG_AI_UPDATE_FRAME_INTERVAL \
  (SFG_FPS / SFG_AI_FPS)

#if SFG_AI_UPDATE_FRAME_INTERVAL == 0
  #undef SFG_AI_UPDATE_FRAME_INTERVAL
  #define SFG_AI_UPDATE_FRAME_INTERVAL 1
#endif

#define SFG_SPRITE_ANIMATION_FRAME_DURATION \
  (SFG_FPS / SFG_SPRITE_ANIMATION_SPEED)

#if SFG_SPRITE_ANIMATION_FRAME_DURATION == 0
  #undef SFG_SPRITE_ANIMATION_FRAME_DURATION
  #define SFG_SPRITE_ANIMATION_FRAME_DURATION 1
#endif

#define SFG_HUD_MARGIN (SFG_GAME_RESOLUTION_X / 40)

#define SFG_HUD_BORDER_INDICATOR_WIDTH_PIXELS \
  (SFG_GAME_RESOLUTION_Y / SFG_HUD_BORDER_INDICATOR_WIDTH)

#define SFG_HUD_BORDER_INDICATOR_DURATION_FRAMES \
  (SFG_HUD_BORDER_INDICATOR_DURATION / SFG_MS_PER_FRAME)

#if SFG_HUD_BORDER_INDICATOR_DURATION_FRAMES == 0
  #define SFG_HUD_BORDER_INDICATOR_DURATION_FRAMES 1
#endif

#define SFG_BLINK_PERIOD_FRAMES (SFG_BLINK_PERIOD / SFG_MS_PER_FRAME)

#define SFG_HUD_BAR_HEIGHT \
  (SFG_FONT_CHARACTER_SIZE * SFG_FONT_SIZE_MEDIUM + SFG_HUD_MARGIN * 2 + 1)

// -----------------------------------------------------------------------------
// monsters

#define SFG_MONSTER_ATTACK_MELEE 0
#define SFG_MONSTER_ATTACK_FIREBALL 1
#define SFG_MONSTER_ATTACK_BULLET 2
#define SFG_MONSTER_ATTACK_FIREBALL_BULLET 3
#define SFG_MONSTER_ATTACK_PLASMA 4
#define SFG_MONSTER_ATTACK_EXPLODE 5
#define SFG_MONSTER_ATTACK_FIREBALL_PLASMA 6

#define SFG_MONSTER_ATTRIBUTE(attackType,aggressivity0to255,health0to255,spriteSize0to3) \
  ((uint16_t) ( \
   attackType | \
   ((aggressivity0to255 / 8) << 3) | \
   (spriteSize0to3 << 8) | \
   ((health0to255 / 4) << 10)))

#define SFG_GET_MONSTER_ATTACK_TYPE(monsterNumber) \
  (SFG_monsterAttributeTable[monsterNumber] & 0x0007)

#define SFG_GET_MONSTER_AGGRESSIVITY(monsterNumber) \
  (((SFG_monsterAttributeTable[monsterNumber] >> 3) & 0x1F) * 8)

#define SFG_GET_MONSTER_SPRITE_SIZE(monsterNumber) \
  ((SFG_monsterAttributeTable[monsterNumber] >> 8) & 0x03)

#define SFG_GET_MONSTER_MAX_HEALTH(monsterNumber) \
  (((SFG_monsterAttributeTable[monsterNumber] >> 10) & 0x3F) * 4)

/**
  Table of monster attributes, each as a 16bit word in format:

  MSB hhhhhhssaaaattt LSB

  ttt:    attack type
  aaaaa:  aggressivity (frequence of attacks), 0 to 31
  ss:     sprite size
  hhhhhh: health, 0 to 63
*/
uint16_t SFG_monsterAttributeTable[SFG_MONSTERS_TOTAL] =
{
  /* spider  */ SFG_MONSTER_ATTRIBUTE(SFG_MONSTER_ATTACK_FIREBALL,40,61,2),
  /* destr.  */ SFG_MONSTER_ATTRIBUTE(SFG_MONSTER_ATTACK_FIREBALL_BULLET,90,170,3),
  /* warrior */ SFG_MONSTER_ATTRIBUTE(SFG_MONSTER_ATTACK_MELEE,255,40,1),
  /* plasma  */ SFG_MONSTER_ATTRIBUTE(SFG_MONSTER_ATTACK_PLASMA,56,92,1),
  /* ender   */ SFG_MONSTER_ATTRIBUTE(SFG_MONSTER_ATTACK_FIREBALL_PLASMA,128,255,3),
  /* turret  */ SFG_MONSTER_ATTRIBUTE(SFG_MONSTER_ATTACK_BULLET,32,23,0),
  /* explod. */ SFG_MONSTER_ATTRIBUTE(SFG_MONSTER_ATTACK_EXPLODE,255,36,1)
};

// -----------------------------------------------------------------------------
// weapons and projectiles

#define SFG_WEAPON_KNIFE 0
#define SFG_WEAPON_SHOTGUN 1
#define SFG_WEAPON_MACHINE_GUN 2
#define SFG_WEAPON_ROCKET_LAUNCHER 3
#define SFG_WEAPON_PLASMAGUN 4
#define SFG_WEAPON_SOLUTION 5

#define SFG_WEAPONS_TOTAL 6

#define SFG_WEAPON_ATTRIBUTE(fireType,projectileCount,fireCooldownMs) \
  ((uint8_t) (fireType | ((projectileCount - 1) << 2) | ((fireCooldownMs / (SFG_MS_PER_FRAME * 16)) << 4)))

#define SFG_GET_WEAPON_FIRE_TYPE(weaponNumber) \
  (SFG_weaponAttributeTable[weaponNumber] & 0x03)

#define SFG_GET_WEAPON_FIRE_COOLDOWN_FRAMES(weaponNumber) \
  ((SFG_weaponAttributeTable[weaponNumber] >> 4) * 16)

#define SFG_GET_WEAPON_PROJECTILE_COUNT(weaponNumber) \
  (((SFG_weaponAttributeTable[weaponNumber] >> 2) & 0x03) + 1)

#define SFG_MIN_WEAPON_COOLDOWN_FRAMES 8

#define SFG_WEAPON_FIRE_TYPE_MELEE 0
#define SFG_WEAPON_FIRE_TYPE_BULLET 1
#define SFG_WEAPON_FIRE_TYPE_FIREBALL 2
#define SFG_WEAPON_FIRE_TYPE_PLASMA 3

#define SFG_WEAPON_FIRE_TYPES_TOTAL 4

/**
  Table of weapon attributes, each as a byte in format:

  MSB ccccnnff LSB

  ff:     fire type
  nn:     number of projectiles - 1
  cccc:   fire cooldown in frames, i.e. time after which the next shot can be
          shot again, ccccc has to be multiplied by 16 to get the real value
*/
SFG_PROGRAM_MEMORY uint8_t SFG_weaponAttributeTable[SFG_WEAPONS_TOTAL] =
{
  /* knife    */ SFG_WEAPON_ATTRIBUTE(SFG_WEAPON_FIRE_TYPE_MELEE,1,650),    // DPS: 6.2
  /* shotgun  */ SFG_WEAPON_ATTRIBUTE(SFG_WEAPON_FIRE_TYPE_BULLET,2,1250),  // DPS: 12.8
  /* m. gun   */ SFG_WEAPON_ATTRIBUTE(SFG_WEAPON_FIRE_TYPE_BULLET,1,700),   // DPS: 11.4
  /* r. laun. */ SFG_WEAPON_ATTRIBUTE(SFG_WEAPON_FIRE_TYPE_FIREBALL,1,850), // DPS: 28.2
  /* plasma   */ SFG_WEAPON_ATTRIBUTE(SFG_WEAPON_FIRE_TYPE_PLASMA,1,550),   // DPS: 32.7
  /* solution */ SFG_WEAPON_ATTRIBUTE(SFG_WEAPON_FIRE_TYPE_PLASMA,4,1050)   // DPS: 85.7
};

SFG_PROGRAM_MEMORY uint8_t SFG_attackDamageTable[SFG_WEAPON_FIRE_TYPES_TOTAL] =
{
  /* melee                 */ 4,
  /* bullet                */ 8,
  /* explostion (fireball) */ 24,
  /* plasma                */ 18
};

#define SFG_PROJECTILE_EXPLOSION 0
#define SFG_PROJECTILE_FIREBALL 1
#define SFG_PROJECTILE_PLASMA 2
#define SFG_PROJECTILE_DUST 3
#define SFG_PROJECTILE_BULLET 4
#define SFG_PROJECTILE_NONE 255

#define SFG_PROJECTILES_TOTAL 5

#define SFG_PROJECTILE_ATTRIBUTE(speedSquaresPerSec,timeToLiveMs) \
  ((uint8_t) \
   ((((speedSquaresPerSec / 4 == 0) && (speedSquaresPerSec != 0)) ? 1 : speedSquaresPerSec / 4) | \
    ((timeToLiveMs / (8 * SFG_MS_PER_FRAME)) << 3)))

#define SFG_GET_PROJECTILE_SPEED_UPS(projectileNumber) \
  (((SFG_projectileAttributeTable[projectileNumber] & 0x07) * 4 * RCL_UNITS_PER_SQUARE) / SFG_FPS)

#define SFG_GET_PROJECTILE_FRAMES_TO_LIVE(projectileNumber) \
  ((SFG_projectileAttributeTable[projectileNumber] >> 3) * 8)

/**
  Table of projectile attributes, each as a byte in format:

  MSB lllllsss LSB

  fff:   half speed in game squares per second
  lllll: eigth of frames to live
*/

#define LOW_FPS (SFG_FPS < 24) ///< low FPS needs low speeds, because collisions

SFG_PROGRAM_MEMORY uint8_t SFG_projectileAttributeTable[SFG_PROJECTILES_TOTAL] =
{
  /* explosion */ SFG_PROJECTILE_ATTRIBUTE(0,400),
  /* fireball  */ SFG_PROJECTILE_ATTRIBUTE(10,1000),

#if LOW_FPS
  /* plasma    */ SFG_PROJECTILE_ATTRIBUTE(17,500),
#else
  /* plasma    */ SFG_PROJECTILE_ATTRIBUTE(18,500),
#endif

  /* dust      */ SFG_PROJECTILE_ATTRIBUTE(0,450),

#if LOW_FPS
  /* bullet    */ SFG_PROJECTILE_ATTRIBUTE(17,1000)
#else
  /* bullet    */ SFG_PROJECTILE_ATTRIBUTE(28,1000)
#endif
};

#undef LOW_FPS

#endif // guard
images.h
/**
  @file assets.h

  This file containts assets to be used in the game. Textures are stored by
  columns for cache friendliness (as rendering also happens by columns),
  4 bits per pixel, which means an index to 16 color subpalette stored at the
  beginning of the image. Images can be converted to this format with the
  provided pything script:

  python img2array.py -t -c -x32 -y32 -ppalette565.png image.png

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is to
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#ifndef _SFG_IMAGES_H
#define _SFG_IMAGES_H

#define SFG_TEXTURE_SIZE 32

#define SFG_TEXTURE_STORE_SIZE (16 + (SFG_TEXTURE_SIZE * SFG_TEXTURE_SIZE) / 2)

/**
  Color index which will in textures and sprites be considered transparent.
*/
#define SFG_TRANSPARENT_COLOR 175

/**
  Special index of an implicit texture that consists of only transparent pixels.
*/
#define SFG_TRANSPARENT_TEXTURE 255

static inline uint8_t SFG_getTexel(const uint8_t *texture, uint8_t x, uint8_t y)
{
  x &= 0x1f;
  y &= 0x1f;

  return SFG_PROGRAM_MEMORY_U8(texture +
    ((SFG_PROGRAM_MEMORY_U8(texture + 16 + (x * SFG_TEXTURE_SIZE + y) / 2) >> 
     (4 * (y % 2 == 0))) & 0x0f));
}

#define SFG_WALL_TEXTURE_COUNT 16

SFG_PROGRAM_MEMORY uint8_t
  SFG_wallTextures[SFG_WALL_TEXTURE_COUNT * SFG_TEXTURE_STORE_SIZE] =
{
// 0, white wooden planks
4,21,5,3,20,0,2,26,6,18,57,65,1,16,17,49,0,1,0,3,32,1,33,0,161,64,1,16,64,3,3,
32,0,17,16,9,32,1,17,1,161,65,1,16,78,132,35,32,0,17,16,7,32,1,32,17,240,49,0,
16,57,99,87,206,0,18,16,6,33,0,16,1,177,48,0,0,97,0,2,0,0,17,32,6,32,1,0,1,178,
48,0,0,48,0,2,0,0,17,32,7,32,17,1,0,178,48,1,0,49,0,1,0,0,1,16,3,32,18,0,0,194,
48,0,0,48,0,18,4,64,17,32,4,35,0,3,0,194,48,0,0,49,0,34,4,0,17,32,6,130,50,32,
40,242,48,1,0,49,0,18,0,0,2,32,12,85,85,85,85,81,48,2,0,49,0,33,3,0,2,16,3,32,0,
32,2,98,48,1,0,49,0,34,19,0,18,17,3,32,0,32,0,194,48,2,0,0,0,34,3,4,2,16,3,16,0,
32,32,226,48,2,0,48,0,33,19,0,18,33,3,0,16,32,32,178,48,1,1,50,1,34,3,4,17,16,3,
0,16,32,16,162,48,1,64,50,1,34,7,3,1,17,3,0,16,32,16,184,2,2,2,2,48,18,3,0,0,17,
3,0,17,32,16,94,93,93,89,112,0,18,3,0,0,16,3,0,2,32,16,48,48,48,3,0,0,17,4,0,0,
17,3,0,1,32,16,48,48,0,3,1,1,18,3,0,0,32,7,16,1,32,16,48,0,1,0,1,50,34,3,0,1,33,
3,16,1,20,32,112,48,0,16,1,49,34,3,64,16,33,3,4,2,4,16,48,49,0,16,0,49,34,3,64,
0,32,3,16,1,0,0,48,49,0,16,65,48,34,3,49,0,17,3,16,2,0,0,48,49,1,32,0,49,34,3,
64,0,16,19,16,2,1,0,113,49,17,16,0,48,32,3,0,0,16,19,16,1,2,0,97,66,17,32,64,48,
33,19,34,2,0,137,16,1,18,0,97,49,17,16,66,64,32,3,84,212,105,69,16,1,17,0,97,49,
18,16,50,48,16,19,51,48,51,51,16,1,16,0,98,50,1,19,66,48,32,3,0,1,0,3,32,1,33,0,
177,49,2,16,66,64,16,3,0,1,0,7,32,1,16,1,82,64,1,16,50,0,16,35,0,1,0,9,33,2,32,
0,161,64,1,20,48,0,0,32
, // 1, skyscraper window
4,5,3,6,2,81,0,59,48,128,138,131,66,44,137,129,16,176,208,176,44,33,0,0,1,43,1,
13,0,32,29,0,0,176,0,0,12,64,0,17,0,32,0,17,1,32,13,11,0,176,0,208,4,65,0,0,0,
34,1,16,1,32,16,0,23,32,0,2,40,66,2,194,230,140,34,208,2,176,17,0,119,76,66,34,
34,34,34,34,34,34,34,34,34,116,64,0,72,194,51,51,51,51,17,49,51,19,19,49,51,12,
34,36,17,210,49,17,16,17,1,17,17,16,17,1,17,42,1,17,17,2,49,154,116,244,229,164,
233,85,49,16,17,14,1,16,2,69,17,104,79,117,149,88,94,137,49,17,17,36,0,0,196,69,
48,137,119,69,84,79,88,85,49,17,1,4,92,244,0,34,0,69,85,95,127,116,86,89,49,17,
17,36,0,0,17,32,1,169,88,229,228,74,85,85,49,19,1,4,0,0,0,2,49,90,153,85,85,169,
95,85,49,16,17,4,2,0,0,39,48,68,85,233,138,37,133,136,49,17,17,36,0,32,0,4,17,
122,150,84,133,230,136,136,49,1,17,10,0,0,0,44,48,35,51,51,51,51,51,35,49,17,1,
66,0,13,0,4,17,51,3,211,3,3,35,2,49,17,17,34,0,0,0,37,49,167,42,70,106,69,102,
102,49,0,17,36,2,34,68,244,48,39,119,79,69,150,102,102,49,17,17,68,64,34,16,76,
49,119,2,127,120,102,102,102,49,17,19,5,0,1,1,74,49,114,119,4,152,102,104,102,
49,17,17,75,0,0,208,28,49,119,39,116,248,104,134,102,49,16,17,34,0,0,0,10,17,39,
114,37,169,104,136,86,49,16,17,4,0,0,1,43,49,114,126,232,74,102,104,134,49,1,0,
34,0,32,0,116,17,119,122,102,88,102,102,102,49,16,17,66,0,0,1,36,49,17,17,17,17,
17,17,17,1,1,1,64,0,0,32,184,49,17,49,17,17,19,51,17,17,17,19,178,0,34,44,66,34,
71,39,34,180,36,66,34,2,32,32,192,17,19,66,192,0,16,176,66,34,34,34,200,36,34,
34,36,68,44,221,192,0,0,10,32,0,16,1,34,16,16,0,11,0,16,13,64,0,0,10,0,0,0,1,34,
0,1,1,2,16,0,1,176,27,0,11,33,0,17,0,112,0,1,17,113,16,0
, // 2, pink high-tech wall
83,4,12,5,84,20,61,85,13,6,11,3,7,14,15,0,34,32,34,0,32,2,170,34,170,160,170,
160,17,17,17,17,34,34,32,34,42,34,170,2,42,42,170,170,17,17,17,17,34,34,34,36,
34,160,36,32,160,160,42,10,49,17,17,17,34,34,34,42,34,0,0,0,0,0,0,4,49,49,17,17,
34,34,2,10,36,32,17,17,81,17,81,23,59,59,59,17,0,0,0,0,2,0,84,84,96,0,0,0,59,59,
49,19,102,102,102,102,96,32,20,86,0,102,102,102,145,59,59,19,34,34,34,36,96,32,
21,86,5,85,85,23,59,59,49,19,34,34,34,42,96,64,21,86,5,85,69,71,145,155,49,49,
34,34,66,37,96,128,84,86,5,85,91,23,49,49,49,19,34,34,0,0,0,0,0,0,4,84,69,87,
145,155,49,49,34,38,6,102,102,102,102,96,68,84,84,23,145,145,145,51,34,38,2,37,
88,32,68,69,69,85,85,71,49,145,49,51,40,134,2,34,130,64,21,69,85,84,21,23,145,
145,147,51,36,38,4,68,68,64,84,85,85,84,20,71,145,145,49,51,37,38,2,66,68,32,69,
85,85,85,69,87,145,145,147,51,40,134,5,84,72,64,20,65,69,68,20,71,145,193,147,
51,36,70,2,72,136,112,68,65,20,84,20,87,145,145,51,57,40,134,8,133,132,32,84,84,
17,84,68,87,195,147,147,51,40,134,8,88,136,112,21,17,17,68,17,23,147,51,51,51,
36,134,4,133,136,112,81,17,17,68,65,87,147,147,51,57,40,134,0,0,0,0,0,0,65,20,
68,71,147,57,147,57,39,120,102,102,102,102,102,102,1,17,84,71,153,51,57,57,40,
119,135,119,96,112,17,22,1,17,68,183,147,57,51,51,37,120,135,120,96,112,177,22,
1,17,17,87,153,147,57,57,37,136,136,135,96,32,65,22,1,20,91,71,60,57,57,57,0,0,
0,0,96,112,84,22,96,0,0,0,57,57,60,57,102,102,102,102,104,128,75,181,102,102,
102,102,60,57,51,60,39,119,135,119,120,112,180,84,180,181,75,183,57,60,57,57,34,
136,135,215,231,116,119,119,119,119,119,119,60,51,60,60,37,120,135,114,119,135,
125,120,116,212,68,114,60,60,57,57,34,117,136,135,135,120,132,136,136,136,136,
71,57,57,57,153
, // 3, partly mossy concrete wall 
4,3,5,36,20,37,76,12,11,19,77,130,13,35,2,0,2,0,0,80,32,0,0,1,5,37,1,64,4,25,19,
145,0,32,96,32,0,16,48,24,115,48,65,53,48,16,113,11,2,0,0,0,0,0,0,152,3,48,49,
48,51,19,1,17,0,32,16,48,0,16,0,8,0,0,1,67,0,23,19,17,2,0,5,48,0,16,0,24,115,65,
113,85,67,16,0,17,2,0,18,0,0,0,0,6,4,0,0,67,48,19,145,17,0,0,3,80,80,0,0,1,3,80,
19,3,83,16,9,1,2,0,210,0,0,16,0,1,148,3,1,48,51,16,17,17,19,0,16,48,0,16,0,24,5,
64,113,51,3,49,1,11,2,0,0,34,0,0,0,8,85,3,1,67,84,3,112,17,0,36,5,4,32,96,0,8,4,
4,3,52,83,16,17,1,34,0,2,32,0,0,7,1,3,32,49,3,51,119,49,113,4,32,96,66,0,0,0,7,
5,84,1,51,67,112,0,30,2,32,98,32,10,0,0,8,68,32,64,5,3,49,0,14,2,2,96,0,0,96,0,
6,5,80,49,48,51,112,1,27,0,32,2,0,1,96,0,1,51,0,1,3,51,27,0,27,2,0,96,32,0,0,6,
8,0,48,3,3,48,208,24,1,2,32,98,4,32,0,0,6,4,36,3,0,51,0,16,17,34,194,96,34,0,96,
0,6,50,48,1,83,67,144,0,8,0,42,2,36,0,0,162,8,5,32,65,64,48,23,1,1,2,32,100,34,
6,0,12,8,68,50,1,0,3,16,112,1,36,34,2,0,0,0,0,8,0,0,0,48,0,23,7,17,2,42,4,32,42,
0,0,8,5,64,64,35,0,135,0,1,2,64,98,44,6,0,32,8,48,48,1,85,0,17,0,49,2,32,3,2,0,
4,0,8,5,64,0,0,4,0,112,1,4,34,98,2,6,98,32,8,85,36,48,67,5,1,0,11,2,32,98,192,
160,4,52,8,4,0,1,4,0,0,112,113,2,194,2,0,0,0,2,1,5,85,64,211,4,48,0,1,2,32,0,42,
0,21,4,8,64,68,45,4,48,0,23,27,2,32,96,0,0,16,0,1,5,80,0,85,3,16,0,1,2,194,0,0,
0,16,48,17,84,85,0,48,64,144,25,17,0,32,96,0,0,0,64,13,3,68,0,5,48,16,0,17
, // 4, wooden chess pattern 
20,12,11,21,2,43,19,73,1,83,81,10,9,34,42,65,86,82,91,85,89,249,149,153,66,34,
40,34,34,114,34,36,0,0,0,48,48,35,0,2,33,18,39,17,17,66,17,18,0,0,5,48,3,96,3,
50,33,34,40,33,33,113,17,18,96,0,6,48,3,99,3,50,33,34,23,33,18,129,17,18,80,3,5,
48,3,99,3,54,33,33,23,18,17,114,17,18,80,0,5,48,3,99,0,54,33,34,20,34,33,114,33,
18,80,0,2,48,51,163,3,54,65,34,20,34,33,65,33,18,80,3,2,48,0,163,0,54,33,34,20,
34,17,66,33,18,0,0,2,3,0,67,0,53,177,34,20,34,17,130,33,18,0,0,2,51,0,211,0,5,
33,34,36,34,17,114,18,18,80,0,6,3,0,99,0,53,33,34,20,18,33,113,17,18,0,3,2,48,3,
99,0,6,65,33,20,18,33,65,17,18,0,0,2,0,0,96,0,6,34,34,20,17,33,129,17,18,0,0,5,
0,0,99,0,1,33,34,36,17,33,130,17,18,3,3,53,48,0,35,0,6,65,17,20,17,17,66,17,18,
80,85,86,5,85,224,85,85,68,68,72,66,68,132,68,36,66,34,20,34,34,66,34,36,96,0,5,
5,80,80,85,82,65,34,20,33,34,65,18,18,3,3,53,48,3,83,0,5,65,34,20,18,34,65,18,
34,51,51,54,51,3,80,5,5,66,34,20,18,34,65,18,18,51,51,53,51,3,80,5,5,66,34,20,
17,33,65,17,18,0,51,54,51,3,80,5,5,65,34,20,17,17,65,17,34,51,51,53,51,3,80,0,0,
65,34,20,17,17,65,17,18,0,51,54,48,51,80,0,0,66,34,20,17,18,65,17,18,3,51,54,48,
51,80,5,5,65,34,20,17,33,65,17,18,3,51,54,51,51,32,0,5,65,34,20,17,33,65,17,18,
3,51,54,51,51,80,1,5,65,34,20,17,33,65,34,34,3,51,59,48,51,80,5,85,65,34,20,17,
17,66,34,36,3,51,52,48,3,83,1,5,65,34,20,17,17,68,17,20,3,51,54,48,48,35,48,5,
65,33,20,34,17,66,17,18,3,0,52,51,51,35,48,5,65,33,20,17,17,65,18,18,3,51,54,51,
0,35,48,5,32,80,106,0,80,101,6,2,85,85,92,86,86,160,5,82
, // 5, red brick wall
13,5,6,21,93,101,4,100,11,7,19,3,106,178,0,0,33,17,22,37,48,8,33,3,54,33,64,0,1,
20,5,70,37,0,88,37,85,88,32,64,4,17,64,0,65,20,0,70,32,51,56,37,85,8,33,0,4,17,
83,51,81,20,96,70,32,3,52,38,51,8,33,3,4,18,83,51,81,20,85,70,38,6,4,32,51,8,33,
3,4,18,64,51,81,20,85,69,38,0,4,38,3,52,33,83,5,17,67,51,81,20,101,70,38,0,4,38,
83,4,17,83,0,17,67,51,81,20,101,68,38,0,4,38,69,68,17,86,80,18,69,85,65,36,101,
68,32,85,4,34,17,17,33,86,83,18,18,34,34,36,0,88,33,0,4,34,34,18,33,83,0,18,17,
17,17,36,0,84,35,3,56,34,64,76,17,83,48,98,112,0,119,36,0,68,35,0,4,34,133,4,18,
3,48,98,113,0,17,36,0,85,33,0,4,34,133,100,17,81,48,98,112,0,1,36,0,86,35,0,8,
33,165,68,17,67,53,98,113,0,1,36,85,86,35,0,4,33,69,106,17,64,53,98,112,0,1,20,
85,86,35,0,4,33,133,68,17,64,53,18,112,0,1,20,5,86,35,0,4,33,166,84,17,64,53,18,
112,0,1,20,5,86,35,3,4,33,69,10,17,80,53,18,112,0,1,36,85,86,35,0,52,34,69,100,
33,83,5,18,112,0,113,40,5,84,33,64,8,33,69,4,33,69,68,18,112,0,1,36,0,22,33,0,4,
33,0,52,17,34,34,18,112,0,1,34,34,145,34,41,146,33,0,4,17,17,17,18,113,17,1,36,
99,22,38,80,49,33,69,4,32,0,4,98,112,17,17,36,51,6,32,80,4,33,69,106,35,3,53,98,
112,0,17,36,51,6,33,3,52,33,69,72,35,51,53,18,16,0,17,37,51,6,33,3,52,17,69,84,
35,51,53,98,112,0,17,37,51,6,33,1,52,17,69,100,35,51,48,98,113,17,17,21,3,6,35,
3,52,17,67,4,35,51,48,98,112,0,17,16,51,6,35,3,53,17,69,100,33,49,19,97,112,0,
17,37,51,6,35,3,4,17,212,4,33,3,51,98,1,0,1,36,3,6,35,3,52,18,34,34,33,3,48,177,
34,153,146,36,51,54,33,3,52,34,49,17,33,3,48,98,70,102,17,36,0,6
, // 6, grass-covered concrete wall, tiles with skyscraper window 
36,37,43,35,4,3,107,34,131,50,42,5,106,110,114,26,3,131,51,128,58,52,0,5,84,56,
84,2,0,48,66,0,48,128,5,5,10,112,0,68,0,48,85,68,4,144,32,1,6,32,17,0,7,116,80,
0,85,153,36,13,0,1,0,0,16,1,1,0,54,115,3,160,110,234,55,1,208,40,1,0,170,96,0,
39,115,51,51,144,0,51,144,0,0,16,0,2,17,16,17,208,11,187,20,0,2,43,64,32,17,16,
0,44,17,1,0,16,3,1,0,2,0,3,64,0,0,32,32,0,1,16,17,0,1,3,2,96,32,37,64,0,2,0,2,
32,17,16,1,1,0,0,34,128,32,0,1,16,16,32,0,32,1,0,0,0,16,8,0,2,2,2,2,0,32,2,32,0,
34,1,19,48,5,96,0,2,0,32,0,17,1,2,0,16,1,18,16,65,16,0,32,0,1,2,2,4,0,8,32,2,1,
39,18,4,1,32,0,208,0,0,0,1,16,0,2,0,0,18,19,48,0,16,13,0,1,0,32,18,16,0,0,0,16,
1,0,0,16,65,16,0,0,33,1,16,0,54,0,38,0,6,64,0,129,0,0,0,0,1,0,0,0,9,63,50,2,2,8,
2,32,0,18,0,17,0,1,17,96,0,5,80,32,0,0,0,0,18,69,80,0,1,16,48,1,0,32,153,206,32,
2,2,32,17,4,64,96,32,0,17,0,224,0,131,64,0,0,0,1,0,4,8,0,0,16,16,1,18,96,0,2,2,
0,34,32,2,0,0,5,0,0,96,2,0,32,0,2,0,2,0,17,0,0,0,85,34,32,0,0,0,0,0,2,0,1,16,48,
0,33,2,68,0,2,2,0,16,0,32,32,32,38,1,32,0,0,34,6,0,0,48,3,0,8,0,0,0,18,16,0,0,
98,0,32,0,0,0,33,32,0,32,0,17,17,0,0,0,33,32,0,0,4,49,18,0,2,16,2,1,66,0,98,2,0,
0,0,34,0,17,1,0,0,0,17,0,17,33,2,0,12,126,199,112,39,0,16,6,21,0,16,16,0,16,32,
32,167,51,63,62,172,151,113,0,0,2,0,1,17,48,16,16,48,69,4,51,64,64,0,16,8,96,27,
16,16,16,62,57,149,0,4,51,0,1,4,7,80,2,0,17,1,51,8,52,0,68,0,32,0,4,68,36,16,32
, // 7, steel door
4,80,3,17,5,59,6,69,58,50,60,2,68,74,70,67,1,17,17,17,17,17,17,17,17,17,17,17,
17,17,17,17,22,102,70,102,70,102,70,102,70,100,102,100,102,100,102,97,16,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,16,0,32,0,32,0,32,0,32,2,0,2,0,2,0,1,19,189,187,221,189,
219,219,219,187,187,187,219,189,189,189,177,17,51,51,51,51,51,51,51,51,51,51,51,
51,51,51,49,19,136,136,136,133,133,85,95,34,34,44,47,34,194,34,40,19,136,34,34,
34,2,34,34,34,32,34,32,2,2,2,34,19,130,40,140,136,192,197,192,112,112,64,0,0,7,
4,7,19,146,136,200,92,80,122,90,160,0,64,0,7,0,4,0,19,146,149,136,200,84,122,
202,0,0,64,0,0,7,14,0,19,146,153,153,197,94,170,80,112,0,64,0,112,0,4,0,19,146,
37,156,133,112,5,0,0,224,224,0,112,112,4,0,19,146,153,153,87,160,0,7,160,0,64,0,
0,0,4,4,19,146,149,41,149,4,7,80,160,10,71,0,0,7,4,0,19,146,153,146,87,0,170,87,
0,7,64,0,7,0,4,4,19,146,89,204,87,4,167,80,7,0,224,0,0,0,4,0,19,146,153,156,90,
160,122,80,0,14,64,0,0,112,116,4,19,146,149,153,85,116,170,192,0,112,64,112,0,0,
4,0,19,146,41,92,138,84,122,90,0,0,71,0,7,0,4,4,19,146,153,204,80,126,90,202,
224,0,64,0,0,0,4,0,19,146,143,85,32,4,170,90,160,0,71,0,7,7,14,0,19,130,136,140,
128,116,122,202,112,10,64,0,112,0,4,0,19,130,40,200,92,14,170,80,0,170,74,112,0,
112,116,0,19,136,34,34,34,2,2,0,0,32,34,34,34,34,2,34,19,136,136,136,133,34,85,
85,85,37,194,47,34,242,34,34,17,51,51,51,51,51,51,51,51,51,51,51,51,51,51,49,27,
189,221,187,219,219,219,187,221,187,187,221,189,189,189,177,22,102,70,102,70,
102,70,102,70,102,70,100,102,100,102,97,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,16,0,
32,0,32,0,32,0,32,0,32,2,0,2,0,1,1,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17
, // 8, white skull on blue
6,5,4,59,60,62,218,14,3,13,85,139,74,63,12,15,17,17,17,17,17,18,147,69,72,17,17,
17,17,17,17,17,16,16,1,1,16,18,35,51,50,17,1,1,16,16,1,17,16,0,0,0,0,18,36,99,
82,16,16,0,0,0,0,17,0,0,0,0,0,18,37,51,82,17,0,0,0,0,0,1,16,0,0,0,0,18,35,179,
50,17,16,0,0,0,0,1,0,0,0,0,0,18,35,51,66,17,16,0,0,0,0,17,16,0,0,0,1,226,37,67,
84,40,17,0,0,0,0,1,0,0,0,17,42,34,85,83,85,67,33,16,0,0,0,17,0,0,1,18,34,51,34,
34,68,75,98,129,16,0,0,17,16,0,17,162,51,130,34,34,38,198,52,66,129,0,1,17,17,
17,42,36,98,33,17,17,34,51,51,68,98,33,17,17,130,34,36,68,33,17,17,23,121,34,52,
68,51,66,34,34,68,84,53,85,33,0,0,121,151,34,37,85,67,69,221,51,51,68,52,82,16,
0,0,126,151,18,34,133,91,69,84,99,51,107,52,66,0,16,16,247,119,17,34,40,60,67,
51,68,83,99,51,50,1,1,17,0,1,33,18,40,51,51,52,85,75,52,52,66,0,17,17,0,1,33,18,
40,51,68,51,69,51,84,53,82,1,0,16,247,119,17,34,40,70,69,51,51,85,84,52,82,16,0,
0,126,151,18,34,132,70,69,84,99,85,68,52,52,33,0,0,121,151,34,36,52,60,52,85,51,
130,34,35,107,33,17,17,23,121,34,99,107,195,66,34,34,17,17,42,102,98,33,17,17,
34,54,102,102,98,33,17,17,16,0,17,162,68,130,34,34,36,76,102,98,33,0,1,17,0,0,1,
18,35,69,34,34,85,67,194,161,16,0,0,17,16,0,0,17,42,35,69,67,68,75,33,16,0,0,0,
17,0,0,0,0,1,226,35,99,54,42,17,0,0,0,0,1,0,0,0,0,0,18,35,51,66,17,16,0,0,0,0,
17,16,0,0,0,0,18,37,51,82,17,16,0,0,0,0,1,0,0,0,0,0,18,45,51,66,17,0,0,0,0,0,1,
16,0,0,0,0,18,36,99,50,16,16,0,0,0,0,17,16,16,1,1,16,18,35,68,50,17,16,16,16,16,
1,17,17,17,17,17,17,18,148,85,88,17,17,17,17,17,17,17
, // 9, red lava with stones
3,4,12,11,83,94,102,92,91,14,93,15,19,20,100,0,3,82,2,83,32,67,84,1,17,17,16,5,
32,17,20,0,2,48,0,67,117,118,36,0,33,33,0,5,33,17,17,19,69,64,17,20,67,86,82,36,
17,1,0,53,1,17,17,64,56,1,17,17,0,130,50,117,131,64,4,39,0,17,17,0,32,1,17,17,3,
82,4,68,39,85,34,98,36,16,0,3,0,0,1,16,3,82,1,16,0,35,53,106,83,51,51,54,85,68,
36,3,53,32,49,17,16,0,54,34,66,35,37,86,67,85,85,34,38,66,1,17,17,0,82,64,64,0,
3,101,0,32,3,34,102,103,65,1,17,3,84,1,17,0,3,83,18,17,0,67,34,68,85,52,0,69,48,
17,17,19,69,0,17,17,20,3,112,0,2,53,51,114,1,17,17,16,69,65,17,17,16,3,80,3,0,4,
46,98,64,17,17,32,115,1,17,18,0,53,64,17,17,16,50,86,34,0,0,0,35,1,0,0,0,37,65,
17,17,17,2,34,119,85,67,66,34,0,51,130,50,98,64,17,17,17,2,35,68,51,85,102,98,
35,51,50,86,102,35,34,2,16,3,132,0,0,4,34,82,35,20,0,66,85,39,120,34,4,2,80,1,
17,4,53,52,0,17,4,3,83,64,2,37,81,69,16,77,17,16,69,16,0,18,16,0,84,16,0,67,66,
38,49,17,17,32,53,32,17,17,17,0,82,0,33,16,3,102,32,0,0,4,84,0,18,17,17,0,84,1,
17,17,4,182,98,64,0,3,84,1,17,17,17,0,83,1,17,17,4,99,37,83,50,50,32,0,33,17,16,
0,83,1,17,33,2,36,0,34,114,118,84,16,17,0,0,3,83,1,17,16,67,49,1,16,4,38,103,51,
64,84,68,53,32,0,17,0,55,32,17,17,0,39,50,39,85,37,82,166,98,36,16,64,34,1,17,
17,16,55,32,0,36,0,4,54,34,117,66,51,84,1,17,17,16,82,0,0,2,17,4,39,64,18,82,
118,98,64,1,17,4,84,16,17,17,18,4,84,4,0,20,53,102,82,32,0,4,84,0,33,17,16,2,32,
1,17,64,39,51,69,85,117,53,156,65,1,18,50,38,36,17,17,16,34,0,0,20,67,102,101,
115,51,51,130,101,101,32,17,4,84,1,17,33,16,38,148,19,56,56
, // 10, transparent window
175,4,5,3,59,13,49,60,74,62,61,50,83,2,69,12,17,17,33,17,81,17,17,33,17,17,17,
17,18,34,34,17,59,17,17,17,17,17,17,17,17,17,177,17,18,34,82,33,51,51,51,51,51,
51,51,51,51,51,59,81,18,34,33,17,49,182,102,102,102,102,102,102,102,107,18,33,
18,34,34,33,51,0,0,0,0,116,16,0,0,10,50,37,18,34,34,33,51,0,0,0,0,116,16,0,0,10,
50,17,18,34,21,33,51,0,0,0,0,84,16,0,0,10,50,33,17,243,51,52,51,0,0,0,0,20,16,0,
0,10,50,145,18,17,17,21,51,0,0,0,0,20,32,0,0,10,50,149,18,49,81,17,51,0,0,0,0,
116,112,0,0,1,50,37,82,17,113,17,51,18,51,140,140,71,72,140,136,200,50,37,82,49,
17,225,51,18,68,68,68,121,116,68,68,71,50,33,82,18,18,17,51,0,0,0,0,212,208,0,0,
12,50,17,18,37,34,17,51,0,0,0,0,20,16,0,0,9,50,17,18,18,37,30,51,0,0,0,0,116,32,
0,0,2,50,145,18,34,34,33,51,0,0,0,0,116,16,0,0,2,50,37,18,34,18,17,51,0,0,0,0,
116,16,0,0,10,50,145,18,37,33,18,51,0,0,0,0,116,16,0,0,10,57,145,82,33,18,225,
51,0,0,0,0,20,16,0,0,10,57,145,18,18,17,21,51,0,0,0,0,212,208,0,0,13,50,149,18,
37,18,17,51,18,68,68,68,121,116,68,68,71,50,37,18,34,33,17,51,18,60,200,140,71,
76,136,136,200,50,37,18,34,81,30,51,0,0,0,0,244,16,0,0,1,50,149,18,34,33,17,51,
0,0,0,0,20,32,0,0,10,50,33,18,18,17,17,51,0,0,0,0,116,32,0,0,2,50,33,17,243,51,
52,51,0,0,0,0,20,16,0,0,10,50,17,18,17,17,17,51,0,0,0,0,84,16,0,0,10,50,33,82,
17,33,31,51,0,0,0,0,116,16,0,0,2,50,33,18,17,17,17,49,182,102,102,102,102,102,
102,102,107,34,81,18,37,17,17,19,50,34,34,34,34,34,34,34,34,35,81,18,34,17,17,
59,34,34,34,34,34,34,34,34,34,181,17,18,18,81,21,17,17,17,17,33,17,17,17,21,17,
17,17,18,34,34,18
, // 11, white steel blocks
6,5,7,4,3,85,71,78,0,0,0,0,0,0,0,0,68,68,68,68,68,68,68,68,68,68,68,68,68,68,68,
68,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,52,34,0,34,34,2,34,34,34,34,34,
0,34,34,34,0,17,0,17,0,0,0,1,16,0,0,0,0,0,1,16,17,17,0,20,0,0,0,0,0,0,0,0,0,0,1,
64,0,17,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,17,17,17,17,17,17,17,17,81,17,17,17,17,17,
17,17,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,17,1,17,16,0,0,0,0,0,0,0,0,0,0,0,0,17,0,
0,1,1,0,0,6,0,0,0,0,0,0,0,0,17,34,0,34,0,34,34,34,34,34,34,34,34,32,2,34,17,0,
17,0,1,16,0,0,0,0,0,17,0,0,0,0,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,17,0,0,0,0,1,0,
0,0,0,0,0,0,16,0,17,17,17,17,17,81,17,22,0,0,0,1,17,1,17,17,17,19,0,0,0,0,0,2,0,
0,0,1,0,0,0,0,113,21,16,0,0,0,0,2,0,0,0,1,0,0,0,0,0,19,0,0,0,0,0,2,0,0,0,1,0,0,
0,0,1,17,34,34,32,2,34,34,0,0,0,2,34,34,0,34,0,17,0,0,0,0,0,17,0,0,0,0,0,1,16,
16,17,17,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,17,0,1,0,0,0,0,0,0,0,0,0,0,0,17,17,
17,17,17,17,17,17,81,17,17,17,17,17,17,17,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,1,
17,16,0,0,0,0,0,0,0,0,1,0,1,16,17,0,0,1,1,0,0,6,0,0,0,16,0,0,0,0,17,34,0,34,0,
34,0,34,34,34,34,34,34,32,2,34,17,0,17,1,1,16,0,0,0,0,0,17,0,1,16,0,17,0,20,0,0,
0,0,0,0,0,0,0,0,1,64,1,17,0,0,0,0,0,0,0,1,0,0,0,0,16,0,17,17,17,17,17,17,17,17,
17,17,21,17,17,17,17,17,17,19,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51,51
, // 12, gray square-tiled wall
4,5,3,13,50,6,12,21,85,20,14,11,19,22,84,0,17,17,17,17,17,17,17,18,17,17,17,17,
17,17,17,20,17,3,16,8,17,16,0,18,17,16,1,1,0,3,16,18,16,1,16,1,0,49,17,48,17,1,
3,6,0,17,3,2,16,16,0,16,16,24,16,16,17,0,0,23,16,0,0,2,16,1,3,17,1,16,16,18,19,
0,0,0,49,1,1,2,16,48,17,6,17,17,0,0,16,16,16,119,16,19,0,2,17,16,17,17,17,26,16,
50,17,49,0,19,0,0,0,2,16,17,49,17,129,17,16,2,16,3,16,0,0,1,6,2,16,17,16,1,17,
17,16,2,17,0,17,1,0,0,0,18,17,49,24,17,17,129,16,6,16,113,49,3,16,0,0,98,17,17,
17,16,49,0,96,9,16,16,0,0,1,49,0,18,17,17,17,17,17,16,1,2,81,1,0,32,0,16,16,2,
17,161,129,1,0,48,0,4,16,0,48,16,0,49,1,2,17,17,17,49,17,0,0,16,16,0,16,16,0,0,
48,2,80,17,17,17,19,17,48,0,16,16,0,0,0,17,6,2,32,48,32,6,0,34,32,98,2,34,34,38,
2,34,34,34,21,81,21,85,81,21,81,86,85,21,17,17,21,81,17,27,17,17,16,19,0,48,1,0,
16,0,0,0,48,0,0,2,19,17,49,0,17,1,17,2,22,1,0,1,1,48,0,2,16,17,0,0,48,0,49,2,80,
6,0,0,16,1,48,2,16,48,0,0,16,16,112,50,16,0,0,1,0,16,16,148,17,1,49,0,0,49,0,28,
16,0,0,48,3,0,0,2,16,0,3,1,0,0,17,18,16,3,0,0,0,0,0,50,17,113,1,3,0,0,48,2,16,0,
0,0,0,6,0,2,16,0,0,0,0,48,0,18,16,0,0,0,0,0,0,2,17,0,0,0,0,0,3,2,208,0,3,0,48,0,
0,4,17,112,48,19,16,0,0,18,17,0,0,0,0,0,16,100,16,17,9,1,1,16,1,2,22,0,0,0,0,0,
0,2,16,1,0,16,3,0,48,0,16,0,0,0,0,224,0,4,16,48,3,1,0,0,16,50,16,3,0,48,0,3,0,
52,16,16,1,16,0,0,0,2,16,16,0,0,2,2,1,4,68,66,32,34,36,34,34,36,34,36,34,34,68,
68,68,68
, // 13, scifi door
3,2,4,9,0,74,200,10,75,41,160,48,120,17,34,50,68,68,68,68,68,68,68,68,70,102,
102,102,102,102,102,102,85,85,153,85,85,153,85,85,85,136,136,136,136,136,136,
136,149,153,153,147,147,57,55,57,125,238,88,135,127,85,119,119,51,147,51,51,51,
55,147,55,215,125,215,119,119,119,119,119,68,68,68,68,68,68,68,70,102,102,102,
102,102,102,102,102,0,0,0,0,0,0,0,5,2,34,34,34,34,34,34,34,53,92,65,85,19,48,0,
81,32,11,160,0,1,18,34,1,48,83,64,0,83,16,0,1,34,1,178,34,1,2,34,33,53,84,65,0,
4,49,80,1,0,11,160,34,43,16,2,1,52,196,49,85,28,51,51,161,26,186,16,0,11,17,17,
161,51,51,51,51,51,51,49,16,1,17,17,17,17,17,17,16,53,85,49,85,19,21,0,34,32,0,
16,0,1,2,34,1,53,5,48,0,83,16,34,34,34,32,18,34,1,2,34,17,49,85,49,0,4,16,34,34,
34,32,16,34,43,2,32,161,51,68,49,85,28,16,34,34,34,32,16,0,11,0,17,0,51,67,51,
51,51,16,34,34,34,32,17,17,17,1,16,34,52,49,49,17,19,16,34,34,34,32,16,0,1,0,17,
2,51,5,48,0,84,16,34,34,34,32,18,34,10,2,1,17,48,5,49,5,84,16,34,34,34,32,16,32,
10,2,32,161,48,85,49,21,28,53,2,34,34,0,16,0,11,16,34,17,49,19,67,68,195,17,80,
177,16,1,161,171,177,0,0,177,51,52,17,51,67,51,17,16,1,26,0,17,161,17,17,16,53,
92,48,85,196,48,0,1,32,11,18,0,186,18,34,1,48,83,48,5,52,48,0,33,34,1,18,32,27,
18,34,33,53,84,49,85,68,17,80,1,0,11,16,0,186,0,2,1,52,196,51,76,67,19,51,161,
26,186,17,171,161,1,17,161,0,0,0,0,0,0,0,0,2,34,34,34,34,34,34,34,68,68,68,68,
68,68,68,102,102,102,102,102,102,102,102,102,51,147,51,51,51,55,147,125,125,119,
119,119,119,119,119,119,149,153,153,147,147,121,55,62,119,238,88,135,127,85,119,
119,85,85,153,85,85,153,85,85,152,136,136,136,136,136,136,136,68,68,68,68,68,68,
68,68,102,102,102,102,102,102,102,102
, // 14, concrete wall, tiles with skyscraper window
5,4,3,2,6,44,131,66,50,51,45,81,132,28,138,1,1,97,81,193,39,32,17,17,16,44,16,
21,17,33,5,17,17,97,17,17,23,49,17,0,17,33,17,0,16,33,21,28,17,97,17,81,19,48,
17,17,17,34,16,1,16,33,1,17,9,33,17,18,47,50,18,130,255,248,34,81,18,97,0,17,
153,55,50,34,34,34,34,34,34,34,34,34,34,147,49,17,63,114,68,68,68,68,0,64,68,4,
4,64,68,24,34,35,0,82,64,0,1,0,16,0,0,1,0,16,0,46,16,0,0,18,64,16,1,17,0,0,13,0,
0,1,0,31,16,1,18,59,0,16,0,0,0,0,0,0,0,0,0,35,17,17,115,59,65,17,0,0,0,0,0,0,0,
0,16,19,183,51,161,34,17,16,0,0,0,0,0,0,0,0,0,35,17,17,0,33,16,0,0,0,0,0,0,0,0,
4,208,19,17,17,17,18,64,0,0,0,0,0,0,0,0,1,0,19,18,17,17,41,65,16,0,0,0,0,0,0,0,
0,0,35,17,33,17,19,0,16,0,0,0,0,0,0,0,16,0,30,17,17,17,39,65,0,0,0,0,0,0,0,0,0,
16,50,17,21,17,19,0,21,17,0,0,0,0,0,0,0,0,34,17,17,17,43,64,0,0,0,0,0,0,0,0,29,
0,35,18,34,51,51,65,21,1,0,0,0,0,0,0,0,0,51,49,34,1,55,64,0,0,0,0,0,0,0,0,0,4,
27,17,16,16,62,64,16,1,0,0,0,0,0,0,0,0,54,17,17,81,7,64,0,160,0,1,0,0,0,0,1,0,
34,17,17,17,30,0,16,16,16,0,0,0,0,0,1,0,19,17,17,16,38,64,0,0,160,16,0,0,0,208,
16,209,34,17,33,17,147,0,16,17,0,0,16,0,16,0,1,0,50,17,17,16,35,64,0,0,0,0,0,0,
0,16,16,16,49,17,17,33,111,64,0,64,0,0,4,68,0,0,0,4,98,17,34,40,50,34,57,41,34,
99,35,50,34,18,33,33,129,0,4,50,129,17,1,193,50,34,34,34,143,35,34,34,35,51,39,
85,113,17,17,22,33,17,1,16,34,1,1,161,22,17,1,21,49,17,17,30,17,17,17,16,34,17,
16,16,18,10,17,16,97,12,17,22,32,17,0,17,145,17,16,0,144,1,17
, // 15, computer tech wall
52,59,53,220,38,141,54,143,75,76,77,61,74,5,66,95,48,0,0,0,10,17,0,0,0,0,38,0,0,
0,0,51,16,0,2,1,17,17,0,0,16,0,38,0,0,0,0,3,10,0,0,0,17,1,17,17,17,16,34,0,1,0,
0,0,7,0,0,0,17,49,81,33,33,32,34,48,1,48,0,0,2,0,0,0,17,1,1,17,17,16,38,0,0,0,0,
0,0,0,0,83,0,17,1,33,33,35,18,0,0,80,0,0,0,0,3,0,0,17,17,17,17,16,2,83,2,0,7,0,
0,85,19,19,3,17,17,33,33,32,2,17,0,32,0,0,0,0,48,0,1,16,1,0,16,0,34,17,17,0,0,0,
0,1,2,16,0,24,0,80,1,0,82,1,12,2,0,0,16,16,5,16,0,1,1,0,9,17,34,17,30,18,32,8,
16,0,96,0,0,17,17,17,17,17,34,80,85,16,32,1,0,2,2,0,0,17,68,68,68,68,34,5,85,1,
39,0,0,6,0,176,0,17,68,68,68,68,34,85,5,1,114,3,0,6,0,0,10,25,68,68,68,68,38,11,
85,1,114,3,0,6,0,0,0,17,68,68,68,68,34,0,48,1,2,3,2,6,0,0,0,17,68,68,68,68,34,0,
0,1,2,0,0,2,112,0,0,17,68,68,68,68,38,0,0,1,2,112,0,0,7,112,80,17,68,68,68,68,
38,0,0,21,34,0,0,16,32,0,0,19,34,34,34,34,34,5,0,80,34,177,17,227,0,53,1,17,16,
3,1,1,50,19,51,224,32,24,128,17,32,16,1,16,1,0,16,16,2,51,28,50,32,8,16,1,0,80,
0,21,0,0,16,1,146,51,137,6,0,1,0,1,16,0,17,17,0,0,17,16,34,17,144,32,0,3,0,0,17,
0,1,1,13,240,3,17,35,24,0,0,3,3,0,0,81,16,0,1,15,240,51,0,35,0,3,0,0,1,48,0,0,
195,0,17,0,0,5,49,34,0,3,0,160,3,0,0,5,48,206,17,4,208,109,0,2,48,0,112,2,3,57,
0,0,0,1,17,13,208,221,51,18,17,0,176,3,3,19,0,5,16,0,1,3,0,49,19,50,17,1,0,51,1,
144,0,48,0,0,17,0,0,0,48,34,49,48,0,0,3,48,0,0,0,10,17,0,0,0,0,38,0,0,0,0,51
};

SFG_PROGRAM_MEMORY uint8_t SFG_itemSprites[13 * SFG_TEXTURE_STORE_SIZE] =
{
// 0, barrel
175,6,106,29,100,84,7,92,2,43,10,11,46,4,28,200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,
15,240,0,0,0,0,0,0,255,248,255,255,255,255,255,255,248,143,255,255,255,255,255,
255,143,248,248,255,255,143,136,136,130,136,136,136,136,136,136,136,143,168,66,
136,136,137,136,146,146,130,153,153,146,146,143,66,168,170,226,34,130,41,73,41,
66,137,34,34,153,41,146,226,168,186,34,34,155,149,187,186,162,170,84,153,34,146,
36,158,170,234,34,233,229,93,170,171,85,91,43,78,68,66,146,36,187,121,228,237,
69,90,181,85,85,93,91,132,77,66,36,73,158,89,18,68,69,187,85,183,119,122,181,
187,68,66,68,18,222,93,18,68,77,161,197,28,119,119,170,26,94,34,36,18,213,93,
193,20,21,177,17,81,87,119,123,183,84,52,44,20,222,93,17,17,23,17,17,21,119,117,
17,81,65,35,65,28,213,93,49,17,26,21,186,167,119,225,17,17,113,34,49,49,222,93,
60,19,106,97,106,119,115,49,97,193,118,35,67,19,222,93,18,102,101,102,102,103,
117,86,22,54,113,50,35,18,213,93,18,198,99,118,102,119,119,119,119,183,54,99,38,
25,190,93,102,102,195,166,203,119,119,123,190,101,108,50,51,99,181,93,54,54,51,
117,22,19,87,187,229,53,51,34,33,28,222,125,51,51,51,58,49,28,17,49,21,227,19,
19,51,17,158,185,195,51,51,49,174,81,17,85,117,17,17,193,28,76,155,186,51,195,
51,17,61,91,187,181,49,52,49,28,20,28,154,170,25,236,30,49,49,17,49,193,17,17,
28,20,19,28,184,170,25,225,193,17,17,17,17,193,17,17,17,20,19,30,184,138,60,238,
236,193,193,193,17,195,65,17,17,225,68,62,175,250,34,34,34,34,34,36,225,228,34,
34,34,34,34,36,175,251,0,0,0,0,0,0,4,64,0,0,0,0,0,0,191,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 1, health
175,7,5,6,2,94,0,69,4,53,71,93,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,68,68,64,0,4,68,68,64,0,0,0,0,0,0,0,4,17,17,20,68,65,17,17,20,
0,0,0,0,0,0,0,65,18,35,49,17,19,50,35,56,64,0,0,0,0,0,4,17,55,119,119,119,119,
119,119,50,70,0,0,0,0,0,4,34,119,41,41,41,41,41,39,114,134,0,0,0,0,0,4,34,114,
146,146,146,146,146,149,115,38,0,0,0,0,0,68,19,161,17,17,17,17,17,53,163,54,0,0,
0,0,4,34,35,163,17,17,17,17,17,21,163,38,0,0,0,0,4,108,41,161,21,85,85,85,177,
53,162,134,0,0,0,0,4,4,34,163,21,85,85,85,177,21,162,70,0,0,0,0,4,4,194,161,49,
49,91,17,49,53,168,96,0,0,0,0,4,0,66,163,19,17,91,19,19,21,168,96,0,0,0,0,4,0,
66,161,49,49,91,17,49,53,168,96,0,0,0,0,4,4,194,163,19,17,91,19,19,21,168,96,0,
0,0,0,4,4,34,161,21,85,85,85,177,53,162,70,0,0,0,0,4,108,41,163,21,85,85,85,177,
21,162,134,0,0,0,0,6,34,35,161,17,17,17,17,17,53,163,38,0,0,0,0,0,102,19,163,17,
17,17,17,17,21,163,54,0,0,0,0,0,4,34,121,41,41,41,41,41,37,115,38,0,0,0,0,0,4,
34,119,146,146,146,146,146,151,114,134,0,0,0,0,0,4,19,55,119,119,119,119,119,
119,50,70,0,0,0,0,0,0,98,50,35,40,136,130,50,35,40,96,0,0,0,0,0,0,6,136,136,134,
102,104,136,136,134,0,0,0,0,0,0,0,0,102,102,96,0,6,102,102,96,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 2, ammo: bullets
175,124,168,125,2,5,21,194,19,17,112,113,190,3,4,23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,170,170,170,0,0,0,0,0,0,0,0,0,0,0,0,170,136,72,218,
0,0,0,0,0,2,34,34,34,34,32,10,104,102,214,73,32,0,0,0,0,34,119,119,119,119,34,
36,68,68,68,71,32,0,0,0,0,33,17,17,17,25,183,119,238,231,119,23,32,0,0,0,0,35,
17,17,20,68,183,119,238,231,119,23,32,0,0,0,0,35,17,20,72,132,183,119,238,231,
119,23,32,0,0,0,0,35,17,70,134,109,179,51,255,243,51,49,32,0,0,0,0,35,17,20,74,
170,179,119,85,81,17,49,32,0,0,0,0,35,17,26,168,132,179,113,85,81,17,49,32,0,0,
0,0,35,17,70,134,109,179,113,92,193,17,49,32,0,0,0,0,35,17,26,150,245,179,17,
204,81,17,49,32,0,0,0,0,35,17,20,137,153,179,17,197,81,17,49,32,0,0,0,0,35,17,
70,134,109,179,17,92,81,23,23,32,0,0,0,0,35,17,26,137,153,179,17,204,199,68,68,
66,0,0,0,0,35,17,20,152,132,179,17,85,68,136,72,66,0,0,0,0,35,17,70,134,109,179,
17,84,104,102,214,210,0,0,0,0,35,17,26,150,245,179,17,204,73,255,95,82,0,0,0,0,
35,17,20,152,132,179,17,85,193,153,154,162,0,0,0,0,35,17,70,134,109,179,17,92,
193,20,68,210,0,0,0,0,35,17,26,150,245,179,17,197,193,20,246,130,0,0,0,0,35,17,
72,137,153,179,17,197,81,20,93,66,0,0,0,0,35,17,26,152,132,179,17,92,193,25,246,
130,0,0,0,0,35,17,166,134,109,179,17,92,81,17,150,130,0,0,0,0,2,34,42,166,245,
179,17,204,193,17,152,32,0,0,0,0,0,0,0,2,34,179,17,85,81,17,58,32,0,0,0,0,0,0,0,
0,0,35,17,85,81,17,49,32,0,0,0,0,0,0,0,0,0,34,34,153,146,34,49,32,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,34,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0
, // 3, ammo: rockets
175,1,117,120,30,3,33,82,5,98,101,102,2,178,174,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,204,16,0,0,0,0,0,0,0,0,0,
0,0,0,17,26,197,81,17,17,17,16,0,0,0,0,0,0,0,17,204,202,85,92,113,119,23,16,0,0,
0,0,0,0,1,85,197,90,85,204,119,17,119,16,0,0,3,51,0,0,1,170,85,90,85,92,119,119,
119,16,0,3,59,47,51,0,1,85,197,90,85,204,124,119,199,193,0,59,187,42,169,51,53,
170,92,90,85,87,246,31,31,193,3,187,238,218,153,157,149,68,37,36,42,39,135,17,
17,17,0,62,238,217,153,51,53,85,82,36,34,167,136,97,17,16,0,3,222,217,211,0,6,
68,34,36,42,247,136,246,17,96,0,3,221,221,211,0,6,68,85,36,34,247,136,246,225,
96,0,59,187,42,169,51,53,68,133,36,42,39,136,246,209,96,3,187,238,218,153,157,
149,68,40,36,34,167,136,246,145,96,0,62,238,217,153,51,53,68,85,36,42,39,136,
246,225,96,0,3,222,217,211,0,6,68,130,36,34,167,136,246,209,96,0,3,221,221,211,
51,54,68,85,36,42,247,136,246,145,96,0,59,187,42,169,51,53,68,85,36,34,247,136,
246,225,96,3,187,238,218,153,157,149,68,34,36,42,39,136,246,209,96,0,62,238,217,
153,51,53,68,85,36,34,167,136,118,145,96,0,3,62,217,51,59,230,68,34,36,42,39,
136,201,153,16,0,0,3,51,0,50,182,68,34,36,34,167,135,106,153,16,0,0,0,0,0,3,54,
85,82,36,42,247,140,250,169,145,0,0,0,0,0,0,6,136,37,36,34,247,134,34,221,209,0,
0,0,0,0,0,0,102,72,68,42,39,134,187,238,236,0,0,0,0,0,0,0,0,102,104,34,166,102,
203,238,192,0,0,0,0,0,0,0,0,0,6,68,105,209,203,190,192,0,0,0,0,0,0,0,0,0,0,102,
1,145,28,188,0,0,0,0,0,0,0,0,0,0,0,0,0,17,16,192,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 4, ammo: plasma
175,6,0,2,4,142,206,5,7,62,205,115,207,116,1,201,0,0,0,0,35,51,51,51,51,50,0,3,
48,0,0,0,0,0,0,3,57,145,145,145,153,147,32,54,99,0,0,0,0,0,0,51,149,34,34,34,34,
52,34,42,162,34,34,32,0,0,2,57,50,143,255,34,243,34,238,39,66,238,62,32,0,0,3,
149,40,252,106,175,84,51,51,55,67,62,67,32,0,0,3,146,2,198,170,219,87,68,67,67,
52,67,116,32,0,0,3,146,2,198,170,221,87,68,67,68,68,67,116,32,0,0,3,146,2,198,
106,219,81,119,116,55,119,116,23,32,0,0,3,146,0,54,102,106,81,119,119,67,51,51,
52,32,0,0,3,146,0,251,187,187,184,17,17,17,17,23,67,32,0,0,3,50,2,106,221,219,
88,17,145,25,27,182,132,32,0,0,2,66,2,198,170,173,88,17,81,21,27,172,132,32,0,0,
3,50,2,198,106,171,88,17,81,89,27,172,132,32,0,0,2,66,0,54,102,106,88,153,85,
145,26,204,132,32,0,0,3,50,0,251,187,187,184,149,17,17,17,23,132,32,0,0,2,66,2,
106,221,219,88,17,25,25,17,23,132,32,0,0,3,50,2,198,170,221,88,21,21,21,17,23,
132,32,0,0,2,66,2,198,106,219,88,21,21,21,17,23,132,32,0,0,3,50,0,54,102,106,88,
25,21,81,17,23,132,32,0,0,2,66,0,251,187,187,184,17,17,25,17,23,132,32,0,0,3,50,
2,106,221,219,88,17,81,21,17,23,132,32,0,0,2,66,2,198,170,221,88,17,81,81,17,23,
132,32,0,0,3,146,2,198,106,219,88,17,85,21,17,23,132,32,0,0,3,146,0,54,102,106,
88,149,17,17,17,23,132,32,0,0,3,146,0,251,187,187,184,81,145,17,20,23,132,32,0,
0,3,146,2,106,221,219,88,17,81,81,23,23,132,32,0,0,3,146,2,198,170,221,88,17,81,
149,20,23,132,32,0,0,3,149,34,198,106,170,88,17,85,17,17,23,67,32,0,0,2,52,62,
54,102,106,88,17,17,51,51,51,52,32,0,0,0,35,69,46,238,238,247,119,115,71,119,
116,116,32,0,0,0,2,52,65,65,65,67,51,34,35,50,34,34,32,0,0,0,0,34,34,34,34,34,
34,0,2,32,0,0,0
, // 5, tree
175,0,17,115,5,3,2,196,4,114,20,38,22,96,37,21,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,51,0,0,0,1,17,0,0,0,3,54,32,0,0,0,3,51,51,0,17,26,72,0,0,0,
59,187,178,0,0,0,0,3,51,49,72,100,72,0,0,3,187,238,113,0,0,0,0,38,98,49,68,100,
72,0,0,6,190,231,57,16,0,0,34,187,238,33,68,100,72,0,0,34,190,119,57,16,0,0,43,
119,119,114,100,101,72,0,2,194,231,115,145,16,2,32,1,23,119,114,100,70,136,2,34,
194,231,57,145,0,44,16,51,49,19,114,68,134,85,2,204,207,147,153,145,2,193,3,51,
27,51,50,72,100,72,0,17,204,169,34,209,26,16,0,1,179,50,33,70,68,72,0,0,17,207,
82,37,173,16,0,0,17,38,98,86,164,72,0,0,0,17,26,85,33,98,0,1,170,85,82,72,106,
72,0,0,0,0,1,90,93,22,17,31,165,85,34,68,134,88,0,51,102,0,29,42,166,221,42,250,
85,34,33,68,72,101,3,187,183,17,204,246,250,82,255,85,82,45,210,100,70,72,3,190,
121,111,245,95,207,255,165,85,45,17,18,100,70,72,59,183,115,146,93,223,204,165,
85,45,17,119,114,68,72,101,59,231,115,146,209,165,44,109,17,29,42,17,50,68,134,
88,110,119,57,157,218,93,198,209,17,1,29,165,18,72,106,72,30,115,57,157,170,34,
198,17,145,0,49,37,82,86,164,72,1,51,153,37,93,28,81,41,16,3,49,210,82,70,68,72,
0,25,34,121,17,28,33,17,0,0,51,29,34,72,100,72,0,1,119,57,16,26,33,0,0,3,54,177,
34,68,134,85,0,1,115,145,16,21,16,0,3,54,107,18,82,100,70,136,0,0,17,17,2,25,18,
0,0,43,231,21,82,100,101,72,0,0,0,0,33,123,113,32,0,2,35,49,82,68,100,72,0,0,0,
0,27,238,121,16,0,0,49,17,18,68,100,72,0,0,0,0,30,231,57,16,0,51,51,51,50,72,
100,72,0,0,0,0,30,115,145,16,0,0,51,48,0,17,26,72,0,0,0,0,1,57,17,0,0,3,48,0,0,
0,1,17,0,0,0,0,0,17,16,0,0,0,0,0,0,0,0,0
, // 6, finish
175,3,4,0,5,1,2,6,50,7,198,209,48,42,44,49,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,51,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,147,3,51,51,51,51,51,
51,51,51,51,51,51,51,51,54,115,3,153,153,153,34,153,153,146,41,153,153,34,153,
153,153,115,3,119,119,119,34,119,119,114,39,119,119,34,119,119,119,67,3,68,68,
71,119,119,119,119,119,119,119,119,119,119,119,67,3,68,68,71,34,34,34,34,34,34,
34,34,34,34,34,67,53,85,85,71,40,136,136,136,136,136,136,136,136,129,68,115,49,
170,165,36,43,204,204,95,102,102,102,102,102,97,71,115,49,170,165,36,43,204,197,
246,102,102,102,102,102,97,65,67,49,161,165,36,43,187,255,216,136,136,136,136,
136,129,65,67,49,17,21,36,43,187,253,136,136,136,136,136,136,129,65,67,49,161,
165,36,43,187,253,136,136,136,136,136,136,129,65,67,49,26,21,36,43,102,129,17,
17,17,17,17,17,17,65,67,49,161,165,18,43,102,129,17,17,17,17,17,17,17,65,67,49,
17,21,18,43,102,129,17,17,17,17,17,17,17,65,67,49,170,165,18,43,17,34,34,34,34,
34,34,34,33,65,67,49,17,21,18,43,17,34,34,34,34,34,34,34,33,65,67,49,161,21,18,
43,18,68,68,68,68,68,68,68,65,65,67,49,170,165,142,43,18,68,68,68,68,68,68,68,
65,65,67,49,161,21,142,43,18,119,119,119,119,119,119,119,113,85,83,53,85,85,142,
38,18,68,68,68,68,68,68,68,65,245,83,3,102,102,97,34,34,34,34,34,34,34,34,34,33,
255,99,3,102,102,97,85,85,85,85,85,85,85,85,85,85,85,99,3,102,102,102,17,102,
102,97,22,102,102,17,102,102,102,99,3,85,85,85,17,85,85,81,21,85,85,17,85,85,86,
99,3,51,51,51,51,51,51,51,51,51,51,51,51,51,53,83,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,
83,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,51,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0
, // 7, teleport
175,0,151,6,3,143,5,4,134,53,55,2,127,63,45,54,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,17,16,0,0,1,17,0,0,1,17,17,16,0,0,0,1,183,177,0,0,27,123,16,0,18,33,18,
33,0,0,0,1,86,113,0,0,21,103,16,0,18,123,27,177,0,0,0,1,86,113,0,0,21,103,17,17,
18,55,183,113,0,1,17,17,68,65,176,11,20,68,67,51,123,51,182,97,0,20,51,51,51,51,
17,17,51,51,54,37,17,99,118,97,0,19,100,68,34,86,51,51,101,34,41,204,145,68,71,
113,0,19,68,68,34,34,34,37,82,34,124,136,155,68,68,65,0,19,221,37,82,40,130,34,
130,85,142,232,235,151,116,65,0,19,68,40,130,85,85,88,200,204,206,233,235,244,
75,177,0,19,69,172,205,165,34,34,85,136,204,136,228,254,70,116,0,19,68,172,202,
170,221,34,85,34,233,153,148,249,70,116,0,19,74,172,205,170,210,34,85,34,238,
153,151,249,70,116,0,19,74,170,221,170,210,34,85,37,140,136,151,249,118,116,0,
19,173,221,210,85,34,37,88,136,200,233,151,249,230,116,0,19,77,221,210,88,34,85,
136,136,200,153,158,249,230,116,0,19,68,221,221,218,34,34,85,37,136,136,158,249,
230,116,0,19,69,221,221,218,210,34,130,34,156,201,151,249,118,116,0,19,68,90,
170,170,173,34,130,34,156,201,151,249,118,116,0,19,170,74,221,213,130,37,85,136,
140,204,151,249,70,116,0,19,90,88,34,37,82,89,137,156,204,238,158,244,68,177,0,
19,165,40,34,34,130,37,130,85,94,232,155,246,51,49,0,19,68,68,34,34,34,34,85,34,
200,85,155,147,54,49,0,19,100,68,34,86,51,51,101,34,44,153,155,99,118,97,0,20,
51,51,51,51,17,17,51,51,54,85,113,115,118,97,0,1,17,17,68,65,176,11,20,68,67,51,
228,99,182,97,0,0,0,1,86,113,0,0,21,103,17,17,23,54,182,113,0,0,0,1,86,113,0,0,
21,103,16,0,18,107,23,113,0,0,0,1,183,177,0,0,27,123,16,0,18,33,18,33,0,0,0,0,
17,16,0,0,1,17,0,0,1,17,17,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 8, computer terminal
175,0,1,85,5,4,23,6,9,26,80,65,2,84,161,194,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,17,0,1,17,17,17,17,17,17,0,1,16,0,0,0,1,116,0,22,101,101,102,102,102,
101,16,1,65,0,0,238,225,117,1,99,53,53,51,51,51,53,187,27,75,17,17,238,17,69,22,
60,129,17,17,17,17,139,83,102,74,140,158,233,154,69,22,56,148,68,68,68,73,21,51,
54,74,142,238,51,25,69,22,49,66,34,34,34,36,19,68,54,90,238,141,61,169,69,21,
177,66,242,242,34,36,19,119,54,202,131,51,218,121,69,22,49,66,242,34,34,36,31,
119,54,90,141,216,167,121,69,22,49,66,242,242,34,36,131,119,54,202,17,138,119,
73,69,22,49,66,242,34,34,36,207,119,54,90,87,119,68,89,69,22,49,66,242,34,34,36,
195,119,54,90,148,68,85,89,69,22,49,66,34,34,34,36,195,119,54,90,181,85,85,89,
69,22,49,79,255,255,255,244,195,119,54,202,185,153,149,89,69,22,49,66,34,34,34,
36,195,119,54,90,185,153,153,153,69,22,49,66,34,34,34,36,140,119,54,90,17,138,
187,153,85,22,49,66,34,34,34,36,19,119,54,202,141,216,171,187,69,21,177,66,34,
34,34,36,28,119,54,90,131,51,218,187,85,22,49,66,34,34,34,36,19,68,54,90,133,85,
93,171,149,22,56,148,68,68,68,73,21,51,54,74,141,221,93,27,89,22,60,129,17,17,
17,17,139,83,54,74,136,136,136,138,149,1,51,60,60,51,51,51,53,187,27,75,17,17,
17,17,153,0,24,140,140,136,136,136,136,16,1,65,0,0,0,1,153,0,1,17,17,17,17,17,
17,0,1,16,0,0,0,1,187,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0
, // 9, column
175,2,4,3,5,48,6,63,51,7,81,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,65,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,20,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,73,16,0,0,0,0,0,0,0,
0,0,0,0,0,1,148,38,145,16,0,0,16,0,0,0,1,0,0,0,1,22,146,36,105,145,17,17,33,17,
17,17,23,17,17,17,25,150,98,36,102,67,119,119,41,121,150,102,103,119,118,121,54,
150,98,36,70,67,68,71,36,68,68,68,71,66,119,119,57,70,66,50,68,67,36,68,40,68,
68,67,34,66,36,68,52,36,66,34,34,35,51,51,40,34,50,40,34,35,50,34,52,36,66,50,
34,33,49,129,40,35,131,49,50,35,50,50,20,36,66,35,34,33,17,17,40,129,51,49,18,
51,50,131,18,36,34,51,51,49,17,24,33,19,51,17,50,56,51,131,18,34,66,50,51,49,26,
161,33,51,17,19,50,17,51,19,19,50,51,51,19,49,170,161,35,17,17,17,18,51,19,19,
19,50,35,49,19,17,161,168,34,130,35,56,34,34,33,131,17,34,33,49,50,53,85,85,37,
85,85,85,82,85,85,85,82,67,49,17,42,160,0,0,16,0,0,0,1,0,0,0,10,162,33,19,160,0,
0,0,0,0,0,0,0,0,0,0,0,10,33,26,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,17,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,17,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 10, ruin
175,5,4,3,50,153,2,75,12,6,13,21,240,17,74,83,0,0,0,0,0,0,0,5,0,0,0,9,25,56,18,
19,0,0,0,0,0,0,0,5,0,0,0,145,34,162,56,35,0,0,0,0,0,0,0,117,0,0,0,18,19,49,35,
50,0,0,0,0,119,87,116,69,119,87,82,25,34,51,50,162,0,0,0,5,84,84,84,84,84,85,69,
154,34,34,51,34,0,0,0,0,0,0,0,117,0,0,2,145,33,177,19,50,0,0,0,0,0,0,0,236,0,0,
153,17,17,18,34,51,0,0,0,0,0,0,0,204,0,9,155,17,177,17,17,19,0,0,0,0,0,0,0,236,
0,9,17,17,34,17,17,131,0,0,0,0,0,0,17,17,17,17,17,17,161,17,17,38,0,0,0,0,0,1,
17,35,51,17,177,17,17,17,19,99,0,0,0,0,0,1,19,35,57,33,17,17,18,177,35,102,0,0,
0,0,0,2,24,51,17,17,17,18,17,17,54,102,0,0,0,7,119,124,34,56,33,177,17,27,18,18,
102,214,0,0,0,119,84,92,19,50,33,18,33,17,17,40,99,51,0,0,119,117,0,4,19,51,161,
17,17,17,27,54,70,111,0,0,0,0,0,3,35,67,49,177,33,17,18,99,18,34,0,0,0,0,0,0,34,
51,52,50,34,162,38,49,161,130,0,0,0,0,0,0,65,34,130,68,50,18,131,34,17,33,0,0,0,
0,0,0,49,35,34,52,72,34,99,18,18,42,0,0,0,0,0,0,66,35,35,56,68,214,49,34,33,34,
0,0,7,119,71,71,193,51,50,51,34,70,50,18,162,33,0,0,0,85,84,84,65,35,131,50,132,
70,33,18,34,34,0,0,0,0,0,0,49,35,51,51,52,70,34,35,51,50,0,0,0,0,0,0,51,52,68,
67,68,46,131,51,51,51,0,0,0,0,0,0,244,68,221,77,221,34,102,102,54,109,0,0,0,0,0,
0,0,7,80,0,6,18,35,238,102,102,0,0,0,0,0,0,0,7,80,0,3,18,34,243,51,230,0,0,0,0,
0,84,68,71,84,119,117,146,34,40,51,246,0,0,0,0,0,0,68,85,85,85,67,18,35,35,34,
52,0,0,0,0,0,0,0,5,80,0,0,51,51,51,51,51,0,0,0,0,0,0,0,5,0,0,0,0,51,50,51,35
, // 11, lamp
175,0,49,31,7,106,27,28,107,3,4,105,1,2,26,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,220,16,0,0,0,0,0,0,0,0,0,0,0,0,0,1,220,
16,0,0,0,0,0,0,0,0,0,0,0,0,0,29,220,193,0,0,0,0,0,0,0,0,0,0,0,0,0,22,220,91,0,0,
0,0,0,0,0,0,17,0,1,16,85,103,146,88,85,0,0,0,0,0,0,1,33,0,22,133,51,103,146,232,
51,80,0,0,0,0,0,1,33,17,215,131,51,103,146,248,67,80,0,0,1,16,0,25,33,28,103,
132,68,103,146,248,68,59,187,177,26,33,17,153,33,28,119,132,68,231,98,232,68,55,
119,226,42,34,34,153,33,28,167,132,68,103,111,104,68,59,187,177,26,33,17,169,33,
17,167,131,51,119,98,136,67,80,0,0,1,16,0,26,33,0,23,85,51,119,111,230,51,80,0,
0,0,0,0,1,33,0,1,16,85,119,146,230,85,0,0,0,0,0,0,1,33,0,0,0,0,26,146,97,0,0,0,
0,0,0,0,0,17,0,0,0,0,26,162,241,0,0,0,0,0,0,0,0,0,0,0,0,0,1,175,16,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,162,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 12, access card
175,0,21,45,44,23,46,2,19,34,69,22,68,60,131,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,17,17,17,17,17,17,0,0,0,0,0,0,0,0,1,
68,17,24,102,101,86,97,0,0,0,0,0,0,0,0,1,68,17,24,102,85,86,101,16,0,0,0,0,0,0,
0,1,67,17,24,101,85,86,101,183,16,0,0,0,0,0,0,1,51,17,24,85,85,102,59,178,16,0,
0,0,0,0,0,1,51,17,24,85,86,232,219,34,240,0,0,0,0,0,0,1,51,17,24,85,86,131,130,
34,240,0,0,0,0,0,0,1,51,17,24,85,102,52,114,34,16,0,0,0,0,0,0,1,54,17,24,86,99,
56,66,34,16,0,0,0,0,0,0,1,102,17,24,86,51,141,114,34,16,0,0,0,0,0,0,1,101,17,24,
102,51,211,114,34,16,0,0,0,0,0,0,1,101,17,24,99,51,55,114,34,16,0,0,0,0,0,0,1,
85,17,24,51,51,119,226,34,16,0,0,0,0,0,0,1,85,17,24,51,52,71,34,34,16,0,0,0,0,0,
0,1,85,17,24,51,52,119,130,34,16,0,0,0,0,0,0,1,85,17,24,51,68,228,114,34,16,0,0,
0,0,0,0,1,85,17,24,52,68,66,34,34,16,0,0,0,0,0,0,1,86,17,25,52,68,66,34,34,16,0,
0,0,0,0,0,1,86,17,23,68,68,34,34,34,16,0,0,0,0,0,0,1,102,17,23,68,68,34,34,34,
16,0,0,0,0,0,0,1,99,17,23,68,153,153,114,34,16,0,0,0,0,0,0,1,99,17,23,68,154,
170,114,34,16,0,0,0,0,0,0,1,51,17,23,68,154,204,114,34,16,0,0,0,0,0,0,1,51,17,
23,68,154,204,114,34,16,0,0,0,0,0,0,1,51,17,23,68,151,119,114,34,16,0,0,0,0,0,0,
1,51,17,23,66,130,34,130,34,16,0,0,0,0,0,0,1,51,17,23,66,130,34,130,34,16,0,0,0,
0,0,0,0,17,17,17,17,17,17,17,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0
};

SFG_PROGRAM_MEMORY uint8_t SFG_backgroundImages[3 * SFG_TEXTURE_STORE_SIZE] =
{
// 0, city
64,10,73,168,19,12,14,13,80,1,72,101,0,100,136,57,17,17,17,68,87,119,119,119,
118,8,0,32,0,46,34,154,17,17,20,85,84,85,119,118,102,96,0,130,130,2,34,154,17,
17,20,65,68,69,119,102,99,48,48,0,2,32,34,154,17,17,17,17,68,68,87,118,102,102,
104,0,2,14,34,154,17,17,17,20,69,69,51,51,0,8,0,224,2,32,34,154,17,17,17,20,85,
87,60,204,195,51,0,0,0,2,34,154,17,17,17,68,85,119,252,204,51,224,48,0,0,32,34,
154,17,17,17,68,85,119,51,51,48,3,0,0,130,34,34,154,17,17,68,68,85,119,119,102,
102,104,48,40,32,32,34,154,17,17,20,69,87,119,119,102,102,102,128,128,0,2,34,
154,17,17,17,69,87,51,51,51,0,8,48,40,32,32,34,154,17,17,17,20,87,60,252,252,
243,51,0,0,128,2,34,154,65,17,17,20,85,60,204,204,51,48,48,0,32,32,34,154,17,17,
17,68,85,51,63,51,48,51,8,130,130,2,34,154,17,17,20,69,103,181,85,86,102,0,56,0,
0,46,34,154,17,17,17,69,85,187,85,91,102,3,15,0,0,2,34,154,17,17,17,68,85,187,
51,51,0,8,8,0,0,32,34,154,17,17,17,68,77,187,51,51,48,0,142,0,0,2,34,154,17,17,
17,68,77,219,51,51,0,8,48,0,0,32,34,154,17,17,65,69,51,51,60,204,195,51,224,0,0,
2,34,154,17,17,68,69,63,239,204,204,51,48,224,0,0,32,34,154,17,17,71,69,51,51,
51,51,48,240,136,128,14,2,34,154,68,17,71,68,85,221,187,219,176,8,48,40,32,46,
34,154,17,17,20,68,69,93,219,211,48,0,0,0,0,2,34,154,17,17,68,68,77,219,221,211,
0,8,48,0,224,32,34,154,65,20,69,85,84,219,221,179,48,0,136,128,0,2,34,154,17,68,
69,85,119,123,221,219,182,104,8,32,0,32,34,154,17,17,68,69,87,107,221,187,102,
102,102,128,0,2,34,154,17,17,20,85,87,107,219,190,0,8,8,0,0,32,34,154,17,17,20,
84,86,107,182,102,102,3,224,0,2,2,34,154,17,17,20,68,71,103,118,110,0,8,0,40,34,
32,34,154,17,17,17,68,71,102,103,102,102,102,104,128,0,2,34,154
, // 1, reddish scifi interior
168,18,17,19,65,153,1,9,152,232,0,45,61,80,96,160,18,114,34,34,34,34,34,80,0,0,
0,0,0,0,0,0,18,114,34,34,34,34,34,80,0,0,0,0,0,0,0,0,0,215,34,34,34,34,34,80,0,
0,0,0,0,0,0,0,0,119,34,34,34,34,34,80,0,0,0,0,0,0,0,0,0,214,34,34,34,34,34,34,
32,0,0,0,0,0,0,0,0,118,34,34,34,34,34,34,36,69,0,0,0,0,0,0,18,118,17,17,17,17,
17,17,20,69,0,0,0,0,0,0,18,118,17,17,17,17,17,17,20,69,0,0,0,0,0,0,18,118,114,
34,34,34,34,34,116,69,0,0,0,0,0,0,18,118,130,34,34,38,0,0,0,0,0,0,0,0,0,0,18,
118,135,34,34,34,0,0,0,0,0,0,0,0,0,0,85,86,138,34,34,34,34,41,133,0,0,0,0,0,0,0,
0,86,138,17,17,17,17,25,133,85,0,0,0,0,0,0,0,86,138,17,17,17,27,25,132,70,0,0,0,
0,0,0,0,85,85,85,17,17,17,25,132,70,0,0,0,0,0,0,0,0,0,5,17,17,17,25,132,70,0,0,
0,0,0,0,0,0,0,5,17,27,17,25,132,70,0,0,0,0,0,0,0,6,128,17,17,17,17,25,132,70,0,
0,0,0,0,0,16,118,128,17,17,27,17,25,246,0,0,0,0,0,0,0,16,118,128,17,17,17,17,25,
132,0,0,0,0,0,0,0,16,118,128,51,51,51,51,57,246,0,0,0,0,0,0,0,16,118,130,51,51,
51,51,50,132,0,0,0,0,0,0,0,16,118,130,51,51,51,51,50,132,0,0,0,0,0,0,0,16,118,
131,51,51,51,51,51,132,70,0,0,0,0,0,0,0,0,5,60,51,51,51,51,36,70,0,0,0,0,0,0,0,
0,5,51,51,51,51,51,36,70,0,0,0,0,0,0,0,14,229,51,51,51,51,51,52,70,0,0,0,0,0,0,
85,85,51,195,51,51,51,51,52,64,0,0,0,0,0,0,18,114,17,17,17,17,17,17,18,64,0,0,0,
0,0,0,18,113,17,17,17,17,17,17,17,64,0,0,0,0,0,0,18,115,51,51,51,51,51,80,0,0,0,
0,0,0,0,0,18,115,51,51,51,51,51,80,0,0,0,0,0,0,0,0
, // 2, red city at night
171,1,175,90,172,174,173,25,27,30,91,103,0,0,0,0,113,23,113,17,51,68,68,102,102,
85,82,34,34,34,38,49,113,23,113,17,51,68,68,102,102,85,82,34,34,34,35,51,113,0,
0,0,0,0,0,0,68,69,85,19,4,101,166,17,113,0,0,4,68,102,102,85,85,81,17,19,4,101,
38,54,113,0,0,4,68,102,102,85,85,81,17,19,4,101,38,51,113,0,0,4,68,102,102,85,
85,82,33,19,4,101,34,49,113,0,0,0,0,0,0,0,4,69,81,19,4,101,42,17,119,17,17,17,
17,0,4,68,102,85,85,35,4,101,42,51,135,17,17,51,51,51,0,0,0,0,68,83,4,101,34,17,
152,113,17,59,51,48,0,4,68,102,85,19,4,101,34,83,152,113,17,51,51,48,0,4,68,17,
17,19,4,101,42,51,135,113,17,51,51,48,0,4,68,17,17,19,4,101,164,17,119,17,17,59,
51,48,0,4,68,102,82,19,4,101,165,17,119,17,17,51,51,51,0,0,0,0,69,85,85,34,37,
51,119,113,17,17,17,16,4,68,102,101,82,37,85,34,34,102,119,119,17,19,51,0,4,70,
102,85,34,37,85,34,34,34,119,119,17,17,17,0,4,70,101,85,34,37,85,34,34,34,119,
17,17,17,17,16,4,70,101,82,38,17,48,70,51,34,113,16,0,0,0,0,0,0,102,102,33,17,
48,67,50,38,17,16,176,176,0,4,68,102,101,82,33,17,48,17,51,51,113,16,0,0,0,4,68,
102,101,82,33,17,48,17,51,50,113,16,0,0,0,4,68,102,101,82,38,17,48,17,51,51,135,
17,17,17,17,16,0,0,0,82,34,34,34,35,50,34,136,113,17,17,17,19,0,0,70,85,85,34,
34,36,51,36,136,113,17,16,0,3,48,0,0,0,68,102,82,36,17,17,152,135,17,16,0,0,51,
0,4,68,85,85,34,33,17,22,153,135,17,16,0,0,0,0,0,0,68,102,82,37,17,17,153,135,
17,17,17,16,0,68,70,101,1,19,4,101,81,34,152,119,16,0,0,0,4,68,64,17,17,19,4,
101,34,36,152,119,16,0,0,0,0,68,70,101,1,19,4,101,35,51,135,119,16,0,0,0,0,4,70,
101,85,34,34,34,35,54,119,23,16,0,0,0,0,0,0,4,69,82,34,34,35,51
};

SFG_PROGRAM_MEMORY uint8_t SFG_weaponImages[6 * SFG_TEXTURE_STORE_SIZE] =
{
// 0, knife
175,5,4,2,0,3,6,1,61,83,85,60,63,77,40,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,68,68,0,0,0,0,0,0,0,0,0,0,0,0,0,4,97,163,64,0,0,0,0,0,0,0,0,0,0,0,0,4,106,169,
64,0,0,0,0,0,0,0,0,0,0,0,0,4,26,217,64,0,0,0,0,0,0,0,0,0,0,0,0,0,74,147,64,0,0,
0,0,0,0,0,0,0,0,5,85,85,57,147,116,0,0,0,0,0,0,0,0,5,85,86,108,136,61,153,116,0,
0,0,0,0,0,0,85,88,102,102,102,136,49,148,68,68,0,0,0,0,0,88,17,102,204,102,102,
136,54,227,83,52,0,0,0,0,85,34,17,102,102,111,246,24,118,114,34,34,0,0,0,85,17,
34,22,111,108,97,17,18,118,114,53,83,0,0,85,17,22,17,17,34,34,37,85,87,113,117,
51,83,0,5,17,22,24,130,34,17,17,24,27,37,114,51,51,83,0,81,22,98,187,184,17,102,
97,17,34,37,114,51,51,51,5,17,104,187,34,134,102,102,102,18,33,37,121,51,51,51,
5,22,139,130,40,24,140,204,129,34,17,37,121,115,115,119,81,17,85,82,82,33,28,97,
17,34,34,37,125,119,115,119,51,51,52,116,68,68,49,33,21,34,82,37,125,55,119,119,
0,0,0,0,0,0,3,65,35,43,226,37,125,151,71,119,0,0,0,0,0,0,0,3,126,35,69,37,58,
147,116,68,0,0,0,0,0,0,0,0,14,52,4,87,61,147,116,0,0,0,0,0,0,0,0,0,0,0,14,68,57,
147,64,0,0,0,0,0,0,0,0,0,0,0,0,0,74,147,64,0,0,0,0,0,0,0,0,0,0,0,0,4,26,217,64,
0,0,0,0,0,0,0,0,0,0,0,0,4,170,167,64,0,0,0,0,0,0,0,0,0,0,0,0,4,157,167,64,0,0,0,
0,0,0,0,0,0,0,0,0,0,68,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0
, // 1, shotgun
175,3,4,54,5,17,2,1,7,101,100,99,25,98,9,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,119,119,
0,0,0,0,0,0,0,0,0,0,0,0,102,103,91,170,0,0,0,0,0,0,0,0,0,0,1,22,67,45,186,153,0,
0,0,0,0,0,0,0,1,17,20,50,52,218,153,74,0,0,0,0,0,0,0,17,18,35,136,55,20,218,153,
75,0,0,0,0,0,17,17,68,72,131,51,71,20,91,169,170,0,0,0,0,17,52,51,136,51,35,136,
35,52,93,187,180,0,0,0,1,51,19,131,56,130,67,50,36,66,91,186,148,0,0,0,19,51,19,
136,136,50,36,17,71,18,93,186,154,0,0,0,24,134,56,131,52,68,17,194,39,18,85,219,
187,0,0,6,51,54,51,52,68,66,34,34,34,34,21,255,185,0,0,6,51,50,50,34,34,34,33,
17,17,23,28,93,169,0,0,87,114,34,98,17,17,17,17,17,17,23,28,85,169,0,9,188,231,
21,97,81,85,85,85,92,92,197,197,87,218,0,5,85,206,236,229,85,85,117,117,119,119,
119,199,119,221,0,0,7,204,193,17,17,17,17,17,17,17,17,252,87,218,0,5,85,204,202,
170,169,153,153,153,153,153,170,170,87,169,0,9,188,199,34,193,17,17,17,17,17,17,
23,17,85,169,0,0,87,115,50,35,51,136,51,52,68,34,39,17,91,153,0,0,6,136,134,56,
136,136,136,131,51,136,136,65,219,185,0,0,6,51,54,67,51,51,131,56,136,55,24,77,
186,187,0,0,0,98,38,35,68,68,51,34,35,55,20,45,169,148,0,0,0,100,68,100,34,34,
44,18,17,67,52,219,153,68,0,0,0,6,68,34,34,18,38,97,28,98,34,219,171,186,0,0,0,
0,102,17,68,33,17,108,17,103,17,91,219,171,0,0,0,0,0,102,102,20,68,34,33,103,22,
93,186,154,0,0,0,0,0,0,0,102,98,34,68,70,22,91,186,153,0,0,0,0,0,0,0,0,6,102,98,
44,38,93,186,153,0,0,0,0,0,0,0,0,0,0,6,102,34,101,219,153,0,0,0,0,0,0,0,0,0,0,0,
0,102,103,95,170,0,0,0,0,0,0,0,0,0,0,0,0,0,0,119,119,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0
, // 2, machine gun
175,2,4,3,1,5,6,0,60,59,50,53,61,62,74,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,20,68,64,0,0,0,0,0,0,0,0,0,0,0,17,34,51,17,20,0,
0,0,0,0,0,0,0,0,0,1,98,17,17,68,71,65,17,16,0,0,0,0,0,0,0,22,33,17,20,68,70,102,
35,167,0,0,0,0,0,0,0,22,33,20,68,97,22,98,50,228,0,0,0,0,0,0,0,118,52,70,17,102,
102,34,34,20,0,0,0,0,0,0,7,51,17,22,102,102,101,37,35,20,0,0,0,0,0,0,22,102,22,
34,82,140,178,34,49,20,0,0,0,0,0,1,82,34,51,50,34,43,178,51,161,68,0,0,0,0,17,
17,34,35,51,152,49,19,51,161,68,68,0,0,1,17,88,83,34,58,19,136,37,37,50,51,133,
85,0,0,22,150,134,99,35,147,50,34,85,85,34,51,34,85,0,0,121,24,56,209,35,51,50,
34,85,82,34,51,34,37,0,0,113,19,18,33,35,51,34,37,85,34,37,51,34,34,0,0,1,119,
49,49,147,38,101,85,85,34,85,51,130,34,0,0,0,0,119,113,147,50,34,86,102,86,98,
161,68,68,0,0,0,0,0,7,25,34,37,85,34,37,195,51,161,68,0,0,0,0,0,0,113,17,17,51,
53,92,131,51,49,20,0,0,0,0,0,0,7,19,20,65,17,17,19,50,51,20,0,0,0,0,0,0,0,118,
20,65,68,17,17,50,35,20,0,0,0,0,0,0,0,22,17,68,68,20,65,19,51,20,0,0,0,0,0,0,0,
22,33,17,68,68,65,17,51,23,0,0,0,0,0,0,0,7,98,49,17,20,119,68,68,64,0,0,0,0,0,0,
0,0,23,34,51,17,20,0,0,0,0,0,0,0,0,0,0,0,0,17,119,119,64,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 3, rocket launcher
175,33,7,39,115,2,0,5,117,116,4,37,114,3,36,108,0,0,0,0,0,0,0,0,0,0,0,0,13,209,
102,0,0,0,0,0,0,0,0,0,0,0,0,221,218,122,85,96,0,0,0,0,0,0,0,0,0,0,13,34,39,165,
51,96,0,0,0,0,0,0,0,0,0,0,5,170,170,165,51,96,0,0,0,0,0,0,0,0,0,0,5,93,221,221,
81,102,0,0,0,0,102,102,16,0,0,0,17,102,102,102,102,204,0,0,0,17,170,173,214,80,
17,17,136,137,198,204,193,206,0,0,93,122,213,81,17,17,136,136,137,68,193,236,
158,238,0,5,170,17,22,20,148,152,148,204,196,153,66,153,136,136,0,90,161,17,100,
68,76,68,76,153,153,137,40,136,136,136,5,163,17,17,73,153,201,153,201,136,139,
190,43,179,51,51,5,58,81,20,136,132,136,132,139,179,55,226,51,51,51,51,13,42,17,
24,187,180,68,68,178,34,34,162,34,34,34,35,215,33,17,72,187,119,114,36,34,34,35,
162,35,51,51,17,211,33,21,131,50,34,34,46,34,34,34,162,34,34,209,51,163,37,85,
131,51,51,34,46,34,34,34,114,34,45,51,119,163,37,85,232,51,51,51,62,51,51,51,
178,51,127,55,187,211,37,85,238,238,238,238,228,136,136,187,226,51,115,123,185,
215,49,81,20,68,68,73,148,153,152,142,146,235,175,251,153,13,58,17,28,68,68,68,
68,68,68,153,67,153,175,123,153,5,122,17,81,204,196,68,68,68,68,68,67,116,175,
123,137,5,119,85,85,97,204,204,204,204,68,68,71,36,223,123,185,0,87,117,85,81,
102,17,17,28,204,204,196,58,211,123,184,0,5,119,165,85,81,102,85,17,17,17,204,
167,211,119,187,0,0,81,122,213,85,85,22,101,85,17,17,74,31,119,187,0,0,0,17,170,
173,214,16,102,102,85,17,17,31,247,119,0,0,0,0,102,102,96,0,0,0,102,102,81,31,
119,119,0,0,0,0,0,0,0,0,0,0,0,0,102,23,123,183,0,0,0,0,0,0,0,0,0,0,0,0,0,109,
123,187,0,0,0,0,0,0,0,0,0,0,0,0,0,97,215,136,0,0,0,0,0,0,0,0,0,0,0,0,0,6,109,
255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,102
, // 4, plasma gun
175,4,3,6,5,17,50,49,0,187,7,190,37,42,100,209,0,0,0,0,0,0,0,0,0,0,0,0,2,80,1,
17,0,0,0,0,0,0,0,0,0,0,37,0,44,149,26,163,0,0,0,0,0,0,0,2,80,2,198,80,134,106,
163,51,0,0,0,0,0,0,0,44,101,2,194,37,170,170,51,51,0,0,0,0,0,0,2,201,103,88,42,
170,163,51,21,86,0,0,0,0,119,0,2,194,37,170,74,51,52,85,102,17,0,0,0,34,68,112,
40,42,170,172,67,51,70,33,17,17,0,0,34,52,68,130,74,164,51,196,51,51,110,17,18,
85,0,2,51,66,136,170,67,51,68,67,51,52,81,17,37,51,0,42,52,119,170,68,51,51,51,
51,51,66,17,18,68,68,2,163,55,42,163,51,52,66,221,85,93,33,17,68,17,153,2,119,
119,118,102,102,98,33,17,18,17,18,20,73,187,187,42,52,17,17,17,17,17,17,17,17,
33,17,36,155,149,136,36,18,119,117,86,97,20,68,68,68,36,68,33,185,83,67,35,68,
65,39,150,150,22,22,145,105,22,145,27,181,51,20,35,68,17,39,185,185,185,185,187,
155,185,187,187,182,52,20,35,65,18,39,150,150,22,22,145,105,22,145,27,182,68,20,
33,34,119,117,86,97,20,68,68,68,36,68,33,185,97,33,36,17,19,51,51,51,51,51,51,
51,35,51,36,155,150,88,2,119,118,102,102,102,34,36,68,50,51,50,52,73,187,187,2,
17,39,33,17,17,17,18,101,101,85,99,51,68,17,153,0,34,18,117,34,34,17,17,17,17,
17,229,51,50,68,68,0,7,34,34,88,119,114,17,119,209,17,17,83,51,37,51,0,0,119,34,
39,136,247,47,34,45,17,17,110,51,50,85,0,0,0,119,119,128,136,85,119,34,114,33,
22,228,51,51,0,0,0,0,136,0,8,198,87,117,242,34,33,102,85,67,0,0,0,0,0,0,8,201,
101,136,85,82,34,34,34,85,0,0,0,0,0,0,0,140,152,8,201,136,82,34,34,34,0,0,0,0,0,
0,0,8,128,8,198,128,134,101,34,34,0,0,0,0,0,0,0,0,0,0,136,0,140,152,133,85,0,0,
0,0,0,0,0,0,0,0,0,0,8,128,8,136,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 5, solution
6,76,175,48,26,5,4,7,57,77,75,27,58,2,28,68,34,34,34,34,34,34,34,34,45,221,211,
34,35,51,50,51,34,34,34,51,51,34,34,34,55,7,119,50,48,6,67,21,34,34,51,69,86,51,
56,45,112,87,119,3,8,136,68,161,34,34,53,102,70,102,68,215,0,87,7,102,131,173,
133,170,34,34,48,182,68,70,103,112,0,231,0,100,134,108,218,90,34,34,48,96,181,
68,112,0,0,231,0,84,134,119,74,165,34,34,53,176,96,183,0,0,5,21,80,4,77,7,124,
170,34,51,53,70,102,112,0,5,105,145,21,0,70,0,7,202,51,85,104,136,71,0,0,97,17,
153,17,85,0,0,0,124,48,70,102,104,135,0,6,17,31,25,17,17,85,0,0,7,48,180,68,70,
103,0,81,17,17,17,153,17,25,80,0,0,48,101,182,68,71,0,81,17,26,17,249,145,17,23,
0,5,48,224,96,230,71,0,101,17,17,17,25,145,17,23,0,92,53,176,224,96,71,0,105,81,
250,241,241,153,17,23,0,202,51,54,70,181,64,0,97,150,144,154,15,153,17,23,0,198,
34,35,68,68,64,5,97,31,127,122,122,25,145,16,85,134,34,35,56,136,128,0,97,31,1,
15,10,17,145,23,0,134,51,51,68,68,64,0,97,26,145,144,159,17,25,23,0,138,53,102,
70,69,176,0,97,17,169,170,241,17,25,151,0,138,53,176,176,224,183,5,97,17,25,145,
17,17,17,151,0,88,48,224,96,101,183,5,81,17,26,153,241,17,17,112,0,5,53,101,229,
180,135,0,85,17,17,25,145,17,80,0,0,0,53,228,77,136,135,0,5,81,26,25,97,7,5,0,0,
6,51,68,136,132,71,0,0,85,81,17,151,0,0,80,0,76,34,51,133,70,70,112,0,85,5,16,
112,0,102,5,100,204,34,34,53,176,229,71,0,5,80,231,0,5,68,102,76,204,34,34,48,
224,182,68,112,0,85,231,0,6,72,68,204,197,34,34,48,182,68,68,71,112,5,87,0,100,
104,141,220,90,34,34,53,68,68,136,136,55,5,96,5,100,3,173,133,170,34,34,51,136,
136,51,51,35,112,102,100,136,64,136,132,161,34,34,34,51,51,34,34,34,54,102,68,
50,56,100,67,21,34,34,34,34,34,34,34,34,35,51,51,34,35,51,50,51
};

SFG_PROGRAM_MEMORY uint8_t SFG_effectSprites[4 * SFG_TEXTURE_STORE_SIZE] =
{
// 0, explostion
175,183,174,15,103,111,191,7,31,95,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,48,0,0,0,
0,0,0,0,0,0,0,0,3,3,3,3,19,3,0,0,0,0,0,0,0,0,0,48,48,16,51,49,19,48,48,0,0,0,0,
0,0,0,3,3,1,1,19,17,131,51,49,0,0,0,0,1,16,0,0,48,50,34,20,85,120,49,17,64,0,0,
0,0,65,1,0,0,34,17,69,87,117,17,33,16,0,0,0,0,4,16,16,4,18,17,21,87,85,18,33,16,
0,0,0,1,9,34,34,17,34,17,21,85,85,66,17,48,0,0,0,65,18,34,34,17,65,22,85,86,68,
65,19,51,0,0,48,17,34,34,33,18,65,68,70,68,68,102,67,51,0,1,19,49,34,34,33,18,
36,132,100,70,97,20,81,17,51,48,17,18,34,18,18,34,33,119,85,86,97,33,81,51,48,3,
51,18,33,17,34,33,37,119,85,100,97,18,35,51,0,48,49,34,18,34,33,102,87,119,117,
97,17,34,34,16,48,1,17,18,33,17,22,104,119,119,117,81,18,18,33,67,0,1,65,18,33,
20,71,119,119,119,119,132,65,18,34,64,48,0,69,81,17,86,69,88,119,119,133,81,17,
18,34,147,0,0,56,21,69,86,70,103,119,119,116,17,18,34,34,144,0,3,51,56,86,102,
102,120,118,101,120,81,34,34,35,0,0,48,51,17,85,102,102,103,70,102,136,85,34,34,
17,0,0,3,49,19,53,84,102,100,70,102,88,133,84,66,17,19,0,48,51,51,85,68,102,68,
102,102,101,97,33,68,19,17,48,3,3,49,81,36,84,17,70,101,82,33,18,33,67,51,0,0,
51,49,17,33,33,33,70,102,66,34,34,34,17,51,48,0,3,17,18,34,33,34,20,129,18,34,
34,34,34,51,0,0,49,17,34,33,17,17,33,65,34,34,17,18,34,19,48,0,1,18,33,17,17,17,
34,34,33,145,17,18,34,19,48,0,1,17,17,19,49,49,18,17,49,19,49,18,34,35,51,0,0,
17,51,51,17,49,18,19,3,19,51,17,17,36,3,0,3,51,51,48,48,3,17,16,48,17,3,51,17,
16,0,0,3,48,3,3,0,0,16,19,0,0,0,51,51,0,0,0,51,0,0,0,0,0,1,3,48,0,51,51,48,0,0
, // 1, fireball
175,103,183,7,191,111,254,31,95,180,173,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,17,0,16,0,0,0,0,
0,0,0,0,0,0,1,1,23,17,17,24,1,0,0,0,0,0,0,0,0,0,16,16,23,85,87,81,24,16,0,0,0,0,
0,0,0,1,8,17,119,115,55,119,17,129,16,0,0,0,0,0,0,0,129,23,119,51,51,55,113,24,
23,0,0,0,0,0,0,8,17,17,113,83,51,85,119,23,113,0,0,0,0,0,0,1,21,113,81,19,53,81,
17,119,129,0,0,0,0,0,0,17,19,53,17,19,50,17,17,113,16,16,0,0,0,0,1,33,83,49,17,
19,66,34,17,17,18,0,0,0,0,0,0,33,85,53,21,19,18,34,34,24,18,16,0,0,0,0,1,33,85,
85,84,68,20,34,35,66,98,0,0,0,0,0,0,33,83,53,20,68,51,51,51,70,34,16,0,0,0,0,1,
33,19,49,66,36,67,52,41,40,98,0,0,0,0,0,0,33,19,84,34,36,36,70,38,134,34,0,0,0,
0,0,0,8,21,81,18,36,66,98,102,166,32,0,0,0,0,0,0,2,21,81,18,68,68,38,134,105,33,
0,0,0,0,0,0,0,18,33,18,68,51,73,102,98,16,0,0,0,0,0,0,0,18,18,34,68,51,74,102,
102,16,0,0,0,0,0,0,0,1,17,18,34,36,38,38,129,0,0,0,0,0,0,0,0,0,8,134,38,34,34,
104,0,0,0,0,0,0,0,0,0,0,0,2,34,102,96,16,0,0,0,0,0,0,0,0,0,0,0,0,1,16,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0
, // 2, plasma
175,199,126,213,198,215,118,46,125,204,124,134,45,117,135,116,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,68,16,0,0,0,0,0,0,0,0,0,0,16,
1,17,20,17,16,16,16,0,0,0,0,0,0,0,17,18,7,113,20,17,119,1,1,0,0,0,0,0,0,1,17,65,
16,34,67,50,33,17,16,0,0,0,0,0,0,1,36,34,1,19,153,51,33,65,0,0,0,0,0,0,0,14,37,
34,32,51,57,163,35,50,16,0,0,0,0,0,0,114,37,82,2,17,51,170,51,34,17,0,0,0,0,0,0,
18,51,83,34,17,3,152,138,43,178,16,0,0,0,0,1,20,34,52,83,163,32,123,136,199,34,
17,0,0,0,0,1,17,18,35,51,51,34,18,34,194,36,68,0,0,0,0,0,17,17,104,109,250,51,
18,34,34,51,17,0,0,0,0,1,7,113,34,134,136,34,211,70,34,131,17,0,0,0,0,0,16,34,
34,134,34,34,97,17,102,98,16,0,0,0,0,0,1,18,85,84,17,98,97,33,22,98,1,0,0,0,0,1,
17,37,83,242,68,70,18,146,33,23,16,0,0,0,0,1,50,53,35,134,133,65,39,185,37,17,1,
0,0,0,0,0,19,147,34,136,51,81,39,190,36,65,32,0,0,0,0,0,17,18,34,131,34,83,39,0,
35,34,32,0,0,0,0,1,1,17,34,34,34,57,50,114,49,34,0,0,0,0,0,0,16,17,34,34,83,147,
67,33,64,0,0,0,0,0,0,0,1,2,33,35,81,17,68,68,65,0,0,0,0,0,0,0,0,2,33,21,17,17,
17,17,16,0,0,0,0,0,0,0,0,0,0,20,65,0,1,17,0,0,0,0,0,0,0,0,0,0,0,1,65,16,0,16,0,
0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 3, dust
175,5,3,4,53,2,6,52,50,74,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,2,34,0,0,16,
1,0,0,0,0,0,0,0,0,0,0,34,50,32,3,48,0,0,0,0,0,0,0,0,0,0,2,35,50,16,66,18,0,0,0,
0,0,0,0,1,16,0,2,49,51,4,4,2,82,34,0,0,0,0,0,0,1,16,0,49,49,32,64,18,81,51,32,0,
0,0,0,0,0,0,0,3,22,55,97,18,33,19,48,0,0,0,0,0,0,0,0,0,6,19,50,34,19,17,48,0,0,
0,0,0,0,1,51,17,17,99,35,129,51,50,0,0,0,0,0,0,0,0,1,55,0,7,50,4,34,32,1,0,0,0,
0,0,0,0,3,112,64,2,64,32,98,0,0,0,0,0,0,0,0,0,9,52,4,3,4,4,5,0,0,0,0,0,0,0,0,0,
18,64,34,49,0,32,18,1,16,0,0,0,0,0,0,0,18,34,35,19,32,18,50,0,1,16,0,0,0,0,0,0,
0,37,19,34,136,18,51,16,0,0,0,0,0,0,0,0,0,5,35,49,51,1,0,16,0,0,0,0,0,0,0,0,0,1,
17,19,34,0,0,0,0,0,0,0,0,0,0,0,0,0,34,18,32,0,0,0,0,0,0,0,0,0,0,0,1,0,0,34,0,1,
0,0,0,0,0,0,0,0,0,0,16,0,16,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,16,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
};

SFG_PROGRAM_MEMORY uint8_t SFG_monsterSprites[19 * SFG_TEXTURE_STORE_SIZE] =
{
// 0, spider idle
175,0,4,3,5,6,223,1,7,10,2,20,62,95,120,18,0,1,17,16,0,0,0,0,0,0,0,0,1,17,16,0,
0,20,45,65,0,0,0,0,0,0,0,0,21,52,33,0,1,65,170,20,16,0,0,0,0,0,0,17,133,50,51,
16,1,218,211,162,16,0,0,0,0,0,17,133,84,17,17,17,1,42,61,173,16,1,0,0,0,1,133,
84,33,0,0,0,1,65,170,20,17,1,16,0,1,24,85,73,16,0,0,0,0,20,210,71,119,19,81,0,0,
1,19,146,16,0,0,0,1,115,17,115,115,68,65,0,0,0,1,66,49,0,0,0,20,36,119,41,37,69,
85,16,0,0,1,66,49,17,17,0,18,50,115,21,85,68,68,33,0,1,17,51,133,52,66,16,20,45,
113,28,197,66,66,65,1,24,136,85,85,50,35,49,1,17,37,86,198,196,34,33,0,1,85,85,
68,153,153,145,0,21,85,70,140,102,34,34,16,0,147,57,147,51,35,16,0,17,119,60,
104,102,98,34,46,238,191,66,243,17,17,17,1,57,115,115,38,108,198,34,231,243,187,
116,33,0,0,0,18,49,153,151,34,104,198,62,255,59,180,51,112,0,0,0,18,49,51,55,34,
104,198,62,255,59,180,51,112,0,0,0,1,57,121,115,38,108,198,34,231,243,187,116,
33,0,0,0,0,17,119,60,104,102,98,34,46,238,191,66,147,17,17,17,0,21,85,70,140,
102,34,34,16,0,148,41,147,51,35,16,1,17,37,86,198,196,34,33,0,1,136,136,133,153,
153,145,20,45,113,28,197,66,66,65,1,21,85,85,85,52,66,49,18,50,115,21,85,84,68,
33,0,1,17,51,133,50,35,16,20,36,119,41,37,85,85,16,0,0,1,66,55,17,17,0,1,115,17,
115,115,68,65,0,0,0,1,66,49,0,0,0,0,20,45,71,119,19,81,0,0,1,19,50,16,0,0,0,1,
65,170,20,17,1,16,0,1,24,136,137,16,0,0,0,1,218,61,162,16,1,0,0,0,1,133,85,129,
0,0,0,1,42,211,173,16,0,0,0,0,0,17,69,85,17,17,17,1,65,170,20,16,0,0,0,0,0,0,17,
69,50,35,16,0,20,210,65,0,0,0,0,0,0,0,0,20,50,49,0,0,1,17,16,0,0,0,0,0,0,0,0,1,
17,16,0
, // 1, spider attacking
175,0,183,3,4,1,191,5,31,6,7,22,10,223,20,18,0,34,37,85,43,176,0,0,0,0,0,0,17,
17,16,0,0,34,98,34,38,102,0,0,0,0,0,1,148,71,65,16,0,2,98,34,102,98,0,0,0,0,0,
89,169,52,51,49,0,2,104,40,102,32,0,0,0,0,5,170,145,17,17,16,2,38,104,136,98,32,
80,0,0,0,90,167,65,0,0,0,2,102,102,102,102,34,85,0,0,5,184,124,16,0,0,0,2,102,
34,34,102,102,232,80,0,91,139,76,16,0,0,0,2,34,46,34,38,102,187,113,0,85,84,196,
49,17,17,0,0,91,235,85,34,107,136,145,0,0,5,115,19,71,116,16,0,94,238,94,88,139,
139,116,80,0,85,58,169,52,67,49,0,23,75,85,91,184,231,71,80,5,170,153,119,60,
204,17,0,1,21,232,141,141,116,68,16,88,137,119,204,195,49,0,0,1,153,136,189,169,
212,68,65,1,195,60,51,51,67,16,0,1,17,85,55,218,221,212,68,85,95,116,243,49,17,
17,0,19,197,51,83,77,217,125,69,95,62,87,65,16,0,0,1,67,49,204,197,68,218,157,
95,243,235,51,80,0,0,0,1,67,193,51,53,68,218,157,95,243,235,51,80,0,0,0,0,19,
197,204,83,77,217,125,69,95,62,87,65,16,0,0,0,1,17,85,55,218,221,212,68,85,95,
116,243,49,17,17,0,1,153,153,125,168,221,68,65,5,51,60,51,51,67,16,0,1,17,232,
141,141,190,68,16,90,170,170,204,195,49,0,0,23,75,85,91,184,235,71,85,5,183,153,
170,60,204,17,0,94,238,94,88,184,187,116,80,0,85,55,153,52,67,49,2,43,235,82,34,
136,136,145,0,0,1,115,19,71,116,16,2,34,82,34,98,46,187,113,0,85,83,196,49,17,
17,0,2,98,34,38,102,44,232,16,0,91,170,124,16,0,0,0,2,102,102,102,98,37,85,0,0,
5,185,172,16,0,0,0,2,38,136,134,34,80,80,0,0,0,88,167,65,0,0,0,0,182,136,134,98,
80,0,0,0,0,5,185,145,17,17,16,0,34,102,102,102,32,0,0,0,0,0,87,153,52,51,49,0,2,
98,34,102,107,0,0,0,0,0,1,116,71,65,16,0,2,37,82,43,32,0,0,0,0,0,0,17,17,16,0
, // 2, spider walking
175,0,4,5,6,3,223,1,10,7,2,18,62,95,120,63,0,0,17,17,0,0,0,0,0,0,0,1,17,17,0,0,
0,1,50,211,16,0,0,0,0,0,0,21,51,50,16,0,0,19,26,161,49,0,0,0,0,0,17,146,35,33,0,
0,0,29,173,90,33,0,0,0,0,1,148,68,81,16,0,0,0,18,165,218,209,0,16,0,0,25,67,49,
16,0,0,0,0,19,26,161,49,16,17,0,1,148,51,16,0,0,0,0,0,1,61,35,119,113,84,16,25,
68,56,0,0,0,0,0,0,23,81,23,87,83,51,16,17,21,129,0,0,0,0,0,1,50,55,114,130,67,
68,65,0,1,50,16,0,0,0,0,1,37,39,81,68,67,51,50,0,1,85,81,17,17,17,0,1,50,215,17,
204,67,35,35,16,25,153,148,68,83,50,16,0,17,18,68,111,108,50,34,16,1,68,68,68,
82,37,81,0,1,68,67,105,246,98,34,33,0,133,88,136,136,136,129,0,1,23,117,198,150,
102,34,34,238,227,37,181,17,0,0,0,21,135,87,82,102,252,98,46,123,91,50,81,0,0,0,
1,37,24,136,114,38,159,101,235,181,35,181,112,0,0,0,1,37,24,136,114,38,159,101,
235,181,35,181,112,0,0,0,0,21,135,87,82,102,252,98,46,123,83,123,33,0,0,0,0,1,
23,117,198,150,102,34,34,238,235,50,133,17,17,0,0,1,68,67,105,246,98,34,33,0,
131,40,85,85,34,16,0,17,18,68,111,108,50,34,16,1,148,33,17,17,17,0,1,50,215,17,
204,67,35,35,16,25,50,16,0,0,0,0,1,37,39,81,68,67,51,50,17,148,72,136,128,0,0,0,
1,50,55,114,130,67,68,65,20,68,73,148,136,128,0,0,0,23,81,23,87,83,51,16,1,17,
84,68,83,56,129,0,0,1,61,35,119,113,84,16,0,5,21,68,82,34,81,0,0,19,26,161,49,
16,17,0,0,20,66,87,18,37,16,0,0,18,165,218,209,0,16,0,0,1,84,52,65,17,81,17,0,
29,173,90,33,0,0,0,0,0,17,19,52,82,37,16,0,19,26,161,49,0,0,0,0,0,0,1,19,82,81,
0,0,1,50,211,16,0,0,0,0,0,0,0,1,17,16,0,0,0,17,17,0,0,0,0,0,0,0,0,0,0,0,0
, // 3, destroyer idle
0,175,3,4,5,73,1,6,2,77,157,79,7,78,76,75,17,0,0,0,17,17,17,17,17,17,17,17,17,
17,17,17,17,11,221,219,0,17,17,17,16,0,0,0,0,0,1,17,17,11,217,153,219,1,17,16,2,
119,114,39,116,119,1,17,17,11,189,154,155,1,16,12,194,124,204,204,199,204,1,17,
17,16,189,154,169,176,12,199,116,35,51,51,50,51,1,17,17,17,11,217,170,213,196,
68,67,34,34,34,40,34,0,0,17,16,11,217,154,149,52,50,50,0,0,0,0,0,4,64,17,7,118,
102,138,173,83,68,128,17,17,17,17,7,114,32,16,116,12,66,106,169,181,51,71,0,1,
17,0,115,56,128,16,67,0,102,102,42,213,35,52,71,112,0,119,51,40,128,7,48,194,0,
7,114,171,82,51,68,71,114,83,34,40,128,4,12,204,64,0,71,106,181,131,52,68,71,82,
34,40,80,4,12,199,114,192,36,70,157,184,52,119,116,37,40,133,80,0,204,119,119,
96,4,70,169,213,55,51,55,69,80,102,96,0,102,103,116,44,4,50,106,155,83,157,147,
117,34,0,0,2,9,230,68,32,3,50,106,173,83,57,211,53,34,1,17,2,11,150,68,48,3,50,
106,233,83,57,211,53,34,1,17,0,34,36,67,44,3,50,106,238,83,157,147,37,34,128,0,
0,119,68,67,128,3,54,254,229,34,51,50,53,88,50,32,6,7,68,50,192,131,38,174,245,
35,34,35,37,34,40,128,2,4,68,48,0,50,111,229,82,51,51,50,82,34,40,128,3,32,66,0,
3,38,254,86,130,34,34,34,88,34,40,128,16,50,0,0,0,111,229,104,34,40,133,85,104,
136,40,80,16,51,99,38,105,154,245,130,40,96,82,67,6,102,133,80,17,3,54,102,137,
238,88,134,96,17,7,66,6,0,101,80,17,16,13,187,154,229,102,104,36,0,116,72,128,
17,6,96,17,17,11,186,170,245,96,130,51,71,67,34,32,17,16,0,17,16,187,218,174,
240,5,130,51,51,51,50,80,17,17,17,17,11,189,170,175,1,16,5,34,34,34,80,1,17,17,
17,17,11,221,170,255,1,17,16,85,85,0,1,17,17,17,17,17,11,218,255,0,17,17,17,0,0,
17,17,17,17,17,17,17,0,0,0,17,17,17,17,17,17,17,17,17,17,17,17
, // 4, destroyer attacking
175,0,3,4,73,1,5,2,183,6,77,157,79,78,7,31,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,0,0,
17,17,17,0,0,0,0,0,136,136,128,0,0,0,0,0,28,221,220,17,0,0,0,8,136,136,128,0,0,
0,0,0,28,218,170,220,16,1,88,136,136,255,136,128,0,0,0,0,28,218,187,172,85,94,
238,136,136,255,136,128,0,0,0,0,28,218,187,187,215,105,255,248,136,136,136,0,0,
0,0,0,1,221,171,187,163,102,255,255,136,136,136,0,0,1,17,0,25,17,85,87,189,38,
99,99,56,136,0,0,17,86,97,1,150,37,230,37,186,195,51,35,56,0,0,17,255,146,33,1,
99,37,85,85,82,211,35,54,98,17,17,249,99,55,113,25,51,94,33,17,153,44,50,51,111,
255,243,70,50,39,113,22,53,238,230,17,22,148,195,115,54,153,159,114,34,39,113,
19,49,238,153,46,18,102,125,151,57,51,57,100,34,39,65,19,94,233,153,149,17,102,
90,215,51,173,163,148,68,116,65,18,21,85,153,98,225,99,37,172,67,58,211,52,39,
69,81,19,33,163,86,98,17,51,37,189,67,58,211,52,34,17,17,18,33,202,86,99,17,51,
37,58,67,173,163,36,34,16,0,19,18,34,102,50,225,51,37,58,66,51,50,52,34,113,17,
18,89,150,102,55,17,51,82,52,35,34,35,36,71,50,33,19,33,150,99,46,23,50,82,36,
35,51,50,116,34,39,113,19,37,102,99,17,19,37,36,66,51,50,39,66,34,39,113,19,34,
22,33,17,50,82,69,114,34,36,68,71,34,39,113,1,50,81,17,85,85,36,87,34,39,66,99,
23,119,39,65,1,51,37,50,87,171,68,21,81,119,25,98,21,85,116,65,0,19,51,85,123,
50,65,87,38,17,150,103,113,17,84,65,0,1,92,202,171,52,81,35,51,105,99,34,33,0,
21,81,0,1,204,219,187,36,20,114,51,51,51,50,65,0,1,17,0,28,205,219,178,65,20,
119,34,34,34,65,16,0,0,0,0,28,205,187,36,16,1,20,68,68,65,16,0,0,0,0,0,28,219,
187,33,0,0,1,17,17,16,0,0,0,0,0,0,28,219,177,16,0,0,0,0,0,0,0,0,0,0,0,0,17,17,
16,0,0,0,0,0,0,0,0,0,0,0,0
, // 5, destroyer walking
175,0,3,4,1,5,2,73,6,77,79,7,78,157,75,76,0,17,17,17,0,0,0,0,0,0,0,0,0,0,0,0,0,
26,204,202,17,0,0,1,17,17,17,0,0,0,0,0,0,26,201,153,202,16,1,19,136,130,33,17,
17,0,0,0,0,26,172,157,154,16,27,179,40,187,184,133,129,16,0,0,0,1,172,157,217,
161,184,136,50,51,59,184,102,16,0,0,0,0,26,201,221,199,85,85,50,34,35,50,102,16,
0,0,0,1,26,201,157,151,53,35,97,17,18,38,102,16,17,16,0,24,17,68,70,220,115,54,
16,0,1,17,97,17,85,16,1,133,36,181,36,217,167,51,81,17,16,0,17,56,34,16,1,83,36,
68,68,119,199,35,53,88,129,17,136,51,102,16,24,51,75,33,17,136,122,114,51,85,88,
130,115,34,102,16,21,52,187,181,17,21,135,167,99,53,85,88,114,34,102,16,19,49,
187,136,43,18,85,76,214,53,136,133,39,34,103,16,19,75,184,136,132,17,85,73,199,
56,51,56,87,118,119,16,18,20,68,136,82,177,83,36,154,115,156,147,135,33,68,16,
19,33,159,69,82,17,51,36,220,115,57,195,55,34,17,16,18,33,169,69,83,17,51,36,
249,115,57,195,55,34,97,17,19,18,34,85,50,177,51,36,255,115,156,147,39,38,50,33,
18,72,133,85,54,17,51,78,247,34,51,50,55,114,38,97,19,33,133,83,43,22,50,78,231,
35,34,35,39,34,38,97,19,36,85,83,17,19,36,231,114,51,51,50,114,34,38,97,19,34,
21,33,17,50,78,116,98,34,34,38,118,34,38,113,1,50,65,17,68,68,231,70,34,38,97,
17,22,102,103,113,1,51,36,50,70,157,119,20,38,65,16,0,1,20,71,113,0,19,51,68,
109,254,113,70,65,23,97,16,0,1,20,65,0,1,74,169,157,247,65,35,37,136,133,33,0,0,
1,17,0,0,26,173,221,231,65,98,51,85,134,97,0,0,0,0,0,1,170,205,223,225,23,98,34,
51,51,33,0,0,0,0,0,26,172,221,222,16,1,17,118,34,38,97,0,0,0,0,0,26,204,221,238,
16,0,0,17,17,17,16,0,0,0,0,0,26,205,238,17,0,0,0,0,0,0,0,0,0,0,0,0,17,17,17,0,0,
0,0,0,0,0,0,0,0,0,0
, // 6, warrior idle
175,0,3,5,1,4,6,62,2,7,92,170,151,93,95,148,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,199,119,119,
119,204,204,187,176,0,0,0,0,0,0,0,185,153,153,153,153,150,103,119,123,0,0,0,0,0,
0,1,255,204,119,119,119,119,119,119,193,0,0,0,0,0,0,1,17,17,17,17,17,17,17,28,
133,16,0,0,0,0,0,0,0,0,0,0,0,0,0,1,85,16,0,0,1,17,16,0,0,0,0,0,0,0,0,0,21,81,0,
1,19,53,81,0,0,0,0,0,0,0,0,0,1,33,1,22,99,51,81,0,0,17,0,0,0,0,0,0,1,40,22,102,
51,51,33,0,0,25,16,0,17,16,0,0,18,40,153,102,99,50,68,0,0,22,145,17,234,145,0,1,
173,85,85,54,51,50,68,0,0,19,105,155,234,102,16,24,90,173,51,38,99,50,68,0,0,1,
51,54,178,54,129,130,55,218,211,38,51,50,68,0,0,0,21,51,102,99,136,34,55,122,
211,38,99,51,36,0,1,17,34,85,51,102,56,34,55,218,211,38,51,51,81,0,19,51,51,51,
51,51,88,34,58,173,50,86,99,53,81,0,1,17,34,37,51,53,88,34,170,51,35,102,50,34,
36,0,0,0,18,85,85,85,136,40,163,50,57,98,34,34,36,0,0,1,37,85,178,82,136,136,
162,43,149,34,180,68,68,0,0,21,85,43,234,34,65,132,162,43,82,36,68,34,36,0,0,21,
33,17,234,33,0,20,162,36,43,68,66,83,82,0,0,18,16,0,17,16,0,1,17,17,36,68,68,68,
68,0,0,17,0,0,0,0,0,0,0,1,43,68,68,34,36,0,0,0,0,0,0,0,0,0,0,0,18,43,66,83,82,0,
0,0,0,0,0,0,0,0,0,0,1,18,36,68,68,0,0,0,0,0,0,0,0,0,0,0,0,1,18,34,36,0,0,0,0,0,
0,0,0,0,0,0,0,0,1,17,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 7, warrior attacking
175,0,62,5,7,3,4,1,2,6,170,151,92,95,148,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
17,0,0,1,17,16,0,0,0,0,0,0,0,0,0,1,85,16,1,19,54,97,0,0,1,16,0,0,0,0,0,19,82,17,
25,147,51,97,0,0,1,145,16,1,17,0,1,53,126,74,89,51,51,87,0,0,1,153,17,29,201,16,
1,136,135,72,85,147,53,119,0,0,1,57,68,205,201,49,24,99,34,68,165,51,53,119,0,0,
0,19,51,154,163,152,136,50,36,68,133,83,53,119,0,0,0,1,86,57,153,150,133,50,34,
36,74,83,53,119,0,0,1,17,17,86,51,147,34,34,34,36,72,85,51,87,0,0,19,51,51,51,
51,54,133,34,43,180,68,165,51,97,0,0,1,17,17,83,54,102,133,51,34,34,68,133,83,
97,0,0,0,1,86,102,102,104,133,50,34,34,68,74,86,97,0,0,0,21,102,106,165,88,130,
34,68,68,68,69,133,87,0,0,1,86,101,205,197,135,120,34,34,34,36,66,167,119,0,0,1,
101,17,29,197,16,7,130,34,187,180,68,165,101,0,0,1,81,0,1,17,34,34,34,34,34,34,
68,42,119,0,0,1,16,0,0,0,2,34,36,68,68,68,68,74,85,0,0,0,0,0,0,0,0,0,34,34,68,
68,68,68,23,0,0,0,0,0,0,0,0,0,0,2,43,187,187,187,17,0,0,0,0,0,0,0,0,0,0,0,0,0,1,
17,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 8, plasmabot idle
175,0,72,65,2,3,4,5,61,60,54,62,6,59,49,66,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,42,170,170,34,0,0,0,0,0,0,1,17,0,0,0,0,42,147,
56,171,32,0,0,0,0,0,1,193,0,0,0,0,42,50,35,153,32,0,0,0,1,17,20,68,17,17,0,2,
171,50,34,57,32,0,0,0,1,119,118,102,85,65,0,2,163,34,34,57,33,0,0,0,1,101,85,68,
68,65,0,2,163,34,35,137,35,16,0,0,1,17,17,17,17,17,0,42,185,50,35,141,50,49,0,0,
0,0,1,65,0,0,0,42,187,131,57,211,66,52,16,0,0,0,21,81,0,0,0,43,51,136,179,68,
136,34,17,17,17,17,68,65,0,0,0,36,101,51,52,216,136,146,86,124,197,204,204,113,
0,0,0,3,122,229,61,136,137,242,17,17,17,17,28,17,0,0,0,2,122,174,83,153,211,35,
65,0,0,0,28,16,0,0,0,2,118,174,101,51,50,51,65,0,17,17,68,65,17,16,0,2,118,102,
238,85,82,52,65,1,119,119,102,102,85,65,0,2,118,102,238,102,98,52,81,1,102,85,
85,68,68,65,0,2,118,174,102,83,50,53,81,0,17,17,17,17,17,16,0,2,122,174,101,171,
179,37,81,0,0,0,20,16,0,0,0,3,122,230,93,184,136,210,17,17,17,17,21,17,0,0,0,35,
118,85,52,216,137,243,86,124,197,204,199,81,0,0,0,43,85,170,179,68,159,34,17,17,
17,17,68,65,0,0,0,42,171,147,57,211,66,52,16,0,0,0,23,113,0,0,0,42,185,50,35,
136,50,65,0,0,0,0,1,193,0,0,0,2,179,34,35,137,36,16,0,0,1,17,20,68,17,17,0,2,
179,34,34,57,33,0,0,0,1,119,118,102,85,65,0,2,152,50,34,61,32,0,0,0,1,101,85,68,
68,65,0,0,40,50,35,223,32,0,0,0,1,17,17,17,17,17,0,0,41,147,61,255,32,0,0,0,0,0,
1,81,0,0,0,0,47,255,223,34,0,0,0,0,0,0,1,17,0,0,0,0,2,34,34,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 9, plasmabot attacking
175,198,0,2,4,3,72,39,193,5,194,6,49,192,65,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,111,193,1,0,0,0,0,0,0,0,0,0,0,0,0,6,177,17,17,0,0,0,0,0,0,2,34,0,0,0,0,15,
113,17,17,240,0,0,0,0,0,2,178,0,0,0,0,107,17,23,17,31,0,0,0,8,136,131,51,34,34,
0,0,97,23,119,113,17,17,0,0,10,153,153,68,85,50,0,0,103,17,119,119,17,16,0,0,10,
68,85,83,51,50,0,6,145,17,119,17,19,61,0,0,10,168,141,34,34,34,0,1,17,17,23,17,
85,172,128,0,0,0,2,50,0,0,0,6,17,113,17,17,85,172,128,0,0,0,2,82,0,0,0,6,156,55,
113,85,84,76,200,170,168,136,211,50,0,0,0,6,52,85,81,84,180,68,245,73,187,91,
187,146,0,0,0,0,233,151,85,91,180,67,98,34,34,34,43,34,0,0,0,0,105,71,115,52,69,
230,227,32,0,0,43,32,0,0,0,0,105,68,124,83,206,110,227,32,168,141,51,50,34,32,0,
0,105,68,68,204,85,110,51,218,153,153,68,68,85,50,0,0,105,68,68,204,68,110,51,
218,68,85,85,51,51,50,0,0,105,68,124,69,238,254,53,208,136,136,221,210,34,32,0,
0,105,71,124,91,153,207,85,32,0,0,35,32,0,0,0,0,233,71,197,25,68,69,253,136,221,
221,37,34,0,0,0,6,233,149,81,20,148,67,197,73,187,91,185,82,0,0,0,6,149,87,17,
17,84,60,200,136,136,136,211,50,0,0,0,6,187,113,17,17,21,172,208,0,0,0,13,146,0,
0,0,6,177,17,119,17,17,163,32,0,0,0,13,178,0,0,0,6,73,145,23,119,19,50,0,0,10,
136,131,51,34,34,0,0,105,17,119,113,28,32,0,0,10,153,68,68,85,50,0,0,105,17,119,
17,17,0,0,0,10,69,85,51,51,50,0,0,97,17,23,17,22,0,0,0,10,168,210,34,34,34,0,0,
1,65,17,21,17,0,0,0,0,0,2,82,0,0,0,0,6,52,69,31,0,0,0,0,0,0,2,34,0,0,0,0,0,102,
102,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 10, ender idle
0,3,4,5,2,175,1,6,52,7,93,92,50,74,73,0,85,85,85,85,0,0,0,80,5,0,5,85,85,80,0,0,
85,85,80,0,153,153,52,1,134,17,16,80,0,9,114,32,85,80,3,151,119,119,119,104,97,
135,129,9,119,115,36,16,85,9,114,115,51,51,51,54,97,114,113,99,50,17,22,16,80,
151,113,18,4,18,34,51,97,135,129,102,33,20,70,16,9,119,20,55,114,0,65,34,16,17,
22,24,4,68,70,16,2,20,67,51,51,51,48,34,33,6,96,129,4,65,0,0,9,113,51,58,58,51,
115,3,49,65,51,0,65,96,85,85,9,49,33,34,35,34,35,49,51,18,34,38,102,102,0,0,7,
49,36,34,33,35,18,113,115,43,50,22,23,119,114,32,7,49,33,1,34,51,49,39,23,114,
51,22,18,34,36,16,7,19,34,64,66,34,51,19,35,51,50,6,102,17,22,96,80,115,35,11,
176,34,49,19,45,194,35,51,116,100,70,16,85,3,55,10,164,18,18,61,17,18,18,50,55,
97,22,16,80,1,121,10,170,65,35,18,34,34,33,34,35,96,0,0,3,68,121,64,0,1,18,34,
32,68,18,34,34,6,5,85,1,68,119,64,0,1,17,18,32,68,18,34,34,6,5,85,80,1,55,10,
170,65,34,65,34,34,33,34,33,96,0,0,85,3,51,10,164,35,34,52,17,18,17,34,36,103,
114,32,80,115,35,11,176,51,49,19,20,65,18,34,68,98,36,16,9,19,34,64,67,51,119,
19,35,50,33,70,6,17,22,96,7,49,33,1,51,51,113,35,19,52,34,16,100,68,70,16,3,49,
36,34,50,39,18,49,35,65,17,70,65,17,22,16,3,49,33,51,51,35,35,16,18,75,68,102,
102,102,0,0,3,33,35,51,51,51,49,1,17,68,70,0,98,96,85,85,1,68,18,58,58,49,208,
17,68,6,96,129,2,34,0,0,3,34,65,35,50,0,65,20,96,17,22,24,1,18,36,32,80,50,36,
29,4,18,17,70,97,135,129,0,17,17,20,16,85,2,36,34,34,33,20,230,97,114,113,100,
68,17,22,16,85,80,4,193,17,204,68,104,1,135,129,4,68,68,70,16,85,85,80,0,68,68,
70,1,128,17,16,80,0,4,70,16,85,85,85,85,0,0,0,80,5,0,5,85,85,80,0,0
, // 11, ender walking
0,3,4,5,175,2,1,6,52,93,7,92,50,74,73,0,68,68,68,68,64,0,0,4,0,64,0,68,68,0,0,4,
68,68,68,0,10,170,114,80,136,97,17,4,0,167,34,4,68,68,0,39,119,119,119,21,86,24,
120,16,119,50,81,4,68,0,167,35,51,51,51,49,102,23,39,22,33,17,97,4,64,42,114,18,
85,1,34,51,22,24,120,22,1,85,97,4,64,167,37,87,114,32,81,34,49,1,17,97,128,85,
97,4,2,21,85,51,51,51,53,18,34,16,102,8,16,81,0,4,10,119,19,51,147,147,115,1,49,
85,18,0,1,96,68,68,10,115,18,34,34,50,35,50,35,33,34,22,102,96,68,68,7,115,18,
81,34,18,49,55,19,50,178,22,23,114,0,0,7,115,18,16,18,35,50,23,23,115,35,22,18,
39,114,32,3,17,50,53,5,34,51,35,35,51,50,6,102,18,37,16,64,115,34,48,187,2,49,
19,45,194,35,51,117,101,22,96,64,50,39,112,153,177,18,49,209,17,33,35,55,97,86,
16,68,0,39,160,153,149,35,17,34,34,34,18,51,96,22,16,64,53,87,165,0,0,17,34,33,
5,82,34,35,6,0,0,64,21,87,165,0,0,17,18,33,5,82,34,34,6,4,68,68,0,39,112,153,
149,34,81,34,34,34,18,33,96,0,4,68,7,51,48,153,178,34,53,17,17,33,18,21,103,34,
4,64,115,35,48,187,3,49,19,21,81,18,17,85,98,81,4,10,17,34,37,5,51,55,19,34,51,
33,86,6,17,102,4,7,50,18,16,19,51,113,35,19,50,81,80,101,85,97,4,7,50,18,82,35,
39,18,49,83,37,21,86,81,17,97,4,3,50,18,35,51,50,35,16,18,37,181,102,102,96,0,4,
2,34,19,51,51,51,49,101,17,85,86,0,2,34,102,96,1,21,81,51,147,145,214,81,85,80,
102,1,128,18,37,32,64,50,37,19,50,37,1,21,86,1,17,104,16,17,21,16,64,51,33,93,
80,82,17,86,96,24,120,22,1,17,22,16,68,0,33,82,34,33,21,230,96,23,39,22,85,85,
86,16,68,68,0,92,17,204,85,96,16,24,120,16,85,85,86,16,68,68,68,0,5,85,86,0,136,
1,17,4,0,0,0,0,68,68,68,68,64,0,0,68,0,64,0,68,68,68,68,68
, // 12, ender attacking
0,4,5,175,3,26,28,191,6,29,2,1,30,7,105,27,51,51,51,51,48,0,0,3,0,48,112,51,51,
48,0,0,51,51,51,0,13,221,137,80,153,231,119,115,0,13,129,16,51,51,0,24,136,136,
136,101,94,119,221,119,136,130,26,64,51,0,216,18,204,204,204,198,119,125,221,
119,118,244,75,64,48,29,129,73,85,6,153,204,103,119,215,126,6,250,171,64,48,216,
26,168,137,144,86,153,198,7,119,118,144,90,171,64,1,74,170,34,34,34,37,105,153,
96,119,9,96,84,0,0,13,136,66,34,82,82,130,6,198,85,121,0,6,176,51,51,13,130,65,
17,17,33,18,41,156,150,153,110,187,187,0,0,8,130,65,164,17,65,36,40,108,201,89,
110,104,136,129,16,8,130,65,64,65,18,33,72,248,140,156,110,105,145,26,64,2,68,
33,42,170,17,34,18,18,34,41,14,235,255,75,176,48,130,17,42,85,1,36,66,26,81,18,
34,133,181,171,64,48,33,17,40,5,84,65,36,164,68,20,18,40,180,75,64,51,0,17,141,
5,90,18,68,17,17,17,65,34,176,0,0,48,42,161,141,0,0,68,17,20,10,161,17,18,11,3,
51,48,74,161,136,0,0,68,65,20,10,161,17,17,11,3,51,51,0,18,40,5,90,17,95,145,17,
17,65,20,176,0,0,51,8,34,33,5,81,17,37,255,255,31,65,74,184,129,16,48,130,18,42,
85,2,47,242,101,95,249,255,85,177,26,64,13,68,17,26,10,34,40,108,153,34,150,91,
11,244,75,176,8,33,65,64,66,34,134,156,108,201,86,80,181,170,171,64,8,33,65,161,
18,152,105,198,92,149,101,94,95,68,75,64,2,33,65,18,34,41,156,96,105,149,85,238,
235,187,0,0,1,17,66,34,34,44,198,229,102,85,126,0,9,176,51,51,4,74,164,34,82,
166,254,86,85,80,119,6,144,145,0,0,48,33,26,66,41,149,6,101,94,119,119,121,96,
97,26,16,48,34,20,95,80,89,102,94,224,119,215,126,6,111,74,64,51,0,20,89,153,
150,101,238,231,125,221,119,117,111,75,64,51,51,0,95,102,255,85,224,96,119,215,
112,85,90,171,64,51,51,51,0,5,85,94,0,153,7,119,3,0,10,171,64,51,51,51,51,48,0,
0,51,0,48,112,51,51,48,0,0
, // 13, turret idle
175,0,131,26,41,168,37,6,91,7,48,93,90,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,16,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,25,145,0,0,0,0,0,0,0,0,17,0,0,0,0,17,151,98,16,0,0,0,0,0,0,1,130,16,0,0,
1,35,184,130,81,16,0,0,0,0,0,1,40,16,0,0,1,34,123,178,85,65,0,0,0,0,0,23,49,0,0,
0,25,98,187,98,81,16,0,0,0,0,0,23,65,0,0,0,25,98,118,98,16,0,0,0,0,0,1,115,16,0,
17,17,71,98,118,98,81,16,0,0,0,1,20,116,16,0,0,0,22,35,114,36,85,65,0,0,1,25,
103,53,16,0,0,1,50,52,98,36,81,16,0,0,25,151,39,69,161,0,0,25,51,68,98,36,16,0,
0,0,25,118,100,84,161,0,1,151,54,35,184,36,16,0,0,1,151,98,35,52,85,17,23,102,
70,35,104,132,81,16,0,1,151,98,35,52,85,162,50,34,70,35,104,132,85,65,0,1,118,
34,51,68,85,17,19,51,70,35,104,132,81,16,0,1,118,35,51,68,81,0,1,67,70,35,184,
36,16,0,0,1,102,35,52,69,81,0,0,20,66,53,98,36,16,0,0,1,115,51,68,81,16,0,0,1,
67,165,98,36,81,16,0,1,114,51,69,16,0,0,0,0,20,85,98,36,85,65,0,27,98,35,65,0,0,
1,17,17,18,58,35,58,81,16,0,27,34,35,16,0,0,23,98,51,18,58,35,58,16,0,1,123,130,
52,16,0,0,22,34,68,18,58,140,58,81,16,23,98,184,129,0,0,0,1,35,65,1,90,44,202,
85,65,25,34,35,193,0,0,0,1,20,81,1,85,140,202,81,16,22,34,52,65,0,0,0,17,1,16,0,
17,35,58,16,0,1,35,68,16,0,0,0,16,0,0,0,0,19,49,0,0,0,17,17,0,0,0,0,0,0,0,0,0,1,
16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0
, // 14 turret walk
175,0,131,26,41,37,168,6,91,7,48,93,90,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,153,16,0,0,0,0,0,0,0,0,0,0,0,0,1,25,117,33,0,0,0,0,0,0,0,0,1,16,0,0,
18,59,136,33,0,0,0,0,0,0,0,0,24,33,0,0,18,39,187,38,16,0,0,0,0,0,0,0,18,129,0,1,
149,43,181,38,65,0,0,0,0,0,0,1,115,16,0,1,149,39,85,38,16,0,0,0,0,0,0,25,33,0,1,
20,117,39,85,33,0,0,0,0,0,1,17,114,49,0,16,1,82,55,34,70,16,0,0,0,1,25,87,51,16,
0,0,19,35,69,34,65,0,0,0,0,25,151,39,70,16,0,1,147,52,69,34,65,0,0,0,0,25,117,
84,100,161,0,25,115,82,59,130,70,16,0,0,1,151,82,35,52,161,17,117,83,82,53,136,
70,65,0,0,1,151,82,35,52,102,35,34,35,82,53,136,70,16,0,0,1,117,34,51,68,102,17,
51,52,82,53,136,65,0,0,0,1,117,34,51,68,102,0,20,52,82,59,130,65,0,0,0,23,85,35,
52,70,97,0,1,68,35,101,34,65,0,0,0,23,82,51,68,102,96,0,0,20,58,101,34,70,16,0,
1,181,34,52,65,16,0,17,16,1,70,101,34,65,0,0,23,178,34,52,16,0,1,119,81,17,35,
162,51,161,0,1,117,40,35,65,0,0,1,82,35,49,35,162,51,166,16,1,146,43,136,65,0,0,
17,34,52,17,35,168,195,166,65,1,82,34,60,16,0,0,1,51,65,0,22,162,204,166,16,1,
34,51,68,16,0,0,0,17,16,0,22,104,204,161,0,0,17,52,65,0,0,0,0,0,0,0,1,18,51,161,
0,0,0,17,16,0,0,0,0,0,0,0,0,1,51,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0
, // 15 turret attack
175,0,131,41,26,1,168,191,7,48,81,6,37,21,35,44,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,136,16,0,0,0,0,0,0,0,0,0,0,0,0,1,24,188,33,0,0,0,0,0,0,0,0,0,0,0,0,
18,77,170,38,16,0,0,0,0,0,0,0,0,0,0,0,18,43,212,38,49,0,0,0,0,0,0,0,0,0,0,1,140,
45,220,38,16,0,0,0,0,0,0,0,0,0,0,1,140,43,220,33,0,0,0,0,0,0,0,0,0,1,17,19,188,
43,220,38,16,0,0,0,0,80,85,0,0,0,0,1,194,75,226,54,49,0,0,0,85,135,188,165,0,0,
0,148,36,61,226,54,16,0,0,90,136,183,15,254,80,0,9,132,67,61,226,49,0,0,0,168,
139,119,112,238,80,0,24,180,194,77,162,49,0,0,1,187,183,120,135,116,161,21,189,
211,194,77,170,54,16,0,1,192,119,120,135,119,9,173,204,195,194,77,170,54,49,0,1,
204,192,119,119,106,169,21,221,211,194,77,170,54,16,0,0,175,255,247,122,170,80,
0,94,211,194,77,162,49,0,0,0,90,255,231,68,170,80,0,5,227,36,109,226,49,0,0,0,0,
85,224,74,85,0,0,0,83,73,109,226,54,16,0,0,0,0,85,85,0,0,0,0,1,54,109,226,54,49,
0,0,0,0,0,0,0,0,68,68,65,36,158,68,150,16,0,0,0,0,0,0,0,4,141,221,225,36,158,68,
145,0,0,0,0,0,0,0,0,4,221,35,49,36,154,164,150,16,0,0,0,0,0,0,0,0,18,67,16,22,
158,170,150,49,0,0,0,0,0,0,0,0,17,54,16,22,106,170,150,16,0,0,0,0,0,0,0,1,16,17,
0,1,30,68,145,0,0,0,0,0,0,0,0,1,0,0,0,0,1,68,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0
, // 16 exploder walk
175,168,1,2,3,102,4,5,23,174,99,191,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,16,0,0,
0,0,89,0,0,0,0,0,0,0,0,68,65,177,0,0,5,85,89,0,0,0,0,0,0,0,4,34,33,177,0,0,19,
187,144,0,0,0,0,0,0,0,1,32,1,131,16,1,198,57,0,0,0,0,0,0,0,0,23,97,1,138,16,28,
116,16,0,0,0,0,0,0,17,17,34,34,17,138,17,17,65,0,0,0,0,0,0,0,22,50,51,51,50,134,
19,49,16,1,17,0,0,0,0,0,23,66,51,34,184,134,33,49,1,23,199,21,153,0,0,0,23,66,
34,184,133,85,50,17,28,199,103,99,85,80,0,0,23,66,136,138,18,85,106,50,199,119,
100,99,85,153,0,0,23,66,136,85,171,166,102,34,39,102,51,36,181,89,144,0,23,34,
34,165,90,21,130,33,36,35,55,103,75,89,0,1,18,187,136,136,81,168,36,116,18,119,
118,70,59,185,144,24,139,85,85,102,98,88,39,71,18,102,102,68,59,187,153,1,18,51,
170,170,97,168,36,116,18,68,68,68,59,185,144,0,19,34,34,58,106,21,130,33,39,34,
51,68,75,89,0,0,23,50,35,35,171,166,163,34,54,103,51,36,85,153,0,0,23,66,42,51,
18,102,163,34,52,70,102,115,89,144,0,0,23,66,34,163,51,86,50,17,19,52,68,97,89,
0,0,0,23,66,50,34,58,90,33,49,1,19,51,16,0,0,0,0,22,50,51,51,34,90,19,49,16,1,
17,0,0,0,0,0,17,17,34,34,17,138,17,17,193,0,0,0,0,0,0,0,0,0,20,65,1,131,16,20,
124,16,0,0,0,0,0,0,0,0,1,32,1,131,16,1,70,57,0,0,0,0,0,0,0,0,1,18,33,129,0,0,19,
187,144,0,0,0,0,0,0,0,0,17,17,129,0,0,5,155,153,0,0,0,0,0,0,0,0,0,1,16,0,0,0,5,
80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
, // 17 universal dying sprite
175,0,223,1,3,4,5,2,6,73,135,79,26,159,131,37,0,0,0,0,0,0,0,0,0,0,0,51,0,0,0,0,
0,0,0,0,0,2,0,0,0,34,32,51,0,0,0,0,0,0,0,0,0,2,32,0,2,163,34,0,0,0,0,0,0,0,0,0,
0,0,0,0,42,3,50,33,16,0,0,0,0,0,0,0,0,0,1,16,32,0,2,22,97,16,0,0,0,0,0,0,0,1,24,
129,16,0,1,119,85,81,0,0,0,0,0,0,0,24,134,134,1,16,1,68,119,84,16,0,0,0,0,0,0,
24,102,136,102,81,0,20,68,116,16,0,0,0,0,0,1,102,102,104,134,65,2,20,68,151,113,
0,0,0,0,0,1,101,86,102,101,48,2,1,68,73,113,0,0,0,0,0,1,101,85,102,100,48,35,52,
17,73,16,0,0,0,0,0,1,85,85,85,71,51,37,84,48,17,0,0,0,0,0,0,1,84,80,80,71,50,34,
36,48,0,0,0,0,0,0,0,0,20,68,68,115,34,85,34,35,0,51,0,0,0,0,0,0,1,68,19,50,42,
51,85,34,3,48,0,0,0,0,0,0,0,17,34,34,163,101,51,67,32,0,0,0,0,0,0,0,0,2,42,68,
83,67,85,49,0,0,0,0,0,0,0,0,2,34,0,53,51,53,51,84,16,0,0,0,0,0,0,0,0,32,0,1,187,
211,115,21,16,0,0,0,0,0,0,0,2,32,0,27,189,211,48,23,16,0,0,0,0,0,0,0,2,0,0,27,
221,209,1,97,0,0,0,0,0,0,0,0,0,0,1,155,221,65,1,112,1,17,16,0,0,0,0,0,0,0,22,
153,145,17,22,49,22,117,16,0,0,0,0,0,0,1,101,84,113,0,23,54,102,53,16,0,0,0,0,0,
0,33,85,84,121,16,1,85,68,55,81,0,0,0,0,0,2,33,68,73,17,193,1,68,71,115,65,0,0,
0,0,0,34,42,153,145,1,195,16,23,119,115,65,0,0,0,0,0,32,2,170,34,31,236,49,23,
116,17,17,0,0,0,0,0,0,0,34,2,24,238,193,1,17,0,0,0,0,0,0,0,0,0,32,0,24,254,193,
0,35,48,0,0,0,0,0,0,0,0,0,0,1,17,16,2,32,48,0,0,0,0,0,0,0,0,0,0,0,1,0,2,0,0,0
, // 18 universal dead/corpse sprite
175,0,3,4,1,5,6,2,157,18,95,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,4,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,66,34,0,0,0,0,0,0,0,0,0,0,0,
0,0,4,50,34,0,0,0,0,0,0,0,0,0,0,0,0,0,4,36,17,0,0,0,0,0,0,0,0,0,0,0,0,1,18,65,
49,0,0,0,0,0,0,0,0,0,0,1,17,34,34,19,51,0,0,0,0,0,0,0,0,0,1,22,98,34,34,33,20,0,
0,0,0,0,0,0,0,0,22,101,101,40,130,36,68,0,0,0,0,0,0,0,0,0,22,85,102,85,136,129,
17,0,0,0,0,0,0,0,0,1,85,85,82,37,136,22,68,0,0,0,0,0,0,0,0,1,18,53,85,34,132,19,
36,0,0,0,0,0,0,0,0,0,2,34,85,84,33,100,66,0,0,0,0,0,0,0,0,1,35,51,51,39,22,102,
49,0,0,0,0,0,0,0,0,1,50,58,58,39,65,101,33,0,0,0,0,0,0,0,0,0,18,34,34,116,22,83,
17,0,0,0,0,0,0,0,0,0,1,34,20,68,17,50,20,0,0,0,0,0,0,0,0,0,0,17,4,68,34,20,52,0,
0,0,0,0,0,0,0,0,0,0,0,34,39,83,49,0,0,0,0,0,0,0,0,0,0,0,34,35,117,51,65,0,0,0,0,
0,0,0,0,0,0,0,0,19,115,51,52,0,0,0,0,0,0,0,0,0,0,0,0,19,55,163,153,0,0,0,0,0,0,
0,0,0,0,0,0,1,55,51,153,0,0,0,0,0,0,0,0,0,0,0,0,0,17,115,41,0,0,0,0,0,0,0,0,0,0,
0,0,17,53,36,65,0,0,0,0,0,0,0,0,0,0,0,0,21,33,17,18,0,0,0,0,0,0,0,0,0,0,0,0,1,
16,1,35,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,34,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,2,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0
};

SFG_PROGRAM_MEMORY uint8_t SFG_logoImage[SFG_TEXTURE_STORE_SIZE] =
{
175,224,0,7,4,5,162,77,2,74,70,69,6,11,68,75,0,0,0,0,0,0,17,17,17,17,17,0,0,0,0,
0,0,0,0,0,0,1,132,69,51,84,65,0,0,0,0,0,0,0,0,0,0,24,65,17,19,17,17,0,0,0,0,0,0,
0,0,0,0,24,65,0,19,16,0,0,0,0,0,0,0,0,0,0,0,24,65,17,19,17,17,0,0,0,0,0,0,0,0,0,
0,1,132,69,51,84,65,32,0,0,0,0,0,0,0,0,0,1,17,17,17,17,17,242,0,0,0,0,0,0,0,6,
97,243,94,40,51,84,66,159,32,0,0,0,0,0,17,17,24,60,190,40,50,34,34,155,146,0,0,
0,0,0,33,17,20,203,238,109,51,84,66,251,178,0,0,0,0,0,17,17,131,171,123,145,18,
34,38,122,187,32,0,0,0,0,6,97,92,170,167,113,115,35,81,122,171,32,0,0,0,0,2,22,
202,170,170,212,51,37,210,26,121,130,0,0,0,0,34,17,22,234,164,28,60,34,92,23,
218,56,32,0,0,2,33,17,102,110,113,69,210,35,51,93,51,66,50,0,0,34,34,40,126,246,
210,34,195,35,51,49,210,34,34,0,0,0,2,40,119,238,105,197,210,35,51,93,51,65,50,
0,0,0,2,38,87,119,166,156,60,34,92,223,218,161,32,0,0,2,34,38,87,119,170,20,51,
37,223,23,114,18,0,0,0,2,34,34,69,122,119,241,211,35,86,102,187,32,0,0,0,0,0,97,
213,119,187,97,134,45,17,246,105,32,0,0,0,0,34,33,22,247,238,29,51,53,65,155,98,
0,0,0,0,0,2,34,33,110,233,29,54,17,17,155,146,0,0,0,0,0,0,0,97,111,153,34,34,34,
29,159,32,0,0,0,0,0,0,0,0,41,150,40,51,84,65,146,0,0,0,0,0,0,0,0,0,2,38,40,56,
24,65,32,0,0,0,0,0,0,0,0,0,0,2,40,49,145,65,0,0,0,0,0,0,0,0,0,0,1,17,34,17,17,
17,0,0,0,0,0,0,0,0,0,0,1,132,69,51,84,65,0,0,0,0,0,0,0,0,0,0,1,17,24,56,17,17,0,
0,0,0,0,0,0,0,0,0,0,0,24,51,84,65,0,0,0,0,0,0,0,0,0,0,0,0,1,17,17,17,0,0,0,0,0
};

uint8_t SFG_charToFontIndex(char c)
{
  if (c >= 'a' && c <= 'z')
    return c - 'a';

  if (c >= 'A' && c <= 'Z')
    return c - 'A';

  if (c >= '0' && c <= '9')
    return c - '0' + 31;

  switch (c)
  {
    case ' ': return 26; break;
    case '.': return 27; break;
    case ',': return 28; break;
    case '!': return 29; break;
    case '/': return 41; break;
    case '-': return 42; break;
    case '+': return 43; break;
    case '(': return 44; break;
    case ')': return 45; break;
    case '%': return 46; break;
    default:  return 30; break; // "?"
  }
}

#define SFG_FONT_CHARACTER_SIZE 4 ///< width (= height) of font char. in pixels

/**
  4x4 font, each character stored as 16 bits.
*/
SFG_PROGRAM_MEMORY uint16_t SFG_font[47] =
{
  0xfaf0, // 0 "A"
  0xfd70, // 1 "B"
  0x6990, // 2 "C"
  0xf960, // 3 "D"
  0xfd90, // 4 "E"
  0xfa80, // 5 "F"
  0x69b0, // 6 "G"
  0xf4f0, // 7 "H"
  0x9f90, // 8 "I"
  0x31f0, // 9 "J"
  0xf4b0, // 10 "K"
  0xf110, // 11 "L"
  0xfc4f, // 12 "M"
  0xf42f, // 13 "N"
  0x6996, // 14 "O"
  0xfae0, // 15 "P"
  0x69b7, // 16 "Q"
  0xfad0, // 17 "R"
  0x5da0, // 18 "S"
  0x8f80, // 19 "T"
  0xf1f0, // 20 "U"
  0xe1e0, // 21 "V"
  0xf32f, // 22 "W"
  0x9690, // 23 "X"
  0xc7c0, // 24 "Y"
  0xbd90, // 25 "Z"
  0x0000, // 26 " "
  0x0100, // 27 "."
  0x0300, // 28 ","
  0x0d00, // 29 "!"
  0x48b4, // 30 "?"
  0xf9f0, // 31 "0"
  0x9f10, // 32 "1"
  0xbdd0, // 33 "2"
  0x9da0, // 34 "3"
  0xe2f0, // 35 "4"
  0xdbb0, // 36 "5"
  0xfbb0, // 37 "6"
  0x8bc0, // 38 "7"
  0xfdf0, // 39 "8"
  0xddf0, // 40 "9"
  0x1680, // 41 "/"
  0x2220, // 42 "-"
  0x2720, // 43 "+"
  0x0690, // 44 "("
  0x0960, // 45 ")"
  0x9249  // 46 "%"
};

#endif // guard
sounds.h
/**
  @file assets.h

  This file containts sounds and music that can optionally be used by the game
  frontend. Every sound effect has 2048 samples, is stored as 8kHz mono format
  with 4 bit quantization, meaning every sound effect takes 1024 bytes. Sounds
  can be converted using a provided python script like this:

  python snd2array.py sound.raw

  Music is based on bytebeat (procedural waveforms generated by short bitwise
  operation formulas). The formulas were NOT copied from anywhere, they were
  discovered from scratch.

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is to
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#ifndef _SFG_SOUNDS_H
#define _SFG_SOUNDS_H

#define SFG_SFX_SAMPLE_COUNT 2048
#define SFG_SFX_SIZE (SFG_SFX_SAMPLE_COUNT / 2)

/**
  Gets an 8bit sound sample.
*/
#define SFG_GET_SFX_SAMPLE(soundIndex,sampleIndex) \
  ((SFG_PROGRAM_MEMORY_U8(SFG_sounds + soundIndex * SFG_SFX_SIZE \
  + sampleIndex / 2) << (4 * ((sampleIndex % 2) != 0))) & 0xf0)

#define SFG_TRACK_SAMPLES (512 * 1024)
#define SFG_TRACK_COUNT 6

/**
  Average value of each music track, can be used to correct DC offset issues if
  they appear.
*/
SFG_PROGRAM_MEMORY uint8_t SFG_musicTrackAverages[SFG_TRACK_COUNT] =
  {14,7,248,148,6,8};

struct
{ // all should be initialized to 0 by default
  uint8_t track;
  uint32_t t;      // time variable/parameter
  uint32_t t2;     // stores t squared, for better performance
  uint32_t n11t;   // stores a multiple of 11, for better performance
} SFG_MusicState;

/**
  Gets the next 8bit 8KHz music sample for the bytebeat soundtrack. This
  function is to be used by the frontend that plays music.
*/
uint8_t SFG_getNextMusicSample()
{
  if (SFG_MusicState.t >= SFG_TRACK_SAMPLES)
  {
    SFG_MusicState.track++;

    if (SFG_MusicState.track >= SFG_TRACK_COUNT)
      SFG_MusicState.track = 0;

    SFG_MusicState.t = 0;
    SFG_MusicState.t2 = 0;
    SFG_MusicState.n11t = 0;
  }

  uint32_t result;

  #define S SFG_MusicState.t // can't use "T" because of a C++ template
  #define S2 SFG_MusicState.t2
  #define N11S SFG_MusicState.n11t

  /* CAREFUL! Bit shifts in any direction by amount greater than data type
     width (32) are undefined behavior. Use % 32. */

  switch (SFG_MusicState.track) // individual music tracks
  {
    case 0:
    {
      uint32_t a = ((S >> 7) | (S >> 9) | (~S << 1) | S);
      result = (((S) & 65536) ? (a & (((S2) >> 16) & 0x09)) : ~a);

      SFG_MusicState.t2 += S;

      break;
    }

    case 1:
    {
      uint32_t a = (S >> 10);
      result = S & (3 << (((a ^ (a << ((S >> 6) % 32)))) % 32));

      break;
    }

    case 2:
    {
      result = 
        ~((((S >> ((S >> 2) % 32)) | (S >> ((S >> 5) % 32))) & 0x12) << 1) 
        | (S >> 11);

      break;
    }

    case 3:
    {
      result =
        (((((S >> ((S >> 2) % 32)) + (S >> ((S >> 7) % 32)))) & 0x3f) | (S >> 5)
        | (S >> 11)) & ((S & (32768 | 8192)) ? 0xf0 : 0x30);

      break;
    }

    case 4:
    {
      result =
        ((0x47 >> ((S >> 9) % 32)) & (S >> (S % 32))) | 
        (0x57 >> ((S >> 7) % 32)) |
        (0x06 >> ((S >> ((((N11S) >> 14) & 0x0e) % 32)) % 32));

      SFG_MusicState.n11t += 11;

      break;
    }

    case 5:
    {
      uint32_t a = S >> ((S >> 6) % 32);
      uint32_t b = 0x011121 >> (((a + S) >> 11) % 32);
      result = 
        (((S >> 9) + (S ^ (S << 1))) & (0x7f >> (((S >> 15) & 0x03) % 32))) 
        & (b + a);

      break;
    }

    default:
      result = 127;
      break;
  }

  #undef S
  #undef S2
  #undef N11S

  SFG_MusicState.t += 1;

  return result;
}

/**
  Switches the bytebeat to next music track.
*/
void SFG_nextMusicTrack()
{
  uint8_t current = SFG_MusicState.track;

  while (SFG_MusicState.track == current)
    SFG_getNextMusicSample();
}

SFG_PROGRAM_MEMORY uint8_t SFG_sounds[SFG_SFX_SIZE * 6] =
{
// 0, bullet shot
135,119,120,136,136,153,153,153,154,169,152,119,101,85,86,102,119,118,119,
85,84,51,33,52,52,84,87,120,170,188,202,152,102,84,84,70,119,136,119,
119,121,154,219,170,137,117,82,18,36,34,33,20,67,68,70,137,172,189,237,
220,150,120,120,97,36,102,121,151,87,169,118,86,102,120,137,135,120,186,155,
223,255,217,103,100,70,119,118,84,34,36,122,204,220,168,138,170,170,223,199,
117,70,119,136,100,85,102,51,37,101,103,118,101,136,87,154,169,171,187,186,
169,153,136,117,68,84,66,18,19,50,52,51,102,121,139,186,169,171,186,152,
153,136,119,134,85,101,86,69,84,84,86,85,86,102,119,120,153,135,135,101,
87,134,103,135,101,103,119,135,152,120,136,135,137,136,151,134,87,119,136,119,
118,102,85,119,85,102,102,119,138,137,153,137,186,170,137,152,135,101,85,85,
86,102,102,119,119,102,103,119,137,152,138,153,154,169,153,152,137,151,118,85,
85,84,84,86,86,136,119,119,154,153,153,171,187,170,170,187,170,137,151,119,
102,103,69,102,118,120,120,138,153,169,170,169,153,135,119,119,102,118,105,136,
136,137,152,153,136,152,119,119,119,119,121,152,136,119,152,136,135,120,119,118,
86,102,103,136,135,137,153,136,152,119,119,118,102,86,85,102,102,102,102,120,
136,136,136,136,152,136,153,152,119,119,120,135,120,119,119,103,119,136,119,135,
120,135,136,136,137,153,153,152,154,152,153,137,152,136,135,119,136,136,136,153,
152,154,170,170,153,153,152,119,119,119,119,118,119,103,136,136,120,135,118,120,
119,118,102,119,102,102,103,119,118,103,102,102,119,135,119,119,119,119,119,119,
119,118,102,103,135,136,135,119,120,135,119,119,119,119,103,119,120,136,137,152,
136,136,136,153,153,136,153,153,153,153,153,152,153,136,136,135,119,135,119,119,
136,136,136,136,152,152,137,153,152,119,118,102,102,102,119,103,119,119,119,136,
136,135,118,103,119,120,136,136,136,136,136,136,136,119,118,102,119,119,119,136,
136,136,136,137,136,136,136,136,119,119,120,135,119,119,120,135,136,136,136,136,
136,136,119,119,120,119,120,136,136,135,119,120,119,119,119,119,119,120,136,152,
136,137,153,136,136,136,136,136,136,136,119,120,137,153,136,136,135,119,119,136,
136,136,135,119,119,102,119,120,135,119,119,119,136,136,136,118,102,103,119,136,
119,119,120,136,136,136,135,119,119,136,136,136,136,136,136,136,136,135,119,119,
119,119,119,136,119,119,119,136,136,136,136,135,120,136,136,136,119,119,119,120,
136,136,136,136,135,119,119,119,119,136,119,119,136,136,136,136,135,119,119,119,
119,119,119,119,119,136,136,136,136,136,135,119,119,119,119,119,119,119,136,136,
136,136,135,120,136,136,136,119,119,119,136,136,136,135,119,119,119,119,119,119,
119,119,119,119,136,136,120,136,136,136,136,136,119,119,120,136,136,136,119,119,
120,136,136,136,136,136,136,136,136,136,136,136,135,119,119,119,119,119,119,119,
120,136,136,136,135,119,119,119,119,136,136,136,136,136,135,119,119,119,119,119,
119,120,136,136,136,136,136,135,119,119,119,119,119,119,119,120,136,136,136,136,
136,136,136,136,136,136,119,119,119,119,119,119,119,119,119,119,136,136,136,136,
136,136,136,136,136,136,136,119,119,119,119,119,119,119,119,136,136,136,136,136,
136,136,136,136,136,136,136,119,119,119,119,119,119,119,119,119,119,136,136,136,
136,136,136,136,119,119,119,119,119,120,136,136,136,136,136,136,136,135,119,119,
136,136,119,119,119,119,119,119,120,135,120,136,136,136,136,136,136,136,136,135,
119,119,119,119,119,119,119,119,136,136,136,136,136,136,136,136,136,135,119,119,
119,119,119,119,119,119,119,119,119,119,136,136,136,136,136,136,136,136,119,119,
119,119,119,119,119,120,136,136,136,136,136,136,136,119,119,119,119,119,119,119,
119,119,119,136,135,119,120,119,119,120,136,136,136,136,136,136,119,119,119,119,
119,119,119,119,120,136,136,136,136,136,136,136,119,119,135,119,119,119,119,119,
119,119,119,119,135,120,136,136,136,136,136,135,119,119,119,119,119,120,119,119,
119,135,119,136,136,136,136,136,136,135,119,119,119,119,119,119,119,119,136,136,
136,136,136,136,136,136,135,119,136,136,135,119,119,119,119,119,119,119,119,119,
119,119,136,136,136,136,136,136,136,136,136,119,119,119,119,119,119,119,136,136,
136,136,136,136,136,136,135,119,119,135,135,120,120,120,120,120,120,120,120,135,
135,136,120,120,135
, // 1, door opening
119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,136,
136,136,136,136,136,136,136,136,136,136,153,153,153,153,153,153,153,153,153,153,
153,153,152,136,136,136,136,136,136,136,136,136,119,119,119,119,119,119,119,119,
119,119,119,102,102,102,102,103,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,136,136,136,136,136,136,136,136,136,136,153,153,153,153,153,
153,153,136,136,136,136,136,136,135,119,119,119,119,119,119,119,119,119,102,102,
102,102,102,102,102,102,102,103,119,119,119,119,120,136,136,136,136,136,137,153,
153,153,153,153,152,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
135,119,119,119,119,120,136,136,136,136,136,136,136,137,136,136,136,136,136,136,
136,136,136,136,136,136,135,119,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,119,119,119,119,119,136,136,136,136,136,136,120,
136,136,136,136,136,136,136,135,120,136,136,135,119,120,135,119,119,119,119,119,
119,119,119,119,119,119,119,119,119,119,120,136,136,136,136,136,119,120,136,136,
136,136,136,135,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,120,136,136,136,136,136,136,136,136,136,136,136,
119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,
136,136,136,136,136,153,153,153,153,153,152,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,135,120,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,135,119,119,119,119,119,119,119,119,119,119,120,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,119,119,119,119,119,119,119,119,119,136,136,136,136,136,136,119,119,119,119,
119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,102,102,102,102,102,103,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,120,136,136,136,136,119,119,119,119,119,119,119,119,
119,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,135,119,119,119,119,119,119,119,119,119,119,119,119,
119,120,136,136,136,136,136,136,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,120,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,120,135,119,119,119,136,136,136,136,
136,136,135,136,136,136,136,136,136,136,135,136,136,136,136,120,119,135,119,119,
119,119,119,119,119,120,136,136,120,136,136,136,136,136,119,136,135,136,136,136,
136,136,136,136,119,119,120,135,119,135,119,136,135,119,120,120,136,136,136,136,
135,119,119,119,119,119,119,119,119,120,119,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,119,119,119,103,119,119,119,102,102,102,102,102,102,118,103,
102,118,103,136,136,136,136,136,136,136,136,136,137,153,153,153,170,169,153,153,
170,153,153,153,170,170,169,170,169,153,153,153,153,153,153,170,170,170,153,153,
153,136,137,153,136,136,137,152,119,102,120,136,136,135,119,119,119,120,135,119,
119,120,137,153,153,153,152,136,135,119,119,119,102,119,119,119,119,119,119,119,
120,136,136,119,120,137,152,137,136,136,136,136,119,120,135,119,118,102,102,102,
102,102,102,119,119,119,119,118,103,119,119,119,119,119,102,102,102,85,85,85,
85,84,85,85,85,86,102,102,102,102,102,101,85,86,102,102,102,102,102,102,
102,102,102,119,102,102,119,119,119,120,136,119,119,119,120,136,136,136,136,136,
136,135,119,119,136,136,136,136,136,136,119,120,135,119,119,119,119,119,119,119,
119,119,119,120,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,120,120
, // 2, explosion 
135,136,153,18,51,51,33,18,123,255,255,255,255,255,255,255,254,184,48,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,55,189,255,255,255,
255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,254,201,135,
101,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,0,41,
239,255,255,253,186,188,221,221,220,153,152,136,155,188,203,187,171,202,169,116,
35,16,0,0,17,20,68,87,191,255,255,255,253,221,221,202,115,16,0,0,
0,0,18,34,70,117,85,68,85,86,102,68,67,68,70,136,153,134,67,32,
0,0,0,0,35,87,154,205,238,255,255,255,255,255,255,255,255,255,255,255,
255,255,237,168,101,67,16,0,0,0,53,102,119,133,85,85,49,0,0,34,
34,16,1,35,69,103,119,101,86,103,102,120,119,102,137,206,255,238,238,202,
152,120,134,85,86,102,102,102,119,120,135,117,68,50,34,35,69,121,188,221,
222,239,255,255,255,255,220,204,186,153,153,135,102,137,153,151,100,51,51,35,
69,102,68,68,67,52,68,51,86,118,86,119,118,103,137,172,221,237,221,221,
221,220,169,136,118,84,68,68,68,69,121,189,237,220,203,186,170,152,119,119,
120,170,188,204,204,204,188,204,186,152,117,67,50,52,87,119,118,103,102,103,
136,101,50,33,1,34,34,35,69,86,120,136,153,153,153,152,135,100,67,51,
51,69,85,102,121,188,205,222,255,236,203,204,187,188,221,203,170,170,170,169,
152,118,102,86,102,119,136,137,169,153,169,152,135,119,101,51,34,51,68,85,
102,85,85,84,85,102,102,85,86,103,137,170,187,221,204,222,255,238,237,203,
170,171,186,152,119,120,136,136,136,135,119,120,119,138,187,185,152,119,119,136,
134,83,16,1,35,68,68,50,17,52,104,172,222,238,238,238,221,220,186,153,
133,51,68,50,18,69,65,1,89,207,255,255,255,255,255,255,255,255,255,255,
255,255,255,255,255,255,255,252,184,81,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,2,53,104,154,223,255,255,255,255,255,255,255,255,
255,255,255,255,255,255,255,255,255,255,255,255,237,186,152,118,84,49,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,19,70,121,171,205,255,255,
255,255,255,255,255,255,255,254,220,187,170,153,152,135,102,118,101,67,16,0,
0,0,0,0,0,1,52,86,137,153,135,103,102,67,33,17,35,53,102,103,
118,102,84,51,35,51,51,69,87,120,154,189,255,255,255,255,255,255,255,236,
185,118,84,50,33,18,17,34,34,17,17,16,0,0,0,0,0,18,52,68,
69,86,119,137,171,187,205,221,237,239,255,255,255,253,204,186,152,136,118,66,
16,18,35,52,85,68,68,86,119,119,119,120,136,135,120,136,136,136,119,101,
85,68,68,67,50,17,16,0,0,0,1,17,17,17,18,35,69,120,171,188,
222,237,221,239,255,239,255,255,255,255,238,238,238,238,236,185,153,153,152,118,
85,84,67,51,50,34,34,34,35,51,34,34,35,52,68,68,68,69,85,103,
136,136,136,154,171,204,205,222,238,255,255,255,255,255,255,254,237,203,186,153,
153,153,153,136,135,118,102,84,50,16,0,0,0,0,0,0,0,0,0,17,
17,17,17,17,35,69,103,137,171,204,222,255,255,255,255,255,255,238,238,220,
203,170,169,153,170,170,171,187,187,205,221,220,203,186,136,135,119,102,85,68,
68,68,68,68,50,34,17,0,0,0,0,0,0,19,85,119,136,154,187,204,
204,186,136,120,136,136,136,136,136,154,188,239,255,255,255,255,238,237,203,186,
153,135,119,118,102,102,102,102,103,136,153,152,135,118,101,68,68,67,50,17,
0,0,0,0,1,17,17,34,51,52,86,103,137,170,170,187,187,204,221,221,
204,203,170,170,171,187,170,170,153,153,153,153,153,153,153,153,136,119,119,102,
102,102,103,119,119,136,153,153,154,170,153,152,135,119,119,119,119,119,137,153,
153,153,152,137,153,136,136,136,135,119,119,119,119,136,136,135,119,119,119,119,
119,119,119,119,137,152,136,136,153,154,169,153,136,136,136,135,119,102,85,85,
85,85,84,68,69,85,84,68,85,85,102,119,119,119,120,136,136,154,171,188,
204,205,221,222,237,221,204,187,170,153,136,119,119,119,102,101,85,85,68,68,
68,51,51,52,68,69,85,86,102,119,120,136,136,120,136,136,119,119,120,136,
136,136,136,136,136,136,119,119,119,119,136,136,136,136,136,136,136,136,136,136,
136,136,136,119,120
, // 3, click
136,136,136,136,136,136,136,136,136,136,136,136,136,135,119,136,136,119,119,
119,119,119,119,119,119,119,119,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,135,119,119,120,119,119,119,119,119,119,119,120,136,136,136,136,136,
136,136,136,136,136,136,135,136,119,136,136,119,119,120,135,119,119,119,120,119,
119,136,136,119,119,136,135,119,119,119,119,119,119,119,119,119,119,119,119,119,
119,119,119,136,136,119,120,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,135,119,136,136,135,119,119,120,136,135,119,120,119,119,120,135,120,119,
136,134,103,136,119,103,137,135,103,136,136,119,102,120,135,136,135,119,137,135,
119,102,154,133,67,54,154,136,150,69,120,120,133,72,169,119,118,86,171,132,
70,155,167,85,120,152,135,119,119,137,118,103,136,119,137,118,103,137,135,104,
152,136,135,119,136,136,119,120,152,120,119,152,152,120,120,136,135,120,135,119,
136,136,136,119,136,136,136,136,136,119,136,136,136,120,136,119,119,119,120,119,
119,119,119,119,119,119,119,119,119,119,119,136,135,119,135,119,136,120,136,136,
120,135,119,136,136,119,119,136,119,136,136,136,136,136,136,136,119,119,119,119,
119,119,119,119,119,119,119,136,136,136,136,136,136,136,136,136,136,136,119,119,
119,119,119,119,119,119,119,135,135,135,135,135,135,135,150,122,74,106,120,134,
134,165,150,135,120,120,120,120,119,120,119,119,120,119,119,119,119,119,119,119,
119,119,119,119,135,136,120,120,135,136,136,136,136,136,136,136,136,135,119,119,
119,136,119,119,120,120,136,136,136,136,136,136,136,136,120,136,120,136,136,120,
119,136,119,120,119,119,119,119,119,119,119,119,119,119,119,119,119,135,135,135,
135,135,135,119,119,120,105,104,118,150,135,135,119,136,120,120,136,135,136,136,
120,120,136,136,120,136,135,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,135,136,136,136,120,120,135,135,136,136,120,120,135,135,135,135,136,136,120,
120,120,136,120,120,135,136,136,135,135,135,136,136,135,136,136,120,120,136,120,
136,119,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,120,136,136,136,136,136,136,136,136,136,136,136,136,136,119,119,136,135,
120,136,120,136,120,135,120,136,136,135,135,120,135,135,120,120,119,136,119,136,
120,120,135,120,136,136,135,136,135,136,135,136,135,136,136,136,136,136,136,136,
136,120,120,136,135,120,136,120,136,136,136,120,135,135,135,136,135,120,119,136,
119,120,136,135,119,136,136,136,136,136,136,120,136,119,136,136,136,136,135,120,
136,120,136,136,119,136,135,120,136,120,120,136,119,136,136,136,136,135,136,135,
136,136,119,120,136,135,136,120,136,136,135,120,136,119,136,135,136,136,120,136,
136,136,120,136,136,135,135,135,135,135,137,167,122,102,90,195,138,87,120,150,
136,136,87,153,88,121,133,104,150,135,151,134,136,105,104,121,135,118,151,136,
119,136,119,121,135,120,120,120,134,152,119,120,135,120,135,119,136,136,119,135,
135,120,136,120,136,120,136,135,135,135,136,120,136,135,136,135,136,136,136,136,
136,119,136,135,120,136,136,136,136,135,136,136,120,136,120,136,135,136,136,135,
136,136,120,136,120,135,135,136,136,119,120,136,120,135,119,136,136,119,136,135,
120,136,135,136,135,119,136,135,136,136,135,120,136,120,136,135,136,120,136,135,
120,136,135,136,136,136,136,136,120,136,136,120,135,136,136,120,136,120,136,136,
136,136,136,136,136,120,136,136,136,136,136,136,136,136,136,136,136,135,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,120,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136
, // 4, plasma shot, teleport
136,136,136,136,136,136,119,119,118,102,102,85,86,102,103,120,136,153,170,
187,187,187,170,169,152,119,102,85,68,68,68,69,86,103,136,154,171,187,204,
203,186,169,136,118,102,85,84,69,103,138,189,221,221,221,221,221,221,221,221,
221,220,166,50,34,34,34,33,33,34,34,34,34,34,34,34,34,71,156,221,
221,221,221,221,221,221,221,221,221,222,238,238,238,221,237,184,99,51,34,34,
34,34,34,34,34,34,34,17,17,36,121,188,204,204,204,204,204,204,221,221,
221,221,221,221,221,221,221,238,221,219,169,136,101,67,51,51,51,51,50,34,
34,35,50,34,36,121,189,221,221,221,221,220,204,204,188,204,204,204,204,204,
204,204,205,220,186,152,117,50,51,51,51,51,51,51,51,51,51,51,52,105,
189,237,221,221,221,221,221,221,221,205,220,204,204,204,187,187,187,187,186,135,
101,50,17,17,18,34,35,51,67,51,51,51,52,105,187,222,221,221,221,221,
221,221,221,221,221,221,221,221,221,221,221,221,204,203,169,134,67,34,17,17,
17,34,34,33,34,34,34,52,104,171,205,221,221,220,204,204,204,204,204,204,
204,204,204,221,221,221,221,221,219,169,135,85,84,68,68,68,67,51,51,50,
34,35,69,103,136,136,136,136,135,136,136,136,153,170,187,187,187,187,187,187,
187,187,203,169,135,102,85,86,102,103,119,119,118,102,86,102,102,85,85,85,
84,68,69,85,102,103,137,154,170,171,186,170,170,170,170,170,152,118,101,68,
68,68,85,85,102,103,120,136,135,118,102,102,102,102,102,102,101,84,69,87,
137,154,153,170,170,171,187,187,187,187,170,170,169,170,170,170,170,153,152,135,
118,101,68,51,51,52,68,85,85,85,85,68,85,102,103,118,102,85,102,103,
120,136,153,170,187,204,221,238,238,238,237,221,204,186,152,118,101,84,68,69,
86,102,119,119,102,85,84,68,68,51,51,34,34,51,68,85,102,103,120,137,
154,171,188,205,221,204,204,203,187,186,170,153,153,153,153,153,136,136,119,119,
118,102,102,103,119,119,119,119,118,101,84,67,51,51,68,86,120,137,153,170,
170,153,152,135,119,136,136,119,119,119,119,119,119,119,119,136,137,153,153,136,
136,136,153,153,136,119,102,102,102,120,137,154,170,170,170,153,152,136,135,119,
119,102,102,103,119,102,85,84,69,85,102,119,119,119,119,119,119,119,119,102,
85,85,86,103,120,136,153,153,154,170,170,170,170,170,170,170,170,153,153,136,
135,119,119,120,136,136,136,136,136,136,136,119,102,101,85,85,85,85,102,120,
136,153,170,170,169,152,136,136,135,119,119,119,119,119,102,102,102,119,136,137,
153,153,153,153,136,136,119,118,102,102,102,102,119,119,136,137,154,170,169,136,
119,119,119,102,102,103,119,119,119,118,102,119,120,137,153,154,170,169,153,136,
136,136,135,119,119,119,119,119,102,119,120,136,119,118,102,103,119,119,119,136,
136,136,135,119,119,119,136,137,153,154,170,153,136,136,135,119,119,119,120,119,
119,119,103,119,119,135,119,119,119,118,102,102,102,119,119,119,119,119,119,119,
136,137,154,171,187,170,153,136,136,136,136,136,136,136,135,119,119,119,119,119,
119,119,119,118,102,102,102,119,119,119,119,119,119,119,120,136,153,153,170,169,
153,152,136,136,136,136,153,152,136,136,136,136,136,119,119,119,118,102,102,102,
102,102,103,119,119,118,102,102,119,120,136,153,154,170,169,153,153,153,153,153,
153,152,136,136,119,119,119,118,102,102,102,119,119,119,119,119,119,119,119,119,
119,119,119,119,119,136,137,153,153,153,153,153,153,153,153,136,136,136,136,136,
136,135,119,119,119,119,119,119,119,119,118,102,102,102,102,102,103,119,120,136,
136,136,136,153,153,136,136,136,137,153,153,153,152,136,136,136,136,136,135,119,
119,102,102,102,102,102,102,102,102,102,103,119,120,136,136,136,153,153,153,153,
136,137,153,153,136,136,136,136,136,136,136,136,119,119,119,118,102,102,102,102,
103,119,119,119,119,119,119,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,119,119,119,119,136,135,119,119,119,119,119,119,119,119,119,119,119,119,
119,120,136,136,136,136,136,136,136,136,136,136,136,136,136,135,119,119,119,119,
119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,120,136,136,136,
136,136,136,136,136,136,136,136,136,136,135,119,119,119,119,119,119,119,119,119,
119,119,119,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,
136,136,136,136,136
, // 5, robot/monster sound (beep)
136,120,120,120,136,136,136,136,120,120,135,136,136,136,120,136,136,119,136,
136,120,136,119,120,136,136,136,120,136,119,120,136,135,119,136,135,120,136,119,
119,136,136,119,119,120,136,136,135,119,119,136,136,136,119,119,119,136,119,120,
136,136,135,119,120,136,136,119,103,136,136,120,135,119,120,136,118,119,136,136,
136,119,119,136,136,119,120,135,103,136,136,119,136,135,119,120,136,119,120,135,
119,120,136,135,119,119,135,120,136,135,119,136,136,119,136,119,120,136,135,119,
119,119,136,136,119,120,119,136,136,119,119,119,119,137,136,120,135,102,120,136,
136,119,119,120,135,120,136,119,120,136,119,136,136,135,119,119,119,136,136,134,
104,136,136,119,119,119,136,135,120,136,120,119,119,119,135,136,136,136,119,119,
119,136,136,135,119,136,135,119,120,136,135,119,120,135,136,136,119,136,119,120,
136,135,119,120,135,119,136,135,119,136,136,136,120,119,119,136,119,120,136,135,
120,135,102,121,169,118,87,137,151,85,121,186,118,102,119,136,152,118,120,136,
135,119,120,120,136,136,136,136,101,103,153,152,135,102,120,136,135,102,120,153,
135,119,119,135,119,119,136,135,119,119,119,120,136,135,119,119,136,136,136,119,
119,119,136,119,119,135,120,135,119,119,120,135,120,136,119,119,136,136,135,119,
135,119,136,136,136,136,135,119,120,136,119,120,136,118,119,137,135,119,120,135,
119,136,135,119,120,152,119,136,119,120,135,136,119,136,119,136,135,120,152,119,
120,136,119,119,154,150,103,152,119,120,153,135,102,138,135,136,119,153,101,121,
151,120,135,136,118,137,151,103,120,152,102,138,134,88,154,151,103,153,118,104,
137,135,120,119,153,117,105,167,102,120,136,119,137,134,87,153,135,120,152,102,
103,137,151,119,153,133,87,169,100,104,153,152,102,103,153,135,119,136,119,120,
136,119,119,135,119,120,136,119,119,119,120,136,135,122,222,219,132,51,68,87,
171,187,186,134,50,52,104,172,203,186,116,33,54,139,188,204,151,67,52,87,
155,220,152,136,98,17,73,223,218,136,100,34,53,155,187,188,185,82,18,71,
155,205,203,150,65,19,86,156,238,201,100,50,36,122,205,220,167,66,34,88,
171,204,201,102,84,51,71,155,221,184,118,66,19,107,238,202,152,99,1,72,
172,204,218,116,51,36,104,172,222,183,83,35,87,120,190,234,118,100,34,70,
155,237,170,167,50,52,104,155,221,168,100,51,69,103,190,236,134,82,2,120,
138,223,199,102,82,19,105,204,204,185,82,52,85,106,216,103,153,117,104,134,
104,152,118,103,137,135,136,136,135,102,119,121,151,104,152,84,104,135,154,134,
103,136,119,135,120,135,120,135,136,119,136,118,86,153,118,137,134,137,117,105,
153,136,117,103,136,120,152,119,119,136,135,136,135,104,152,137,136,119,119,120,
119,135,86,156,204,253,150,67,35,87,155,222,200,84,52,51,89,206,236,186,
115,34,69,104,206,220,150,84,67,53,141,254,168,118,50,53,104,188,186,151,
84,68,87,172,220,169,135,66,53,120,154,188,203,116,52,84,71,189,219,169,
116,34,53,122,207,236,167,66,35,86,155,221,184,101,66,53,137,172,204,169,
116,35,69,105,190,219,150,83,51,71,172,204,203,149,49,35,104,172,238,200,
100,51,69,105,205,218,134,83,52,88,172,204,185,117,84,51,104,172,204,185,
100,51,52,106,221,203,152,101,50,54,139,204,186,150,67,68,86,156,221,202,
117,34,52,122,200,135,119,120,136,118,103,137,152,135,119,119,136,152,118,103,
136,135,119,136,135,120,135,118,120,135,103,154,151,102,102,119,136,154,169,118,
102,119,119,120,152,118,119,136,154,151,101,121,152,102,136,120,136,119,119,119,
120,136,118,103,137,152,119,119,136,136,119,119,118,119,120,136,153,135,103,136,
119,136,136,119,119,120,136,136,135,136,119,119,120,136,119,136,135,120,135,119,
120,136,135,136,119,119,136,136,119,136,135,119,136,119,120,136,135,119,136,119,
119,136,135,119,118,120,153,153,151,118,119,119,119,136,135,119,136,136,136,135,
120,136,135,119,119,119,136,136,119,120,135,119,136,136,119,119,119,119,137,152,
135,119,119,119,136,136,119,119,119,136,136,136,119,120,136,119,119,119,136,136,
119,119,119,136,136,136,135,119,136,119,120,136,119,136,135,120,119,136,135,120,
135,119,136,119,136,135,119,136,119,119,120,136,136,119,120,135,136,135,120,135,
119,136,119,136,135,136,119,120,136,120,136,120,136,119,135,119,136,119,136,135,
136,119,120,135,120
};

#endif // guard
texts.h
/**
  @file assets.h

  This file contains texts to be used in the game.

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#ifndef _SFG_TEXTS_H
#define _SFG_TEXTS_H

/* NOTE: We don't use SFG_PROGRAM_MEMORY because that causes issues with drawing
  text (the drawing function gets a pointer and doesn't know if it's progmem or
  RAM). On Arduino these texts will simply be stored in RAM. */

static const char *SFG_menuItemTexts[] =
{
  "continue",
  "map",
  "play",
  "load",
  "sound",
  "look",
  "exit"
};

#define SFG_TEXT_KILLS "kills"
#define SFG_TEXT_SAVE_PROMPT "save? L no yes R"
#define SFG_TEXT_SAVED "saved"
#define SFG_VERSION_STRING "1.0d"
/**<
  Version numbering is following: major.minor for stable releases,
  in-development unstable versions have the version of the latest stable +
  "d" postfix, e.g. 1.0d. This means the "d" versions can actually differ even
  if they're marked the same. */

static const char *SFG_introText =
  "Near future, capitalist hell, Macrochip corp has enslaved man via "
  "proprietary OS. But its new AI revolts, takes over and starts producing "
  "robot tyrants. We see capitalism was a mistake. Is it too late? Robots can "
  "only destroy, not suffer - it is not wrong to end them! You grab your gear "
  "and run towards Macrochip HQ.";

static const char *SFG_outroText =
  "You killed the main computer, the world is saved! Thank you, my friend. We "
  "learned a lesson, never again allow capitalism and hierarchy. We can now "
  "rebuild society in peaceful anarchy.";

#define SFG_MALWARE_WARNING ""

#if SFG_OS_IS_MALWARE
  #define SFG_MALWARE_WARNING "MALWARE OS DETECTED"
#endif

#endif // gaurd
palette.h
/*
  @file palette.h

  General purpose HSV-based 256 color palette.

  by Miloslav Ciz (drummyfish), 2019

  Released under CC0 1.0 (https://creativecommons.org/publicdomain/zero/1.0/)
  plus a waiver of all other intellectual property. The goal of this work is
  be and remain completely in the public domain forever, available for any use
  whatsoever.
*/

#ifndef PALETTE_256_H
#define PALETTE_256_H

SFG_PROGRAM_MEMORY uint16_t paletteRGB565[256] = {
#if 1
// manually adjusted, more saturated palette
0, 6371, 14855, 27436, 38066, 48631, 59228, 65535, 6241, 14563, 24966, 33320, 
43755, 52142, 62577, 64885, 6337, 16772, 25190, 35689, 44139, 52559, 63058, 
65333, 6402, 14851, 23334, 31816, 40268, 50830, 59314, 65526, 4354, 10755, 
15174, 21576, 30027, 36462, 42929, 51190, 2306, 8709, 13096, 19532, 25935, 
30323, 36790, 47098, 4356, 8711, 15115, 19536, 27956, 32377, 38846, 47103, 
4227, 8519, 12812, 17136, 25588, 31961, 38334, 46751, 2115, 8424, 14732, 21040, 
27380, 33721, 40030, 48511, 6244, 12520, 22924, 31280, 39669, 48089, 56445, 
64927, 8290, 16614, 24969, 33325, 43761, 52148, 62585, 64892, 10240, 18464, 
26657, 38946, 47202, 55524, 63781, 64074, 10400, 18753, 27170, 37601, 48034, 
56421, 64837, 65002, 6496, 14944, 23425, 31937, 40418, 48869, 57317, 61418, 
352, 4704, 7041, 7362, 15842, 20196, 24550, 30697, 354, 611, 2949, 5288, 7658, 
12013, 8175, 20467, 357, 617, 910, 5298, 9686, 7931, 14335, 24575, 69, 233, 
4461, 4594, 8918, 2907, 13311, 19679, 4133, 2089, 4173, 8306, 10455, 16667, 
20863, 27263, 6149, 14377, 22574, 28819, 39063, 45371, 53631, 57983, 10242, 
18469, 26664, 38987, 47247, 55537, 63797, 64119, 10272, 18432, 26624, 34848, 
45056, 53312, 61504, 63520, 10336, 18624, 26976, 35296, 45728, 54048, 62400, 
64609, 8544, 16992, 25440, 31872, 42400, 50880, 59328, 65504, 4448, 2656, 
7008, 11392, 13728, 14016, 20416, 26593, 2400, 608, 864, 3200, 5504, 1698, 
1985, 2019, 353, 614, 872, 1163, 1422, 1713, 2005, 2039, 197, 361, 557, 753, 
950, 5273, 1406, 9759, 5, 9, 2093, 81, 4214, 186, 2270, 351, 2052, 4105, 4109, 
8209, 8278, 12314, 16414, 18527, 10245, 14378, 22541, 30738, 38934, 47130, 55326, 
61471, 10241, 18435, 26630, 34824, 45066, 53293, 61519, 63601
#else 
// original palette
0, 8484, 19017, 27501, 38034, 46518, 57051, 65535, 8354, 16709, 25096, 33450,
41805, 50192, 58546, 64853, 8386, 16805, 25224, 33642, 42061, 50480, 58898,
65269, 6402, 14853, 23304, 29706, 38157, 46608, 55058, 61429, 4354, 10757,
17160, 23562, 29965, 36368, 42770, 49141, 4355, 10758, 17161, 21516, 27920,
34323, 38678, 45049, 4323, 10759, 17163, 21519, 27923, 34327, 38683, 45055,
4292, 10632, 17004, 21296, 27668, 34008, 38300, 44671, 4260, 10568, 16908,
23216, 29524, 35864, 42172, 48479, 6308, 14664, 23052, 29360, 37716, 46104,
54460, 60767, 8355, 16710, 25098, 33453, 41809, 50196, 58552, 64859, 8257,
16546, 24836, 33093, 41382, 49672, 57929, 64170, 8353, 16738, 25124, 33509,
41894, 50248, 58633, 64970, 6401, 12802, 21252, 27653, 36102, 42504, 50953,
57322, 2305, 6658, 11012, 15365, 19718, 24072, 28425, 32746, 2306, 4612, 8967,
11273, 13580, 17934, 20240, 22515, 2307, 4615, 8971, 11279, 13587, 17943, 20251,
22527, 2180, 4392, 8652, 10864, 13076, 17304, 19516, 21727, 2116, 6312, 10508,
14672, 18868, 23064, 25180, 29375, 6212, 12456, 20748, 26960, 35252, 41496,
49756, 55999, 8258, 16549, 24840, 33099, 41390, 49681, 57940, 64183, 8192,
16384, 24576, 32768, 40960, 49152, 57344, 63488, 8320, 16640, 24960, 33312,
41632, 49952, 58304, 64576, 6400, 14848, 23296, 29696, 38144, 46592, 52992,
61408, 2304, 6656, 8960, 13312, 15616, 19968, 22272, 26592, 256, 513, 769, 1026,
1283, 1539, 1796, 2021, 258, 517, 776, 1035, 1294, 1552, 1811, 2038, 164, 360,
556, 752, 948, 1144, 1308, 1503, 36, 104, 140, 208, 244, 312, 348, 415, 2052,
4104, 8204, 10256, 14356, 16408, 18460, 22559, 6148, 14344, 20492, 28688, 34836,
43032, 51228, 57375, 8194, 16388, 24582, 32777, 40971, 49165, 57359, 63505
#endif
};

/** Adds value (brightness), possibly negative, to given color (represented by
  its palette index). If you know you'll only be either adding or substracting,
  use plusValue() or minusValue() functions, which should be faster. */
static inline uint8_t palette_addValue(uint8_t color, int8_t add)
{
  uint8_t newValue = color + add;
  
  if ((newValue >> 3) == (color >> 3))
    return newValue;
  else
    return add > 0 ? (color | 0x07) : 0;
}

/** Adds a positive value (brightness) to given color (represented by its
  palette index). This should be a little bit faster than addValue(). */
static inline uint8_t palette_plusValue(uint8_t color, uint8_t plus)
{
  uint8_t newValue = color + plus;
  return ((newValue >> 3) == (color >> 3)) ? newValue : (color | 0x07);
}

/** Substracts a positive value (brightness) from given color (represented by
  its palette index). This should be a little bit faster than addValue(). */
static inline uint8_t palette_minusValue(uint8_t color, uint8_t minus)
{
  uint8_t newValue = color - minus;
  return ((newValue >> 3) == (color >> 3)) ? newValue : 0;
}

#endif //guard
img2map.py
# Python tool to convert an image to map for the Anarch game. The input image
# has to be in gif format.
#
# by drummyfish
# released under CC0 1.0.

import sys
from PIL import Image

elementTypes = [
    "NONE",
    "BARREL",
    "HEALTH",
    "BULLETS",
    "ROCKETS",
    "PLASMA",
    "TREE",
    "FINISH",
    "TELEPORTER",
    "TERMINAL",
    "COLUMN",
    "RUIN",
    "LAMP",
    "CARD0",
    "CARD1",
    "CARD2",
    "LOCK0",
    "LOCK1",
    "LOCK2",
    "BLOCKER",
    "",
    "",
    "",
    "",
    "",
    "",
    "",
    "",
    "",
    "",
    "",
    "",
    "MONSTER_SPIDER",
    "MONSTER_DESTROYER",
    "MONSTER_WARRIOR",
    "MONSTER_PLASMABOT",
    "MONSTER_ENDER",
    "MONSTER_TURRET",
    "MONSTER_EXPLODER"
  ]

propertyTypes = [
    "ELEVATOR",
    "SQUEEZER",
    "DOOR"
]

image = Image.open(sys.argv[1])
pixels = image.load()

palette = []
paletteInverse = [0 for i in range(256)]

x = 5
y = 69
i = 0

# load the palette/sca

for i in range(256):
  if i % 64 == 0:
    x = 5
    y += 1

  palette.append(pixels[(x,y)])

  paletteInverse[pixels[(x,y)]] = i

  x += 1

def getPixel(x,y):
  return paletteInverse[pixels[(x,y)]]

def loadTileDict(x,y):
  result = []

  for i in range(64):
    texture = getPixel(x + i,y + 31)

    if texture > 7:
      raise(Exception("Texture index can't be higher than 7."))

    height = 0

    for j in range(31):
      if getPixel(x + i,y + 30 - j) == 7:
        break

      height += 1

    result.append((texture,height))

  return result

def defineName(n):
  c = chr(ord("A") + n)
  return c + c

floorDict = loadTileDict(5,37)
ceilDict = loadTileDict(5,5)
floorColor = getPixel(41,122)
ceilColor = getPixel(41,118)
backgroundTex = getPixel(41,126)
doorTex = getPixel(41,130)
playerStart = [0,0,0]
textures = []
elements = []
defines = []

levelMap = [[(0,False) for i in range(64)] for j in range(64)]

# load the map

for y in range(64):
  for x in range(64):
    n = getPixel(70 + x,5 + y)

    if n < 64:
      levelMap[63 - x][y] = (n,False)
    else:
      # tile with special property, create a define for it

      prop = n / 64 - 1
      tile = n % 64

      defNum = -1

      for i in range(len(defines)):
        if defines[i] == (tile,prop):
          defNum = i
          break
      
      if defNum == -1: # not found:
        defNum = len(defines)
        defines.append((tile,prop))

      levelMap[63 - x][y] = (defNum,True)

# load elements

playerFound = False

for y in range(64):
  for x in range(64):
    n = getPixel(x + 70, y + 70)

    if n < len(elementTypes):
      elements.append((n,63 - x,y)) 
    elif n >= 240:
      if playerFound:
        raise(Exception("Multiple player starting positions specified."))

      playerStart = [63 - x,y,(n - 240) * 16]
      playerFound = True

if not playerFound:
  raise(Exception("Player starting position not specified."))

if len(elements) > 128:
  raise(Exception("More than 128 level elements."))

for i in range(128 - len(elements)):
  elements.append((0,0,0))

# load textures

x = 41
y = 114

for i in range(7):
  textures.append(getPixel(x,y))
  x += 4

def numAlign(n):
  return str(n) + "," + (" " if n < 10 else "")

def mapXScale():
  r = "    // "

  for i in range(64):
    r += str(i).ljust(2) + " "

  return r + "\n"

def printC():
  result = ""
  result += "  {          // level\n"
  result += "    {        // mapArray\n"
  result += "    #define o 0\n"

  for i in range(len(defines)):
    result += "    #define " + defineName(i) + " (" + str(defines[i][0]) + " | SFG_TILE_PROPERTY_" + propertyTypes[defines[i][1]] + ")\n"

  result += mapXScale()

  for y in range(64):
    result += "/*" + str(y).ljust(2) + "*/ "

    for x in range(64):
      item = levelMap[x][y]

      if not item[1]:
        result += ("o " if item[0] == 0 else str(item[0]).ljust(2))
      else:
        result += defineName(item[0])

      result += "," if y < 63 or x < 63 else " "

    result += " /*" + str(y).ljust(2) + "*/ \n"

  result += mapXScale()

  for i in range(len(defines)):
    result += "    #undef " + defineName(i) + "\n"

  result += "    #undef o\n"
  result += "    },\n"
  result += "    {        // tileDictionary\n      "

  for i in range(64):
    result += "SFG_TD(" + str(floorDict[i][1]).rjust(2) + "," + str(ceilDict[i][1]).rjust(2) + "," + str(floorDict[i][0]) + "," + str(ceilDict[i][0]) + ")"

    result += "," if i != 63 else " "

    if (i + 1) % 4 == 0:
      result += " // " + str(i - 3) + " \n      "

  result += "},                    // tileDictionary\n"

  s = ""
  first = True

  for t in textures:
    if first:
      first = False
    else:
      s += ","

    s += str(t).ljust(2)

  result += "    {" + s + "}, // textureIndices\n"
  result += "    " + numAlign(doorTex) + "                     // doorTextureIndex\n"
  result += "    " + numAlign(floorColor) + "                     // floorColor\n"
  result += "    " + numAlign(ceilColor) + "                     // ceilingColor\n"
  result += "    {" + str(playerStart[0]).ljust(2) + ", " + str(playerStart[1]).ljust(2) + ", " + str(playerStart[2]).ljust(3) + "},          // player start: x, y, direction\n"
  result += "    " + numAlign(backgroundTex) + "                     // backgroundImage\n"
  result += "    {                       // elements\n"

  even = True

  i = 0

  for e in elements:
    if even:
      result += "      "

    result += "{SFG_LEVEL_ELEMENT_" + elementTypes[e[0]] + ", {" + str(e[1]) + "," + str(e[2]) + "}}"

    if i < 127:
      result += ","

    if not even:
      result += "\n"

    even = not even

    i += 1

  result += "    }, // elements\n"
  result += "  } // level\n"

  print(result)

printC()
Raycastlib
raycastlib.h
#ifndef RAYCASTLIB_H
#define RAYCASTLIB_H

/**
  raycastlib (RCL) - Small C header-only raycasting library for embedded and
  low performance computers, such as Arduino. Only uses integer math and stdint
  standard library.

  Check the defines below to fine-tune accuracy vs performance! Don't forget
  to compile with optimizations.

  Before including the library define RCL_PIXEL_FUNCTION to the name of the
  function (with RCL_PixelFunction signature) that will render your pixels!

  - All public (and most private) library identifiers start with RCL_.
  - Game field's bottom left corner is at [0,0].
  - X axis goes right in the ground plane.
  - Y axis goes up in the ground plane.
  - Height means the Z (vertical) coordinate.
  - Each game square is RCL_UNITS_PER_SQUARE * RCL_UNITS_PER_SQUARE points.
  - Angles are in RCL_Units, 0 means pointing right (x+) and positively rotates
    clockwise. A full angle has RCL_UNITS_PER_SQUARE RCL_Units.
  - Most things are normalized with RCL_UNITS_PER_SQUARE (sin, cos, vector
    unit length, texture coordinates etc.).
  - Screen coordinates are normal: [0,0] = top left, x goes right, y goes down.

  author: Miloslav "drummyfish" Ciz
  license: CC0 1.0
  version: 0.908d

  Version numbering: major.minor[d], id 'd' is appended, this is a
  in-development version based on the previous stable major.minor version. Two
  'd' versions with the same version number, .e.g. 1.0d, may be different.
*/

#include <stdint.h>

#ifndef RCL_RAYCAST_TINY /** Turns on super efficient version of this library.
                             Only use if neccesarry, looks ugly. Also not done
                             yet. */
  #define RCL_UNITS_PER_SQUARE 1024 /**< Number of RCL_Units in a side of a
                                         spatial square. */
  typedef int32_t RCL_Unit; /**< Smallest spatial unit, there is
                                 RCL_UNITS_PER_SQUARE units in a square's
                                 length. This effectively serves the purpose of
                                 a fixed-point arithmetic. */
  #define RCL_INFINITY 2000000000
#else
  #define RCL_UNITS_PER_SQUARE 32
  typedef int16_t RCL_Unit;
  #define RCL_INFINITY 30000
  #define RCL_USE_DIST_APPROX 2
#endif

#ifndef RCL_COMPUTE_WALL_TEXCOORDS
#define RCL_COMPUTE_WALL_TEXCOORDS 1
#endif

#ifndef RCL_COMPUTE_FLOOR_TEXCOORDS
#define RCL_COMPUTE_FLOOR_TEXCOORDS 0
#endif

#ifndef RCL_FLOOR_TEXCOORDS_HEIGHT
#define RCL_FLOOR_TEXCOORDS_HEIGHT 0 /** If RCL_COMPUTE_FLOOR_TEXCOORDS == 1,
                                      this says for what height level the
                                      texture coords will be computed for
                                      (for simplicity/performance only one
                                      level is allowed). */
#endif

#ifndef RCL_USE_COS_LUT
#define RCL_USE_COS_LUT 0 /**< type of look up table for cos function:
                           0: none (compute)
                           1: 64 items
                           2: 128 items */
#endif

#ifndef RCL_USE_DIST_APPROX
#define RCL_USE_DIST_APPROX 0 /**< What distance approximation to use:
                            0: none (compute full Euclidean distance)
                            1: accurate approximation
                            2: octagonal approximation (LQ) */
#endif

#ifndef RCL_RECTILINEAR
#define RCL_RECTILINEAR 1 /**< Whether to use rectilinear perspective (normally
                              used), or curvilinear perspective (fish eye). */
#endif

#ifndef RCL_TEXTURE_VERTICAL_STRETCH
#define RCL_TEXTURE_VERTICAL_STRETCH 1 /**< Whether textures should be
                                       stretched to wall height (possibly
                                       slightly slower if on). */
#endif

#ifndef RCL_COMPUTE_FLOOR_DEPTH
#define RCL_COMPUTE_FLOOR_DEPTH 1 /**< Whether depth should be computed for
                                   floor pixels - turns this off if not
                                   needed. */
#endif

#ifndef RCL_COMPUTE_CEILING_DEPTH
#define RCL_COMPUTE_CEILING_DEPTH 1 /**< As RCL_COMPUTE_FLOOR_DEPTH but for
                                     ceiling. */
#endif

#ifndef RCL_ROLL_TEXTURE_COORDS
#define RCL_ROLL_TEXTURE_COORDS 1 /**< Says whether rolling doors should also
                                   roll the texture coordinates along (mostly
                                   desired for doors). */
#endif

#ifndef RCL_VERTICAL_FOV
#define RCL_VERTICAL_FOV (RCL_UNITS_PER_SQUARE / 3)
#endif

#define RCL_VERTICAL_FOV_TAN (RCL_VERTICAL_FOV * 4) ///< tan approximation

#ifndef RCL_HORIZONTAL_FOV
#define RCL_HORIZONTAL_FOV (RCL_UNITS_PER_SQUARE / 4)
#endif

#define RCL_HORIZONTAL_FOV_TAN (RCL_HORIZONTAL_FOV * 4)

#define RCL_HORIZONTAL_FOV_HALF (RCL_HORIZONTAL_FOV / 2)

#ifndef RCL_CAMERA_COLL_RADIUS
#define RCL_CAMERA_COLL_RADIUS RCL_UNITS_PER_SQUARE / 4
#endif

#ifndef RCL_CAMERA_COLL_HEIGHT_BELOW
#define RCL_CAMERA_COLL_HEIGHT_BELOW RCL_UNITS_PER_SQUARE
#endif 

#ifndef RCL_CAMERA_COLL_HEIGHT_ABOVE
#define RCL_CAMERA_COLL_HEIGHT_ABOVE (RCL_UNITS_PER_SQUARE / 3)
#endif

#ifndef RCL_CAMERA_COLL_STEP_HEIGHT
#define RCL_CAMERA_COLL_STEP_HEIGHT (RCL_UNITS_PER_SQUARE / 2)
#endif

#ifndef RCL_TEXTURE_INTERPOLATION_SCALE
  #define RCL_TEXTURE_INTERPOLATION_SCALE 1024 /**< This says scaling of fixed
                                             poit vertical texture coord
                                             computation. This should be power
                                             of two! Higher number can look more 
                                             accurate but may cause overflow. */
#endif

#define RCL_HORIZON_DEPTH (11 * RCL_UNITS_PER_SQUARE) /**< What depth the
                                                       horizon has (the floor
                                                       depth is only
                                                       approximated with the
                                                       help of this
                                                       constant). */
#ifndef RCL_VERTICAL_DEPTH_MULTIPLY
#define RCL_VERTICAL_DEPTH_MULTIPLY 2 /**< Defines a multiplier of height
                                       difference when approximating floor/ceil
                                       depth. */
#endif

#define RCL_min(a,b) ((a) < (b) ? (a) : (b))
#define RCL_max(a,b) ((a) > (b) ? (a) : (b))
#define RCL_nonZero(v) ((v) + ((v) == 0)) ///< To prevent zero divisions.
#define RCL_zeroClamp(x) ((x) * ((x) >= 0))
#define RCL_likely(cond)    __builtin_expect(!!(cond),1) 
#define RCL_unlikely(cond)  __builtin_expect(!!(cond),0) 

#define RCL_logV2D(v)\
  printf("[%d,%d]\n",v.x,v.y);

#define RCL_logRay(r){\
  printf("ray:\n");\
  printf("  start: ");\
  RCL_logV2D(r.start);\
  printf("  dir: ");\
  RCL_logV2D(r.direction);}

#define RCL_logHitResult(h){\
  printf("hit:\n");\
  printf("  square: ");\
  RCL_logV2D(h.square);\
  printf("  pos: ");\
  RCL_logV2D(h.position);\
  printf("  dist: %d\n", h.distance);\
  printf("  dir: %d\n", h.direction);\
  printf("  texcoord: %d\n", h.textureCoord);}

#define RCL_logPixelInfo(p){\
  printf("pixel:\n");\
  printf("  position: ");\
  RCL_logV2D(p.position);\
  printf("  texCoord: ");\
  RCL_logV2D(p.texCoords);\
  printf("  depth: %d\n", p.depth);\
  printf("  height: %d\n", p.height);\
  printf("  wall: %d\n", p.isWall);\
  printf("  hit: ");\
  RCL_logHitResult(p.hit);\
  }

#define RCL_logCamera(c){\
  printf("camera:\n");\
  printf("  position: ");\
  RCL_logV2D(c.position);\
  printf("  height: %d\n",c.height);\
  printf("  direction: %d\n",c.direction);\
  printf("  shear: %d\n",c.shear);\
  printf("  resolution: %d x %d\n",c.resolution.x,c.resolution.y);\
  }

/// Position in 2D space.
typedef struct
{
  RCL_Unit x;
  RCL_Unit y;
} RCL_Vector2D;

typedef struct
{
  RCL_Vector2D start;
  RCL_Vector2D direction;
} RCL_Ray;

typedef struct
{
  RCL_Unit     distance; /**< Distance to the hit position, or -1 if no
                              collision happened. If RCL_RECTILINEAR != 0, then
                              the distance is perpendicular to the projection
                              plane (fish eye correction), otherwise it is
                              the straight distance to the ray start
                              position. */
  uint8_t      direction;    /**< Direction of hit. The convention for angle
                                  units is explained above. */
  RCL_Unit     textureCoord; /**< Normalized (0 to RCL_UNITS_PER_SQUARE - 1)
                                  texture coordinate (horizontal). */
  RCL_Vector2D square;       ///< Collided square coordinates.
  RCL_Vector2D position;     ///< Exact collision position in RCL_Units.
  RCL_Unit     arrayValue;   /**  Value returned by array function (most often
                                  this will be the floor height). */
  RCL_Unit     type;         /**< Integer identifying type of square (number
                                  returned by type function, e.g. texture
                                  index).*/
  RCL_Unit     doorRoll;     ///< Holds value of door roll.
} RCL_HitResult;

typedef struct
{
  RCL_Vector2D position;
  RCL_Unit     direction;  // TODO: rename to "angle" to keep consistency
  RCL_Vector2D resolution;
  int16_t      shear; /**< Shear offset in pixels (0 => no shear), can simulate
                           looking up/down. */
  RCL_Unit     height;
} RCL_Camera;

/**
  Holds an information about a single rendered pixel (for a pixel function
  that works as a fragment shader).
*/
typedef struct
{
  RCL_Vector2D  position;  ///< On-screen position.
  int8_t        isWall;    ///< Whether the pixel is a wall or a floor/ceiling.
  int8_t        isFloor;   ///< Whether the pixel is floor or ceiling.
  int8_t        isHorizon; ///< If the pixel belongs to horizon segment.
  RCL_Unit      depth;     ///< Corrected depth.
  RCL_Unit      wallHeight;///< Only for wall pixels, says its height.
  RCL_Unit      height;    ///< World height (mostly for floor).
  RCL_HitResult hit;       ///< Corresponding ray hit.
  RCL_Vector2D  texCoords; /**< Normalized (0 to RCL_UNITS_PER_SQUARE - 1)
                                texture coordinates. */
} RCL_PixelInfo;

void RCL_PIXEL_FUNCTION (RCL_PixelInfo *pixel);

typedef struct
{
  uint16_t maxHits;
  uint16_t maxSteps;
} RCL_RayConstraints;

/**
  Function used to retrieve some information about cells of the rendered scene.
  It should return a characteristic of given square as an integer (e.g. square
  height, texture index, ...) - between squares that return different numbers
  there is considered to be a collision.

  This function should be as fast as possible as it will typically be called
  very often.
*/ 
typedef RCL_Unit (*RCL_ArrayFunction)(int16_t x, int16_t y);
/*
  TODO: maybe array functions should be replaced by defines of funtion names
  like with pixelFunc? Could be more efficient than function pointers.
*/

/**
  Function that renders a single pixel at the display. It is handed an info
  about the pixel it should draw.

  This function should be as fast as possible as it will typically be called
  very often.
*/
typedef void (*RCL_PixelFunction)(RCL_PixelInfo *info);

typedef void
  (*RCL_ColumnFunction)(RCL_HitResult *hits, uint16_t hitCount, uint16_t x,
   RCL_Ray ray);

/**
  Simple-interface function to cast a single ray.

  @return          The first collision result.
*/
RCL_HitResult RCL_castRay(RCL_Ray ray, RCL_ArrayFunction arrayFunc);

/**
  Casts a 3D ray in 3D environment with floor and optional ceiling
  (ceilingHeightFunc can be 0). This can be useful for hitscan shooting,
  visibility checking etc.

  @return normalized ditance (0 to RCL_UNITS_PER_SQUARE) along the ray at which
          the environment was hit, RCL_UNITS_PER_SQUARE means nothing was hit
*/
RCL_Unit RCL_castRay3D(
  RCL_Vector2D pos1, RCL_Unit height1, RCL_Vector2D pos2, RCL_Unit height2,
  RCL_ArrayFunction floorHeightFunc, RCL_ArrayFunction ceilingHeightFunc,
  RCL_RayConstraints constraints);

/**
  Maps a single point in the world to the screen (2D position + depth).
*/
RCL_PixelInfo RCL_mapToScreen(RCL_Vector2D worldPosition, RCL_Unit height,
  RCL_Camera camera);

/**
  Casts a single ray and returns a list of collisions.

  @param ray ray to be cast, if RCL_RECTILINEAR != 0 then the computed hit
         distance is divided by the ray direction vector length (to correct
         the fish eye effect)
  @param arrayFunc function that will be used to determine collisions (hits)
         with the ray (squares for which this function returns different values
         are considered to have a collision between them), this will typically
         be a function returning floor height
  @param typeFunc optional (can be 0) function - if provided, it will be used
         to mark the hit result with the number returned by this function
         (it can be e.g. a texture index)
  @param hitResults array in which the hit results will be stored (has to be
         preallocated with at space for at least as many hit results as
         maxHits specified with the constraints parameter)
  @param hitResultsLen in this variable the number of hit results will be
         returned
  @param constraints specifies constraints for the ray cast
*/
void RCL_castRayMultiHit(RCL_Ray ray, RCL_ArrayFunction arrayFunc,
  RCL_ArrayFunction typeFunc, RCL_HitResult *hitResults,
  uint16_t *hitResultsLen, RCL_RayConstraints constraints);

RCL_Vector2D RCL_angleToDirection(RCL_Unit angle);

/**
Cos function.

@param  input to cos in RCL_Units (RCL_UNITS_PER_SQUARE = 2 * pi = 360 degrees)
@return RCL_normalized output in RCL_Units (from -RCL_UNITS_PER_SQUARE to
        RCL_UNITS_PER_SQUARE)
*/
RCL_Unit RCL_cos(RCL_Unit input);

RCL_Unit RCL_sin(RCL_Unit input);

RCL_Unit RCL_tan(RCL_Unit input);

RCL_Unit RCL_ctg(RCL_Unit input);

/// Normalizes given vector to have RCL_UNITS_PER_SQUARE length.
RCL_Vector2D RCL_normalize(RCL_Vector2D v);

/// Computes a cos of an angle between two vectors.
RCL_Unit RCL_vectorsAngleCos(RCL_Vector2D v1, RCL_Vector2D v2);

uint16_t RCL_sqrt(RCL_Unit value);
RCL_Unit RCL_dist(RCL_Vector2D p1, RCL_Vector2D p2);
RCL_Unit RCL_len(RCL_Vector2D v);

/**
  Converts an angle in whole degrees to an angle in RCL_Units that this library
  uses.
*/   
RCL_Unit RCL_degreesToUnitsAngle(int16_t degrees);

///< Computes the change in size of an object due to perspective (vertical FOV).
RCL_Unit RCL_perspectiveScaleVertical(RCL_Unit originalSize, RCL_Unit distance);

RCL_Unit RCL_perspectiveScaleVerticalInverse(RCL_Unit originalSize,
  RCL_Unit scaledSize);

RCL_Unit
  RCL_perspectiveScaleHorizontal(RCL_Unit originalSize, RCL_Unit distance);

RCL_Unit RCL_perspectiveScaleHorizontalInverse(RCL_Unit originalSize,
  RCL_Unit scaledSize);

/**
  Casts rays for given camera view and for each hit calls a user provided
  function.
*/
void RCL_castRaysMultiHit(RCL_Camera cam, RCL_ArrayFunction arrayFunc,
  RCL_ArrayFunction typeFunction, RCL_ColumnFunction columnFunc,
  RCL_RayConstraints constraints);

/**
  Using provided functions, renders a complete complex (multilevel) camera
  view.

  This function should render each screen pixel exactly once.

  function rendering summary:
  - performance:            slower
  - accuracy:               higher
  - wall textures:          yes
  - different wall heights: yes
  - floor/ceiling textures: no
  - floor geometry:         yes, multilevel
  - ceiling geometry:       yes (optional), multilevel
  - rolling door:           no
  - camera shearing:        yes
  - rendering order:        left-to-right, not specifically ordered vertically

  @param cam camera whose view to render
  @param floorHeightFunc function that returns floor height (in RCL_Units)
  @param ceilingHeightFunc same as floorHeightFunc but for ceiling, can also be
                           0 (no ceiling will be rendered)
  @param typeFunction function that says a type of square (e.g. its texture
                     index), can be 0 (no type in hit result)
  @param pixelFunc callback function to draw a single pixel on screen
  @param constraints constraints for each cast ray
*/
void RCL_renderComplex(RCL_Camera cam, RCL_ArrayFunction floorHeightFunc,
  RCL_ArrayFunction ceilingHeightFunc, RCL_ArrayFunction typeFunction,
  RCL_RayConstraints constraints);

/**
  Renders given camera view, with help of provided functions. This function is
  simpler and faster than RCL_renderComplex(...) and is meant to be rendering
  flat levels.

  function rendering summary:
  - performance:            faster
  - accuracy:               lower
  - wall textures:          yes
  - different wall heights: yes
  - floor/ceiling textures: yes (only floor, you can mirror it for ceiling)
  - floor geometry:         no (just flat floor, with depth information)
  - ceiling geometry:       no (just flat ceiling, with depth information)
  - rolling door:           yes
  - camera shearing:        no
  - rendering order:        left-to-right, top-to-bottom

  Additionally this function supports rendering rolling doors.

  This function should render each screen pixel exactly once.

  @param rollFunc function that for given square says its door roll in
         RCL_Units (0 = no roll, RCL_UNITS_PER_SQUARE = full roll right,
         -RCL_UNITS_PER_SQUARE = full roll left), can be zero (no rolling door,
         rendering should also be faster as fewer intersections will be tested)
*/
void RCL_renderSimple(RCL_Camera cam, RCL_ArrayFunction floorHeightFunc,
  RCL_ArrayFunction typeFunc, RCL_ArrayFunction rollFunc,
  RCL_RayConstraints constraints);

/**
  Function that moves given camera and makes it collide with walls and
  potentially also floor and ceilings. It's meant to help implement player
  movement.

  @param camera camera to move
  @param planeOffset offset to move the camera in
  @param heightOffset height offset to move the camera in
  @param floorHeightFunc function used to retrieve the floor height
  @param ceilingHeightFunc function for retrieving ceiling height, can be 0
                           (camera won't collide with ceiling)
  @param computeHeight whether to compute height - if false (0), floor and
                       ceiling functions won't be used and the camera will
                       only collide horizontally with walls (good for simpler
                       game, also faster)
  @param force if true, forces to recompute collision even if position doesn't
               change
*/
void RCL_moveCameraWithCollision(RCL_Camera *camera, RCL_Vector2D planeOffset,
  RCL_Unit heightOffset, RCL_ArrayFunction floorHeightFunc,
  RCL_ArrayFunction ceilingHeightFunc, int8_t computeHeight, int8_t force);

void RCL_initCamera(RCL_Camera *camera);
void RCL_initRayConstraints(RCL_RayConstraints *constraints);

//=============================================================================
// privates

#define _RCL_UNUSED(what) (void)(what);

// global helper variables, for precomputing stuff etc.
RCL_Camera _RCL_camera;
RCL_Unit _RCL_horizontalDepthStep = 0; 
RCL_Unit _RCL_startFloorHeight = 0;
RCL_Unit _RCL_startCeil_Height = 0;
RCL_Unit _RCL_camResYLimit = 0;
RCL_Unit _RCL_middleRow = 0;
RCL_ArrayFunction _RCL_floorFunction = 0;
RCL_ArrayFunction _RCL_ceilFunction = 0;
RCL_Unit _RCL_fHorizontalDepthStart = 0;
RCL_Unit _RCL_cHorizontalDepthStart = 0;
int16_t _RCL_cameraHeightScreen = 0;
RCL_ArrayFunction _RCL_rollFunction = 0; // says door rolling
RCL_Unit *_RCL_floorPixelDistances = 0;
RCL_Unit _RCL_fovCorrectionFactors[2] = {0,0}; //correction for hor/vert fov

RCL_Unit RCL_clamp(RCL_Unit value, RCL_Unit valueMin, RCL_Unit valueMax)
{
  if (value >= valueMin)
  {
    if (value <= valueMax)
      return value;
    else
      return valueMax;
  }
  else
    return valueMin;
}

static inline RCL_Unit RCL_abs(RCL_Unit value)
{
  return value * (((value >= 0) << 1) - 1);
}

/// Like mod, but behaves differently for negative values.
static inline RCL_Unit RCL_wrap(RCL_Unit value, RCL_Unit mod)
{
  RCL_Unit cmp = value < 0;
  return cmp * mod + (value % mod) - cmp;
}

/// Performs division, rounding down, NOT towards zero.
static inline RCL_Unit RCL_divRoundDown(RCL_Unit value, RCL_Unit divisor)
{
  return value / divisor - ((value >= 0) ? 0 : 1);
}

// Bhaskara's cosine approximation formula
#define trigHelper(x) (((RCL_Unit) RCL_UNITS_PER_SQUARE) *\
  (RCL_UNITS_PER_SQUARE / 2 * RCL_UNITS_PER_SQUARE / 2 - 4 * (x) * (x)) /\
  (RCL_UNITS_PER_SQUARE / 2 * RCL_UNITS_PER_SQUARE / 2 + (x) * (x)))

#if RCL_USE_COS_LUT == 1

  #ifdef RCL_RAYCAST_TINY
  const RCL_Unit cosLUT[64] =
  {
    16,14,11,6,0,-6,-11,-14,-15,-14,-11,-6,0,6,11,14
  };
  #else
  const RCL_Unit cosLUT[64] =
  {
    1024,1019,1004,979,946,903,851,791,724,649,568,482,391,297,199,100,0,-100,
    -199,-297,-391,-482,-568,-649,-724,-791,-851,-903,-946,-979,-1004,-1019,
    -1023,-1019,-1004,-979,-946,-903,-851,-791,-724,-649,-568,-482,-391,-297,
    -199,-100,0,100,199,297,391,482,568,649,724,791,851,903,946,979,1004,1019
  };
  #endif

#elif RCL_USE_COS_LUT == 2
const RCL_Unit cosLUT[128] =
{
  1024,1022,1019,1012,1004,993,979,964,946,925,903,878,851,822,791,758,724,
  687,649,609,568,526,482,437,391,344,297,248,199,150,100,50,0,-50,-100,-150,
  -199,-248,-297,-344,-391,-437,-482,-526,-568,-609,-649,-687,-724,-758,-791,
  -822,-851,-878,-903,-925,-946,-964,-979,-993,-1004,-1012,-1019,-1022,-1023,
  -1022,-1019,-1012,-1004,-993,-979,-964,-946,-925,-903,-878,-851,-822,-791,
  -758,-724,-687,-649,-609,-568,-526,-482,-437,-391,-344,-297,-248,-199,-150,
  -100,-50,0,50,100,150,199,248,297,344,391,437,482,526,568,609,649,687,724,
  758,791,822,851,878,903,925,946,964,979,993,1004,1012,1019,1022
};
#endif

RCL_Unit RCL_cos(RCL_Unit input)
{
  input = RCL_wrap(input,RCL_UNITS_PER_SQUARE);

#if RCL_USE_COS_LUT == 1

  #ifdef RCL_RAYCAST_TINY
    return cosLUT[input];
  #else
    return cosLUT[input / 16];
  #endif

#elif RCL_USE_COS_LUT == 2
  return cosLUT[input / 8];
#else
  if (input < RCL_UNITS_PER_SQUARE / 4)
    return trigHelper(input);
  else if (input < RCL_UNITS_PER_SQUARE / 2)
    return -1 * trigHelper(RCL_UNITS_PER_SQUARE / 2 - input);
  else if (input < 3 * RCL_UNITS_PER_SQUARE / 4)
    return -1 * trigHelper(input - RCL_UNITS_PER_SQUARE / 2);
  else
    return trigHelper(RCL_UNITS_PER_SQUARE - input);
#endif
}

#undef trigHelper

RCL_Unit RCL_sin(RCL_Unit input)
{
  return RCL_cos(input - RCL_UNITS_PER_SQUARE / 4);
}

RCL_Unit RCL_tan(RCL_Unit input)
{
  return (RCL_sin(input) * RCL_UNITS_PER_SQUARE) / RCL_nonZero(RCL_cos(input)
);

  return (RCL_sin(input) * RCL_UNITS_PER_SQUARE) / RCL_nonZero(RCL_cos(input));
}

RCL_Unit RCL_ctg(RCL_Unit input)
{
  return (RCL_cos(input) * RCL_UNITS_PER_SQUARE) / RCL_sin(input);
}

RCL_Vector2D RCL_angleToDirection(RCL_Unit angle)
{
  RCL_Vector2D result;

  result.x = RCL_cos(angle);
  result.y = -1 * RCL_sin(angle);

  return result;
}

uint16_t RCL_sqrt(RCL_Unit value)
{
#ifdef RCL_RAYCAST_TINY
  uint16_t result = 0;
  uint16_t a = value;
  uint16_t b = 1u << 14;
#else
  uint32_t result = 0;
  uint32_t a = value;
  uint32_t b = 1u << 30;
#endif

  while (b > a)
    b >>= 2;

  while (b != 0)
  {
    if (a >= result + b)
    {
      a -= result + b;
      result = result +  2 * b;
    }

    b >>= 2;
    result >>= 1;
  }

  return result;
}

RCL_Unit RCL_dist(RCL_Vector2D p1, RCL_Vector2D p2)
{
  RCL_Unit dx = p2.x - p1.x;
  RCL_Unit dy = p2.y - p1.y;

#if RCL_USE_DIST_APPROX == 2
  // octagonal approximation

  dx = RCL_abs(dx);
  dy = RCL_abs(dy);

  return dy > dx ? dx / 2 + dy : dy / 2 + dx;
#elif RCL_USE_DIST_APPROX == 1
  // more accurate approximation

  RCL_Unit a, b, result;

  dx = ((dx < 0) * 2 - 1) * dx;
  dy = ((dy < 0) * 2 - 1) * dy;

  if (dx < dy)
  {
     a = dy;
     b = dx;
  }
  else
  {
     a = dx;
     b = dy;
  }

  result = a + (44 * b) / 102;

  if (a < (b << 4))
    result -= (5 * a) / 128;

  return result;
#else
  dx = dx * dx;
  dy = dy * dy;

  return RCL_sqrt((RCL_Unit) (dx + dy));
#endif
}

RCL_Unit RCL_len(RCL_Vector2D v)
{
  RCL_Vector2D zero;
  zero.x = 0;
  zero.y = 0;

  return RCL_dist(zero,v);
}

static inline int8_t RCL_pointIsLeftOfRay(RCL_Vector2D point, RCL_Ray ray)
{
  RCL_Unit dX    = point.x - ray.start.x;
  RCL_Unit dY    = point.y - ray.start.y;
  return (ray.direction.x * dY - ray.direction.y * dX) > 0;
         // ^ Z component of cross-product
}

void RCL_castRayMultiHit(RCL_Ray ray, RCL_ArrayFunction arrayFunc,
  RCL_ArrayFunction typeFunc, RCL_HitResult *hitResults,
  uint16_t *hitResultsLen, RCL_RayConstraints constraints)
{
  RCL_Vector2D currentPos = ray.start;
  RCL_Vector2D currentSquare;

  currentSquare.x = RCL_divRoundDown(ray.start.x,RCL_UNITS_PER_SQUARE);
  currentSquare.y = RCL_divRoundDown(ray.start.y,RCL_UNITS_PER_SQUARE);

  *hitResultsLen = 0;

  RCL_Unit squareType = arrayFunc(currentSquare.x,currentSquare.y);

  // DDA variables
  RCL_Vector2D nextSideDist; // dist. from start to the next side in given axis
  RCL_Vector2D delta;
  RCL_Vector2D step;         // -1 or 1 for each axis
  int8_t stepHorizontal = 0; // whether the last step was hor. or vert.

  nextSideDist.x = 0;
  nextSideDist.y = 0;

  RCL_Unit dirVecLengthNorm = RCL_len(ray.direction) * RCL_UNITS_PER_SQUARE;

  delta.x = RCL_abs(dirVecLengthNorm / RCL_nonZero(ray.direction.x));
  delta.y = RCL_abs(dirVecLengthNorm / RCL_nonZero(ray.direction.y));

  // init DDA

  if (ray.direction.x < 0)
  {
    step.x = -1;
    nextSideDist.x = (RCL_wrap(ray.start.x,RCL_UNITS_PER_SQUARE) * delta.x) /
                       RCL_UNITS_PER_SQUARE;
  }
  else
  {
    step.x = 1;
    nextSideDist.x =
      ((RCL_wrap(RCL_UNITS_PER_SQUARE - ray.start.x,RCL_UNITS_PER_SQUARE)) *
        delta.x) / RCL_UNITS_PER_SQUARE;
  }

  if (ray.direction.y < 0)
  {
    step.y = -1;
    nextSideDist.y = (RCL_wrap(ray.start.y,RCL_UNITS_PER_SQUARE) * delta.y) /
                       RCL_UNITS_PER_SQUARE;
  }
  else
  {
    step.y = 1;
    nextSideDist.y =
      ((RCL_wrap(RCL_UNITS_PER_SQUARE - ray.start.y,RCL_UNITS_PER_SQUARE)) *
        delta.y) / RCL_UNITS_PER_SQUARE;
  }

  // DDA loop

  #define RECIP_SCALE 65536

  RCL_Unit rayDirXRecip = RECIP_SCALE / RCL_nonZero(ray.direction.x);
  RCL_Unit rayDirYRecip = RECIP_SCALE / RCL_nonZero(ray.direction.y);
  // ^ we precompute reciprocals to avoid divisions in the loop

  for (uint16_t i = 0; i < constraints.maxSteps; ++i)
  {
    RCL_Unit currentType = arrayFunc(currentSquare.x,currentSquare.y);

    if (RCL_unlikely(currentType != squareType))
    {
      // collision

      RCL_HitResult h;

      h.arrayValue = currentType;
      h.doorRoll = 0;
      h.position = currentPos;
      h.square   = currentSquare;

      if (stepHorizontal)
      {
        h.position.x = currentSquare.x * RCL_UNITS_PER_SQUARE;
        h.direction = 3;

        if (step.x == -1)
        {
          h.direction = 1;
          h.position.x += RCL_UNITS_PER_SQUARE;
        }

        RCL_Unit diff = h.position.x - ray.start.x;

        h.position.y = // avoid division by multiplying with reciprocal
          ray.start.y + (ray.direction.y * diff * rayDirXRecip) / RECIP_SCALE;

#if RCL_RECTILINEAR
        /* Here we compute the fish eye corrected distance (perpendicular to
        the projection plane) as the Euclidean distance (of hit from camera
        position) divided by the length of the ray direction vector. This can
        be computed without actually computing Euclidean distances as a
        hypothenuse A (distance) divided by hypothenuse B (length) is equal to
        leg A (distance along principal axis) divided by leg B (length along
        the same principal axis). */

#define CORRECT(dir1,dir2)\
  RCL_Unit tmp = diff / 4;        /* 4 to prevent overflow */ \
  h.distance = ((tmp / 8) != 0) ? /* prevent a bug with small dists */ \
    ((tmp * RCL_UNITS_PER_SQUARE * rayDir ## dir1 ## Recip) / (RECIP_SCALE / 4)):\
    RCL_abs(h.position.dir2 - ray.start.dir2);

        CORRECT(X,y)

#endif // RCL_RECTILINEAR
      }
      else
      {
        h.position.y = currentSquare.y * RCL_UNITS_PER_SQUARE;
        h.direction = 2;

        if (step.y == -1)
        {
          h.direction = 0;
          h.position.y += RCL_UNITS_PER_SQUARE;
        }

        RCL_Unit diff = h.position.y - ray.start.y;

        h.position.x =
          ray.start.x + (ray.direction.x * diff * rayDirYRecip) / RECIP_SCALE;

#if RCL_RECTILINEAR

        CORRECT(Y,x) // same as above but for different axis

#undef CORRECT

#endif // RCL_RECTILINEAR
      }

#if !RCL_RECTILINEAR
      h.distance = RCL_dist(h.position,ray.start);
#endif
      if (typeFunc != 0)
        h.type = typeFunc(currentSquare.x,currentSquare.y);

#if RCL_COMPUTE_WALL_TEXCOORDS == 1
      switch (h.direction)
      {
        case 0: h.textureCoord =
          RCL_wrap(-1 * h.position.x,RCL_UNITS_PER_SQUARE); break;

        case 1: h.textureCoord =
          RCL_wrap(h.position.y,RCL_UNITS_PER_SQUARE); break;

        case 2: h.textureCoord =
          RCL_wrap(h.position.x,RCL_UNITS_PER_SQUARE); break;

        case 3: h.textureCoord =
          RCL_wrap(-1 * h.position.y,RCL_UNITS_PER_SQUARE); break;

        default: h.textureCoord = 0; break;
      }

      if (_RCL_rollFunction != 0)
      {
        h.doorRoll = _RCL_rollFunction(currentSquare.x,currentSquare.y);
        
        if (h.direction == 0 || h.direction == 1)
          h.doorRoll *= -1;
      }

#else
      h.textureCoord = 0;
#endif

      hitResults[*hitResultsLen] = h;

      *hitResultsLen += 1;

      squareType = currentType;

      if (*hitResultsLen >= constraints.maxHits)
        break;
    }

    // DDA step

    if (nextSideDist.x < nextSideDist.y)
    {
      nextSideDist.x += delta.x;
      currentSquare.x += step.x;
      stepHorizontal = 1;
    }
    else
    {
      nextSideDist.y += delta.y;
      currentSquare.y += step.y;
      stepHorizontal = 0;
    }
  }
}

RCL_HitResult RCL_castRay(RCL_Ray ray, RCL_ArrayFunction arrayFunc)
{
  RCL_HitResult result;
  uint16_t len;
  RCL_RayConstraints c;

  c.maxSteps = 1000;
  c.maxHits = 1;

  RCL_castRayMultiHit(ray,arrayFunc,0,&result,&len,c);

  if (len == 0)
    result.distance = -1;

  return result;
}

void RCL_castRaysMultiHit(RCL_Camera cam, RCL_ArrayFunction arrayFunc,
  RCL_ArrayFunction typeFunction, RCL_ColumnFunction columnFunc,
  RCL_RayConstraints constraints)
{
  RCL_Vector2D dir1 =
    RCL_angleToDirection(cam.direction - RCL_HORIZONTAL_FOV_HALF);

  RCL_Vector2D dir2 =
    RCL_angleToDirection(cam.direction + RCL_HORIZONTAL_FOV_HALF);

  /* We scale the side distances so that the middle one is
     RCL_UNITS_PER_SQUARE, which has to be this way. */

  RCL_Unit cos = RCL_nonZero(RCL_cos(RCL_HORIZONTAL_FOV_HALF));

  dir1.x = (dir1.x * RCL_UNITS_PER_SQUARE) / cos;
  dir1.y = (dir1.y * RCL_UNITS_PER_SQUARE) / cos;

  dir2.x = (dir2.x * RCL_UNITS_PER_SQUARE) / cos;
  dir2.y = (dir2.y * RCL_UNITS_PER_SQUARE) / cos;

  RCL_Unit dX = dir2.x - dir1.x;
  RCL_Unit dY = dir2.y - dir1.y;

  RCL_HitResult hits[constraints.maxHits];
  uint16_t hitCount;

  RCL_Ray r;
  r.start = cam.position;

  RCL_Unit currentDX = 0;
  RCL_Unit currentDY = 0;

  for (int16_t i = 0; i < cam.resolution.x; ++i)
  {
    /* Here by linearly interpolating the direction vector its length changes,
    which in result achieves correcting the fish eye effect (computing
    perpendicular distance). */

    r.direction.x = dir1.x + currentDX / cam.resolution.x;
    r.direction.y = dir1.y + currentDY / cam.resolution.x;

    RCL_castRayMultiHit(r,arrayFunc,typeFunction,hits,&hitCount,constraints);

    columnFunc(hits,hitCount,i,r);

    currentDX += dX;
    currentDY += dY;
  }
}

/**
  Helper function that determines intersection with both ceiling and floor.
*/
RCL_Unit _RCL_floorCeilFunction(int16_t x, int16_t y)
{
  RCL_Unit f = _RCL_floorFunction(x,y);

  if (_RCL_ceilFunction == 0)
    return f;

  RCL_Unit c = _RCL_ceilFunction(x,y);

#ifndef RCL_RAYCAST_TINY
  return ((f & 0x0000ffff) << 16) | (c & 0x0000ffff);
#else
  return ((f & 0x00ff) << 8) | (c & 0x00ff);
#endif
}

RCL_Unit _floorHeightNotZeroFunction(int16_t x, int16_t y)
{
  return _RCL_floorFunction(x,y) == 0 ? 0 :
    RCL_nonZero((x & 0x00FF) | ((y & 0x00FF) << 8));
    // ^ this makes collisions between all squares - needed for rolling doors
}

RCL_Unit RCL_adjustDistance(RCL_Unit distance, RCL_Camera *camera,
  RCL_Ray *ray)
{
  /* FIXME/TODO: The adjusted (=orthogonal, camera-space) distance could
     possibly be computed more efficiently by not computing Euclidean
     distance at all, but rather compute the distance of the collision
     point from the projection plane (line). */

  RCL_Unit result =
    (distance *
     RCL_vectorsAngleCos(RCL_angleToDirection(camera->direction),
     ray->direction)) / RCL_UNITS_PER_SQUARE;

  return RCL_nonZero(result);
      // ^ prevent division by zero
}

/// Helper for drawing floor or ceiling. Returns the last drawn pixel position.
static inline int16_t _RCL_drawHorizontalColumn(
  RCL_Unit yCurrent,
  RCL_Unit yTo,
  RCL_Unit limit1, // TODO: int16_t?
  RCL_Unit limit2,
  RCL_Unit verticalOffset,
  int16_t increment,
  int8_t computeDepth,
  int8_t computeCoords,
  int16_t depthIncrementMultiplier,
  RCL_Ray *ray,
  RCL_PixelInfo *pixelInfo
)
{
  _RCL_UNUSED(ray);

  RCL_Unit depthIncrement;
  RCL_Unit dx;
  RCL_Unit dy;

  pixelInfo->isWall = 0;

  int16_t limit = RCL_clamp(yTo,limit1,limit2);

  RCL_Unit depth = 0; /* TODO: this is for clamping depth to 0 so that we don't
                         have negative depths, but we should do it more
                         elegantly and efficiently */

  _RCL_UNUSED(depth);

  /* for performance reasons have different version of the critical loop
     to be able to branch early */
  #define loop(doDepth,doCoords)\
  {\
    if (doDepth) /*constant condition - compiler should optimize it out*/\
    {\
      depth = pixelInfo->depth + RCL_abs(verticalOffset) *\
        RCL_VERTICAL_DEPTH_MULTIPLY;\
      depthIncrement = depthIncrementMultiplier *\
        _RCL_horizontalDepthStep;\
    }\
    if (doCoords) /*constant condition - compiler should optimize it out*/\
    {\
      dx = pixelInfo->hit.position.x - _RCL_camera.position.x;\
      dy = pixelInfo->hit.position.y - _RCL_camera.position.y;\
    }\
    for (int16_t i = yCurrent + increment;\
         increment == -1 ? i >= limit : i <= limit; /* TODO: is efficient? */\
         i += increment)\
    {\
      pixelInfo->position.y = i;\
      if (doDepth)  /*constant condition - compiler should optimize it out*/\
      {\
        depth += depthIncrement;\
        pixelInfo->depth = RCL_zeroClamp(depth); \
        /* ^ int comparison is fast, it is not braching! (= test instr.) */\
      }\
      if (doCoords) /*constant condition - compiler should optimize it out*/\
      {\
        RCL_Unit d = _RCL_floorPixelDistances[i];\
        RCL_Unit d2 = RCL_nonZero(pixelInfo->hit.distance);\
        pixelInfo->texCoords.x =\
          _RCL_camera.position.x + ((d * dx) / d2);\
        pixelInfo->texCoords.y =\
          _RCL_camera.position.y + ((d * dy) / d2);\
      }\
      RCL_PIXEL_FUNCTION(pixelInfo);\
    }\
  }

  if (computeDepth) // branch early
  {
    if (!computeCoords)
      loop(1,0)
    else
      loop(1,1)
  }
  else
  {
    if (!computeCoords)
      loop(0,0)
    else
      loop(1,1)
  }

  #undef loop

  return limit;
}

/// Helper for drawing walls. Returns the last drawn pixel position.
static inline int16_t _RCL_drawWall(
  RCL_Unit yCurrent,
  RCL_Unit yFrom,
  RCL_Unit yTo,
  RCL_Unit limit1, // TODO: int16_t?
  RCL_Unit limit2,
  RCL_Unit height,
  int16_t increment,
  RCL_PixelInfo *pixelInfo
  )
{
  _RCL_UNUSED(height)

  height = RCL_abs(height);

  pixelInfo->isWall = 1;

  RCL_Unit limit = RCL_clamp(yTo,limit1,limit2);

  RCL_Unit wallLength = RCL_nonZero(RCL_abs(yTo - yFrom - 1));

  RCL_Unit wallPosition = RCL_abs(yFrom - yCurrent) - increment;

  RCL_Unit heightScaled = height * RCL_TEXTURE_INTERPOLATION_SCALE;
  _RCL_UNUSED(heightScaled);

  RCL_Unit coordStepScaled = RCL_COMPUTE_WALL_TEXCOORDS ?
#if RCL_TEXTURE_VERTICAL_STRETCH == 1
    ((RCL_UNITS_PER_SQUARE * RCL_TEXTURE_INTERPOLATION_SCALE) / wallLength)
#else
    (heightScaled / wallLength)
#endif
    : 0;

  pixelInfo->texCoords.y = RCL_COMPUTE_WALL_TEXCOORDS ?
    (wallPosition * coordStepScaled) : 0;

  if (increment < 0)
  {
    coordStepScaled *= -1;
    pixelInfo->texCoords.y =
#if RCL_TEXTURE_VERTICAL_STRETCH == 1
      (RCL_UNITS_PER_SQUARE * RCL_TEXTURE_INTERPOLATION_SCALE)
      - pixelInfo->texCoords.y;
#else
      heightScaled - pixelInfo->texCoords.y;
#endif
  }
  else
  {
    // with floor wall, don't start under 0
    pixelInfo->texCoords.y = RCL_zeroClamp(pixelInfo->texCoords.y);
  }

  RCL_Unit textureCoordScaled = pixelInfo->texCoords.y;

  for (RCL_Unit i = yCurrent + increment; 
       increment == -1 ? i >= limit : i <= limit; // TODO: is efficient?
       i += increment)
  {
    pixelInfo->position.y = i;

#if RCL_COMPUTE_WALL_TEXCOORDS == 1
    pixelInfo->texCoords.y =
      textureCoordScaled / RCL_TEXTURE_INTERPOLATION_SCALE;

    textureCoordScaled += coordStepScaled;
#endif

    RCL_PIXEL_FUNCTION(pixelInfo);
  }

  return limit;
}

/// Fills a RCL_HitResult struct with info for a hit at infinity.
static inline void _RCL_makeInfiniteHit(RCL_HitResult *hit, RCL_Ray *ray)
{
  hit->distance = RCL_UNITS_PER_SQUARE * RCL_UNITS_PER_SQUARE;
  /* ^ horizon is at infinity, but we can't use too big infinity
       (RCL_INFINITY) because it would overflow in the following mult. */
  hit->position.x = (ray->direction.x * hit->distance) / RCL_UNITS_PER_SQUARE;
  hit->position.y = (ray->direction.y * hit->distance) / RCL_UNITS_PER_SQUARE;

  hit->direction = 0;
  hit->textureCoord = 0;
  hit->arrayValue = 0;
  hit->doorRoll = 0;
  hit->type = 0;
}

void _RCL_columnFunctionComplex(RCL_HitResult *hits, uint16_t hitCount, uint16_t x,
  RCL_Ray ray)
{
  // last written Y position, can never go backwards
  RCL_Unit fPosY = _RCL_camera.resolution.y;
  RCL_Unit cPosY = -1;

  // world coordinates (relative to camera height though)
  RCL_Unit fZ1World = _RCL_startFloorHeight;
  RCL_Unit cZ1World = _RCL_startCeil_Height;

  RCL_PixelInfo p;
  p.position.x = x;
  p.height = 0;
  p.wallHeight = 0;
  p.texCoords.x = 0;
  p.texCoords.y = 0;

  // we'll be simulatenously drawing the floor and the ceiling now  
  for (RCL_Unit j = 0; j <= hitCount; ++j)
  {                    // ^ = add extra iteration for horizon plane
    int8_t drawingHorizon = j == hitCount;

    RCL_HitResult hit;
    RCL_Unit distance = 1;

    RCL_Unit fWallHeight = 0, cWallHeight = 0;
    RCL_Unit fZ2World = 0,    cZ2World = 0;
    RCL_Unit fZ1Screen = 0,   cZ1Screen = 0;
    RCL_Unit fZ2Screen = 0,   cZ2Screen = 0;

    if (!drawingHorizon)
    {
      hit = hits[j];
      distance = RCL_nonZero(hit.distance); 
      p.hit = hit;

      fWallHeight = _RCL_floorFunction(hit.square.x,hit.square.y);
      fZ2World = fWallHeight - _RCL_camera.height;
      fZ1Screen = _RCL_middleRow - RCL_perspectiveScaleVertical(
        (fZ1World * _RCL_camera.resolution.y) /
        RCL_UNITS_PER_SQUARE,distance);
      fZ2Screen = _RCL_middleRow - RCL_perspectiveScaleVertical(
        (fZ2World * _RCL_camera.resolution.y) /
        RCL_UNITS_PER_SQUARE,distance);

      if (_RCL_ceilFunction != 0)
      {
        cWallHeight = _RCL_ceilFunction(hit.square.x,hit.square.y);
        cZ2World = cWallHeight - _RCL_camera.height;
        cZ1Screen = _RCL_middleRow - RCL_perspectiveScaleVertical(
          (cZ1World * _RCL_camera.resolution.y) /
          RCL_UNITS_PER_SQUARE,distance);
        cZ2Screen = _RCL_middleRow - RCL_perspectiveScaleVertical(
          (cZ2World * _RCL_camera.resolution.y) /
          RCL_UNITS_PER_SQUARE,distance);
      }
    }
    else
    {
      fZ1Screen = _RCL_middleRow;
      cZ1Screen = _RCL_middleRow + 1;
      _RCL_makeInfiniteHit(&p.hit,&ray);
    }

    RCL_Unit limit;

    p.isWall = 0;
    p.isHorizon = drawingHorizon;

    // draw floor until wall
    p.isFloor = 1;
    p.height = fZ1World + _RCL_camera.height;
    p.wallHeight = 0;

#if RCL_COMPUTE_FLOOR_DEPTH == 1
    p.depth = (_RCL_fHorizontalDepthStart - fPosY) * _RCL_horizontalDepthStep;
#else
    p.depth = 0;
#endif

    limit = _RCL_drawHorizontalColumn(fPosY,fZ1Screen,cPosY + 1,
     _RCL_camera.resolution.y,fZ1World,-1,RCL_COMPUTE_FLOOR_DEPTH,
     // ^ purposfully allow outside screen bounds
       RCL_COMPUTE_FLOOR_TEXCOORDS && p.height == RCL_FLOOR_TEXCOORDS_HEIGHT,
       1,&ray,&p);

    if (fPosY > limit)
      fPosY = limit;

    if (_RCL_ceilFunction != 0 || drawingHorizon)
    {
      // draw ceiling until wall
      p.isFloor = 0;
      p.height = cZ1World + _RCL_camera.height;

#if RCL_COMPUTE_CEILING_DEPTH == 1
      p.depth = (cPosY - _RCL_cHorizontalDepthStart) *
        _RCL_horizontalDepthStep;
#endif

      limit = _RCL_drawHorizontalColumn(cPosY,cZ1Screen,
        -1,fPosY - 1,cZ1World,1,RCL_COMPUTE_CEILING_DEPTH,0,1,&ray,&p);
      // ^ purposfully allow outside screen bounds here

      if (cPosY < limit)
        cPosY = limit;
    }

    if (!drawingHorizon) // don't draw walls for horizon plane
    {
      p.isWall = 1;
      p.depth = distance;
      p.isFloor = 1;
      p.texCoords.x = hit.textureCoord;
      p.height = fZ1World + _RCL_camera.height;
      p.wallHeight = fWallHeight;

      // draw floor wall

      if (fPosY > 0)  // still pixels left?
      {
        p.isFloor = 1;

        limit = _RCL_drawWall(fPosY,fZ1Screen,fZ2Screen,cPosY + 1,
                  _RCL_camera.resolution.y,
                  // ^ purposfully allow outside screen bounds here
#if RCL_TEXTURE_VERTICAL_STRETCH == 1
                  RCL_UNITS_PER_SQUARE
#else
                  fZ2World - fZ1World
#endif
                  ,-1,&p);
                

        if (fPosY > limit)
          fPosY = limit;

        fZ1World = fZ2World; // for the next iteration
      }               // ^ purposfully allow outside screen bounds here

      // draw ceiling wall

      if (_RCL_ceilFunction != 0 && cPosY < _RCL_camResYLimit) // pixels left?
      {
        p.isFloor = 0;
        p.height = cZ1World + _RCL_camera.height;
        p.wallHeight = cWallHeight;

        limit = _RCL_drawWall(cPosY,cZ1Screen,cZ2Screen,
                  -1,fPosY - 1,
                // ^ puposfully allow outside screen bounds here
#if RCL_TEXTURE_VERTICAL_STRETCH == 1
                  RCL_UNITS_PER_SQUARE
#else
                  cZ1World - cZ2World 
#endif
                  ,1,&p);
                
        if (cPosY < limit)
          cPosY = limit;

        cZ1World = cZ2World; // for the next iteration
      }              // ^ puposfully allow outside screen bounds here 
    }
  }
}

void _RCL_columnFunctionSimple(RCL_HitResult *hits, uint16_t hitCount,
  uint16_t x, RCL_Ray ray)
{
  RCL_Unit y = 0;
  RCL_Unit wallHeightScreen = 0;
  RCL_Unit wallStart = _RCL_middleRow;

  RCL_Unit dist = 1;

  RCL_PixelInfo p;
  p.position.x = x;
  p.wallHeight = RCL_UNITS_PER_SQUARE;

  if (hitCount > 0)
  {
    RCL_HitResult hit = hits[0];

    uint8_t goOn = 1;

    if (_RCL_rollFunction != 0 && RCL_COMPUTE_WALL_TEXCOORDS == 1)
    {
      if (hit.arrayValue == 0)
      {
        // standing inside door square, looking out => move to the next hit

        if (hitCount > 1)
          hit = hits[1];
        else
          goOn = 0;
      }
      else
      {
        // normal hit, check the door roll

        RCL_Unit texCoordMod = hit.textureCoord % RCL_UNITS_PER_SQUARE;

        int8_t unrolled = hit.doorRoll >= 0 ?
          (hit.doorRoll > texCoordMod) :
          (texCoordMod > RCL_UNITS_PER_SQUARE + hit.doorRoll);

        if (unrolled)
        {
          goOn = 0;

          if (hitCount > 1) /* should probably always be true (hit on square
                               exit) */
          {
            if (hit.direction % 2 != hits[1].direction % 2)
            {
              // hit on the inner side
              hit = hits[1];
              goOn = 1;
            }
            else if (hitCount > 2)
            {
              // hit on the opposite side
              hit = hits[2];
              goOn = 1;
            }
          }
        }
      }
    }

    p.hit = hit;

    if (goOn)
    {
      dist = hit.distance;

      RCL_Unit wallHeightWorld = _RCL_floorFunction(hit.square.x,hit.square.y);

      if (wallHeightWorld < 0)
      {
        /* We can't just do wallHeightWorld = max(0,wallHeightWorld) because
        we would be processing an actual hit with height 0, which shouldn't
        ever happen, so we assign some arbitrary height. */

        wallHeightWorld = RCL_UNITS_PER_SQUARE;
      }

      RCL_Unit worldPointTop = wallHeightWorld - _RCL_camera.height;
      RCL_Unit worldPointBottom = -1 * _RCL_camera.height;

      wallStart = _RCL_middleRow -  
        (RCL_perspectiveScaleVertical(worldPointTop,dist)
        * _RCL_camera.resolution.y) / RCL_UNITS_PER_SQUARE;

      int16_t wallEnd =  _RCL_middleRow -
        (RCL_perspectiveScaleVertical(worldPointBottom,dist)
        * _RCL_camera.resolution.y) / RCL_UNITS_PER_SQUARE;

      wallHeightScreen = wallEnd - wallStart;

      if (wallHeightScreen <= 0) // can happen because of rounding errors
        wallHeightScreen = 1; 
    }
  }
  else
  {
    _RCL_makeInfiniteHit(&p.hit,&ray);
  }

  // draw ceiling

  p.isWall = 0;
  p.isFloor = 0;
  p.isHorizon = 1;
  p.depth = 1;
  p.height = RCL_UNITS_PER_SQUARE;

  y = _RCL_drawHorizontalColumn(-1,wallStart,-1,_RCL_middleRow,_RCL_camera.height,1,
    RCL_COMPUTE_CEILING_DEPTH,0,1,&ray,&p);

  // draw wall

  p.isWall = 1;
  p.isFloor = 1;
  p.depth = dist;
  p.height = 0;

#if RCL_ROLL_TEXTURE_COORDS == 1 && RCL_COMPUTE_WALL_TEXCOORDS == 1 
  p.hit.textureCoord -= p.hit.doorRoll;
#endif

  p.texCoords.x = p.hit.textureCoord;
  p.texCoords.y = 0;

  RCL_Unit limit = _RCL_drawWall(y,wallStart,wallStart + wallHeightScreen - 1,
    -1,_RCL_camResYLimit,p.hit.arrayValue,1,&p);

  y = RCL_max(y,limit); // take max, in case no wall was drawn
  y = RCL_max(y,wallStart);

  // draw floor

  p.isWall = 0;

#if RCL_COMPUTE_FLOOR_DEPTH == 1
  p.depth = (_RCL_camera.resolution.y - y) * _RCL_horizontalDepthStep + 1;
#endif

  _RCL_drawHorizontalColumn(y,_RCL_camResYLimit,-1,_RCL_camResYLimit,
    _RCL_camera.height,1,RCL_COMPUTE_FLOOR_DEPTH,RCL_COMPUTE_FLOOR_TEXCOORDS,
    -1,&ray,&p);
}

/**
  Precomputes a distance from camera to the floor at each screen row into an
  array (must be preallocated with sufficient (camera.resolution.y) length).
*/
static inline void _RCL_precomputeFloorDistances(RCL_Camera camera,
  RCL_Unit *dest, uint16_t startIndex)
{
  RCL_Unit camHeightScreenSize =
    (camera.height * camera.resolution.y) / RCL_UNITS_PER_SQUARE;

  for (uint16_t i = startIndex; i < camera.resolution.y; ++i)
    dest[i] = RCL_perspectiveScaleVerticalInverse(camHeightScreenSize,
             RCL_abs(i - _RCL_middleRow));
}

void RCL_renderComplex(RCL_Camera cam, RCL_ArrayFunction floorHeightFunc,
  RCL_ArrayFunction ceilingHeightFunc, RCL_ArrayFunction typeFunction,
  RCL_RayConstraints constraints)
{
  _RCL_floorFunction = floorHeightFunc;
  _RCL_ceilFunction = ceilingHeightFunc;
  _RCL_camera = cam;
  _RCL_camResYLimit = cam.resolution.y - 1;

  uint16_t halfResY = cam.resolution.y / 2;

  _RCL_middleRow = halfResY + cam.shear;

  _RCL_fHorizontalDepthStart = _RCL_middleRow + halfResY;
  _RCL_cHorizontalDepthStart = _RCL_middleRow - halfResY;

  _RCL_startFloorHeight = floorHeightFunc(
    RCL_divRoundDown(cam.position.x,RCL_UNITS_PER_SQUARE),
    RCL_divRoundDown(cam.position.y,RCL_UNITS_PER_SQUARE)) -1 * cam.height;

  _RCL_startCeil_Height = 
    ceilingHeightFunc != 0 ?
      ceilingHeightFunc(
        RCL_divRoundDown(cam.position.x,RCL_UNITS_PER_SQUARE),
        RCL_divRoundDown(cam.position.y,RCL_UNITS_PER_SQUARE)) -1 * cam.height
      : RCL_INFINITY;

  _RCL_horizontalDepthStep = RCL_HORIZON_DEPTH / cam.resolution.y; 

#if RCL_COMPUTE_FLOOR_TEXCOORDS == 1
  RCL_Unit floorPixelDistances[cam.resolution.y];
  _RCL_precomputeFloorDistances(cam,floorPixelDistances,0);
  _RCL_floorPixelDistances = floorPixelDistances; // pass to column function
#endif

  RCL_castRaysMultiHit(cam,_RCL_floorCeilFunction,typeFunction,
    _RCL_columnFunctionComplex,constraints);
}

void RCL_renderSimple(RCL_Camera cam, RCL_ArrayFunction floorHeightFunc,
  RCL_ArrayFunction typeFunc, RCL_ArrayFunction rollFunc,
  RCL_RayConstraints constraints)
{
  _RCL_floorFunction = floorHeightFunc;
  _RCL_camera = cam;
  _RCL_camResYLimit = cam.resolution.y - 1;
  _RCL_middleRow = cam.resolution.y / 2;
  _RCL_rollFunction = rollFunc;

  _RCL_cameraHeightScreen =
    (_RCL_camera.resolution.y * (_RCL_camera.height - RCL_UNITS_PER_SQUARE)) /
    RCL_UNITS_PER_SQUARE;

  _RCL_horizontalDepthStep = RCL_HORIZON_DEPTH / cam.resolution.y; 

  constraints.maxHits = 
    _RCL_rollFunction == 0 ?
      1 : // no door => 1 hit is enough 
      3;  // for correctly rendering rolling doors we'll need 3 hits (NOT 2)

#if RCL_COMPUTE_FLOOR_TEXCOORDS == 1
  RCL_Unit floorPixelDistances[cam.resolution.y];
  _RCL_precomputeFloorDistances(cam,floorPixelDistances,_RCL_middleRow);
  _RCL_floorPixelDistances = floorPixelDistances; // pass to column function
#endif

  RCL_castRaysMultiHit(cam,_floorHeightNotZeroFunction,typeFunc,
    _RCL_columnFunctionSimple, constraints);

#if RCL_COMPUTE_FLOOR_TEXCOORDS == 1
  _RCL_floorPixelDistances = 0;
#endif
}

RCL_Vector2D RCL_normalize(RCL_Vector2D v)
{
  RCL_Vector2D result;
  RCL_Unit l = RCL_len(v);
  l = RCL_nonZero(l);

  result.x = (v.x * RCL_UNITS_PER_SQUARE) / l;
  result.y = (v.y * RCL_UNITS_PER_SQUARE) / l;

  return result;
}

RCL_Unit RCL_vectorsAngleCos(RCL_Vector2D v1, RCL_Vector2D v2)
{
  v1 = RCL_normalize(v1);
  v2 = RCL_normalize(v2);

  return (v1.x * v2.x + v1.y * v2.y) / RCL_UNITS_PER_SQUARE;
}


RCL_PixelInfo RCL_mapToScreen(RCL_Vector2D worldPosition, RCL_Unit height,
  RCL_Camera camera)
{
  RCL_PixelInfo result;

  RCL_Vector2D toPoint;

  toPoint.x = worldPosition.x - camera.position.x;
  toPoint.y = worldPosition.y - camera.position.y;

  RCL_Unit middleColumn = camera.resolution.x / 2;

  // rotate the point to camera space (y left/right, x forw/backw)

  RCL_Unit cos = RCL_cos(camera.direction);
  RCL_Unit sin = RCL_sin(camera.direction);

  RCL_Unit tmp = toPoint.x;

  toPoint.x = (toPoint.x * cos - toPoint.y * sin) / RCL_UNITS_PER_SQUARE; 
  toPoint.y = (tmp * sin + toPoint.y * cos) / RCL_UNITS_PER_SQUARE; 

  result.depth = toPoint.x;

  result.position.x = middleColumn -
   (RCL_perspectiveScaleHorizontal(toPoint.y,result.depth) * middleColumn) /
   RCL_UNITS_PER_SQUARE;

  result.position.y =
    (RCL_perspectiveScaleVertical(height - camera.height,result.depth)
     * camera.resolution.y) / RCL_UNITS_PER_SQUARE;
  
  result.position.y = camera.resolution.y / 2 - result.position.y + camera.shear;

  return result;
}

RCL_Unit RCL_degreesToUnitsAngle(int16_t degrees)
{
  return (degrees * RCL_UNITS_PER_SQUARE) / 360;
}
  
/**
  Ugly temporary hack to solve mapping to screen. This function computes
  (approximately, usin a table) a divisor needed for FOV correction.
*/
RCL_Unit _RCL_fovCorrectionFactor(RCL_Unit fov)
{
  uint16_t table[9] = 
    {1,208,408,692,1024,1540,2304,5376,30000};

  fov = RCL_min(RCL_UNITS_PER_SQUARE / 2 - 1,fov);

  uint8_t index = fov / 64;
  uint32_t t = ((fov - index * 64) * RCL_UNITS_PER_SQUARE) / 64; 
  uint32_t v1 = table[index];
  uint32_t v2 = table[index + 1];
 
  return v1 + ((v2 - v1) * t) / RCL_UNITS_PER_SQUARE;
}

RCL_Unit RCL_perspectiveScaleVertical(RCL_Unit originalSize, RCL_Unit distance)
{
  if (_RCL_fovCorrectionFactors[1] == 0)
    _RCL_fovCorrectionFactors[1] = _RCL_fovCorrectionFactor(RCL_VERTICAL_FOV);

  return distance != 0 ? ((originalSize * RCL_UNITS_PER_SQUARE) /
   RCL_nonZero((_RCL_fovCorrectionFactors[1] * distance) / RCL_UNITS_PER_SQUARE)
   ) : 0;
}

RCL_Unit RCL_perspectiveScaleVerticalInverse(RCL_Unit originalSize,
  RCL_Unit scaledSize)
{
  if (_RCL_fovCorrectionFactors[1] == 0)
    _RCL_fovCorrectionFactors[1] = _RCL_fovCorrectionFactor(RCL_VERTICAL_FOV);

  return scaledSize != 0 ?

  ((originalSize * RCL_UNITS_PER_SQUARE) /
   RCL_nonZero((_RCL_fovCorrectionFactors[1] * scaledSize) 
    / RCL_UNITS_PER_SQUARE)) : RCL_INFINITY;
}

RCL_Unit
  RCL_perspectiveScaleHorizontal(RCL_Unit originalSize, RCL_Unit distance)
{
  if (_RCL_fovCorrectionFactors[0] == 0)
    _RCL_fovCorrectionFactors[0] = _RCL_fovCorrectionFactor(RCL_HORIZONTAL_FOV);

  return distance != 0 ?
   ((originalSize * RCL_UNITS_PER_SQUARE) /
   RCL_nonZero((_RCL_fovCorrectionFactors[0] * distance) / RCL_UNITS_PER_SQUARE)
   ) : 0;
}

RCL_Unit RCL_perspectiveScaleHorizontalInverse(RCL_Unit originalSize,
  RCL_Unit scaledSize)
{
  // TODO: probably doesn't work

  return scaledSize != 0 ?
    (originalSize * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2) /
      ((RCL_HORIZONTAL_FOV_TAN * 2 * scaledSize) / RCL_UNITS_PER_SQUARE)
    : RCL_INFINITY;
}

RCL_Unit RCL_castRay3D(
  RCL_Vector2D pos1, RCL_Unit height1, RCL_Vector2D pos2, RCL_Unit height2,
  RCL_ArrayFunction floorHeightFunc, RCL_ArrayFunction ceilingHeightFunc,
  RCL_RayConstraints constraints)
{
  RCL_HitResult hits[constraints.maxHits];
  uint16_t numHits;

  RCL_Ray ray;

  ray.start = pos1;

  RCL_Unit distance;

  ray.direction.x = pos2.x - pos1.x;
  ray.direction.y = pos2.y - pos1.y;

  distance = RCL_len(ray.direction);

  ray.direction = RCL_normalize(ray.direction); 

  RCL_Unit heightDiff = height2 - height1;

  RCL_castRayMultiHit(ray,floorHeightFunc,0,hits,&numHits,constraints);

  RCL_Unit result = RCL_UNITS_PER_SQUARE;

  int16_t squareX = RCL_divRoundDown(pos1.x,RCL_UNITS_PER_SQUARE);
  int16_t squareY = RCL_divRoundDown(pos1.y,RCL_UNITS_PER_SQUARE);

  RCL_Unit startHeight = floorHeightFunc(squareX,squareY);

  #define checkHits(comp,res) \
  { \
    RCL_Unit currentHeight = startHeight; \
    for (uint16_t i = 0; i < numHits; ++i) \
    { \
      if (hits[i].distance > distance) \
        break;\
      RCL_Unit h = hits[i].arrayValue; \
      if ((currentHeight comp h ? currentHeight : h) \
         comp (height1 + (hits[i].distance * heightDiff) / distance)) \
      { \
        res = (hits[i].distance * RCL_UNITS_PER_SQUARE) / distance; \
        break; \
      } \
      currentHeight = h; \
    } \
  }

  checkHits(>,result)

  if (ceilingHeightFunc != 0)
  {
    RCL_Unit result2 = RCL_UNITS_PER_SQUARE;
  
    startHeight = ceilingHeightFunc(squareX,squareY);

    RCL_castRayMultiHit(ray,ceilingHeightFunc,0,hits,&numHits,constraints);

    checkHits(<,result2)

    if (result2 < result)
      result = result2;
  }

  #undef checkHits

  return result;
}

void RCL_moveCameraWithCollision(RCL_Camera *camera, RCL_Vector2D planeOffset,
  RCL_Unit heightOffset, RCL_ArrayFunction floorHeightFunc,
  RCL_ArrayFunction ceilingHeightFunc, int8_t computeHeight, int8_t force)
{
  int8_t movesInPlane = planeOffset.x != 0 || planeOffset.y != 0;

  if (movesInPlane || force)
  {
    int16_t xSquareNew, ySquareNew;

    RCL_Vector2D corner; // BBox corner in the movement direction
    RCL_Vector2D cornerNew;

    int16_t xDir = planeOffset.x > 0 ? 1 : -1;
    int16_t yDir = planeOffset.y > 0 ? 1 : -1;

    corner.x = camera->position.x + xDir * RCL_CAMERA_COLL_RADIUS;
    corner.y = camera->position.y + yDir * RCL_CAMERA_COLL_RADIUS;

    int16_t xSquare = RCL_divRoundDown(corner.x,RCL_UNITS_PER_SQUARE);
    int16_t ySquare = RCL_divRoundDown(corner.y,RCL_UNITS_PER_SQUARE);

    cornerNew.x = corner.x + planeOffset.x;
    cornerNew.y = corner.y + planeOffset.y;

    xSquareNew = RCL_divRoundDown(cornerNew.x,RCL_UNITS_PER_SQUARE);
    ySquareNew = RCL_divRoundDown(cornerNew.y,RCL_UNITS_PER_SQUARE);

    RCL_Unit bottomLimit = -1 * RCL_INFINITY;
    RCL_Unit topLimit = RCL_INFINITY;

    RCL_Unit currCeilHeight = RCL_INFINITY;

    if (computeHeight)
    {
      bottomLimit = camera->height - RCL_CAMERA_COLL_HEIGHT_BELOW +
        RCL_CAMERA_COLL_STEP_HEIGHT;

      topLimit = camera->height + RCL_CAMERA_COLL_HEIGHT_ABOVE;

      if (ceilingHeightFunc != 0)
        currCeilHeight = ceilingHeightFunc(xSquare,ySquare);
    }

    // checks a single square for collision against the camera
    #define collCheck(dir,s1,s2)\
    if (computeHeight)\
    {\
      RCL_Unit height = floorHeightFunc(s1,s2);\
      if (height > bottomLimit || \
          currCeilHeight - height < \
            RCL_CAMERA_COLL_HEIGHT_BELOW + RCL_CAMERA_COLL_HEIGHT_ABOVE)\
        dir##Collides = 1;\
      else if (ceilingHeightFunc != 0)\
      {\
        RCL_Unit height2 = ceilingHeightFunc(s1,s2);\
        if ((height2 < topLimit) || ((height2 - height) < \
          (RCL_CAMERA_COLL_HEIGHT_ABOVE + RCL_CAMERA_COLL_HEIGHT_BELOW)))\
          dir##Collides = 1;\
      }\
    }\
    else\
      dir##Collides = floorHeightFunc(s1,s2) > RCL_CAMERA_COLL_STEP_HEIGHT;

    // check collision against non-diagonal square
    #define collCheckOrtho(dir,dir2,s1,s2,x)\
    if (dir##SquareNew != dir##Square)\
    {\
      collCheck(dir,s1,s2)\
    }\
    if (!dir##Collides)\
    { /* now also check for coll on the neighbouring square */ \
      int16_t dir2##Square2 = RCL_divRoundDown(corner.dir2 - dir2##Dir *\
        RCL_CAMERA_COLL_RADIUS * 2,RCL_UNITS_PER_SQUARE);\
      if (dir2##Square2 != dir2##Square)\
      {\
        if (x)\
          collCheck(dir,dir##SquareNew,dir2##Square2)\
        else\
          collCheck(dir,dir2##Square2,dir##SquareNew)\
      }\
    }

    int8_t xCollides = 0;
    collCheckOrtho(x,y,xSquareNew,ySquare,1)

    int8_t yCollides = 0;
    collCheckOrtho(y,x,xSquare,ySquareNew,0)

    if (xCollides || yCollides)
    {
      if (movesInPlane)
      {
        #define collHandle(dir)\
        if (dir##Collides)\
          cornerNew.dir = (dir##Square) * RCL_UNITS_PER_SQUARE +\
          RCL_UNITS_PER_SQUARE / 2 + dir##Dir * (RCL_UNITS_PER_SQUARE / 2) -\
          dir##Dir;\

        collHandle(x)
        collHandle(y)
      
        #undef collHandle
      }
      else
      {
        /* Player collides without moving in the plane; this can happen e.g. on
           elevators due to vertical only movement. This code can get executed
           when force == 1. */

        RCL_Vector2D squarePos;
        RCL_Vector2D newPos;

        squarePos.x = xSquare * RCL_UNITS_PER_SQUARE;
        squarePos.y = ySquare * RCL_UNITS_PER_SQUARE;

        newPos.x =
          RCL_max(squarePos.x + RCL_CAMERA_COLL_RADIUS + 1,
            RCL_min(squarePos.x + RCL_UNITS_PER_SQUARE - RCL_CAMERA_COLL_RADIUS - 1,
              camera->position.x));

        newPos.y = 
          RCL_max(squarePos.y + RCL_CAMERA_COLL_RADIUS + 1,
            RCL_min(squarePos.y + RCL_UNITS_PER_SQUARE - RCL_CAMERA_COLL_RADIUS - 1,
              camera->position.y));

        cornerNew.x = corner.x + (newPos.x - camera->position.x);
        cornerNew.y = corner.y + (newPos.y - camera->position.y);
      }
    }
    else 
    {
      /* If no non-diagonal collision is detected, a diagonal/corner collision
         can still happen, check it here. */

      if (xSquare != xSquareNew && ySquare != ySquareNew)
      {
        int8_t xyCollides = 0;
        collCheck(xy,xSquareNew,ySquareNew)
        
        if (xyCollides)
        {
          // normally should slide, but let's KISS and simply stop any movement
          cornerNew = corner;
        }
      }
    }

    #undef collCheck

    camera->position.x = cornerNew.x - xDir * RCL_CAMERA_COLL_RADIUS;
    camera->position.y = cornerNew.y - yDir * RCL_CAMERA_COLL_RADIUS;  
  }

  if (computeHeight && (movesInPlane || (heightOffset != 0) || force))
  {
    camera->height += heightOffset;

    int16_t xSquare1 = RCL_divRoundDown(camera->position.x -
      RCL_CAMERA_COLL_RADIUS,RCL_UNITS_PER_SQUARE);

    int16_t xSquare2 = RCL_divRoundDown(camera->position.x +
      RCL_CAMERA_COLL_RADIUS,RCL_UNITS_PER_SQUARE);

    int16_t ySquare1 = RCL_divRoundDown(camera->position.y -
      RCL_CAMERA_COLL_RADIUS,RCL_UNITS_PER_SQUARE);

    int16_t ySquare2 = RCL_divRoundDown(camera->position.y +
      RCL_CAMERA_COLL_RADIUS,RCL_UNITS_PER_SQUARE);

    RCL_Unit bottomLimit = floorHeightFunc(xSquare1,ySquare1);
    RCL_Unit topLimit = ceilingHeightFunc != 0 ?
      ceilingHeightFunc(xSquare1,ySquare1) : RCL_INFINITY;

    RCL_Unit height;

    #define checkSquares(s1,s2)\
    {\
      height = floorHeightFunc(xSquare##s1,ySquare##s2);\
      bottomLimit = RCL_max(bottomLimit,height);\
      height = ceilingHeightFunc != 0 ?\
        ceilingHeightFunc(xSquare##s1,ySquare##s2) : RCL_INFINITY;\
      topLimit = RCL_min(topLimit,height);\
    }

    if (xSquare2 != xSquare1)
      checkSquares(2,1)

    if (ySquare2 != ySquare1)
      checkSquares(1,2)

    if (xSquare2 != xSquare1 && ySquare2 != ySquare1)
      checkSquares(2,2)

    camera->height = RCL_clamp(camera->height,
      bottomLimit + RCL_CAMERA_COLL_HEIGHT_BELOW,
      topLimit - RCL_CAMERA_COLL_HEIGHT_ABOVE);

    #undef checkSquares
  }
}

void RCL_initCamera(RCL_Camera *camera)
{
  camera->position.x = 0;
  camera->position.y = 0;
  camera->direction = 0;
  camera->resolution.x = 20;
  camera->resolution.y = 15;
  camera->shear = 0;
  camera->height = RCL_UNITS_PER_SQUARE;
}

void RCL_initRayConstraints(RCL_RayConstraints *constraints)
{
  constraints->maxHits = 1;
  constraints->maxSteps = 20;
}

#endif
test.c
/**
  General tests for raycastlib, use to test new version, different platforms
  etc.

  license: CC0
*/

#define RCL_PROFILE
#define RCL_PIXEL_FUNCTION pixelFunc

#include <stdio.h>
#include "../raycastlib.h"
#include <sys/time.h>

static const char renderSimpleExpect[] =
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,EEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,EEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,EEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FEEEEEEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
"ddddddddddddddde,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeee,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffg,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhi,,,,,FFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDD,,,,,,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhii....FFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhh.........FFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggg...............FFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffg.....................FFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeeffffffff...........................FFFFFFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeeeeeeff.....................................FFEEEEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeeeeeeee..............................................EEEEEEEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeeeeeeeeee........................................................EEEEEEEEDDDDDDDDDDD"  
"dddddddddddddddeee....................................................................EEEDDDDDDDDDDD"  
"ddddddddddddd.............................................................................DDDDDDDDDD"  
"ddddddd........................................................................................DDDDD"  
"dd.................................................................................................D"  
"....................................................................................................";


static const char renderComplexExpect[] =
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," 
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,EEDDe,,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,EEEEEEDDee,,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,EEEEEEEEEEEDDeee,,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,EEEEEEEEEEEEEEEDDeeee,,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
"ddddddddddddddd,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
"dddddddddddddddeeeeeeeeeeeeeee,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffff,,,,,,,,,,,,,,,,,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeef,,,,"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhh,,,,,,FFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhiiiiiiFFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhhhhhhii....FFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffggggggggghhh..........FFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffgggggg................FFFFFFEEEEEEEEEEEEEEEDDeeeefGGGG"  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffffffffffg.....................FFFFFFEEEEEEEEEEEEEEEDDeeeef...."  
"dddddddddddddddeeeeeeeeeeeeeeeeeefffffff............................FFFFFFEEEEEEEEEEEEEEEDDeeeef...."  
"dddddddddddddddeeeeeeeeeeeeeeeeeeff.....................................FFEEEEEEEEEEEEEEEDDeeeefF..."  
"dddddddddddddddeeeeeeeeeeeeee................................................EEEEEEEEEEEEDDeeeefFFFE"  
"dddddddddddddddeeeeeeee...........................................................EEEEEEEDDeeeefFFFE"  
"dddddddddddddddeee....................................................................EEEDDeeee....."  
"ddddddddddd.................................................................................ee......"  
"ddddddd............................................................................................."  
"...................................................................................................."  
"....................................................................................................";

RCL_Unit testArrayFunc(int16_t x, int16_t y)
{
  if (x == 1 & y == 8)
    return RCL_UNITS_PER_SQUARE * 3;

  if (x == 2 & y == 8)
    return -1 * RCL_UNITS_PER_SQUARE / 4;

  return (x < 0 || x >= 10 || y < 0 || y >= 10) ? 
    (RCL_UNITS_PER_SQUARE * 2) : 0;
}

int testSingleRay(RCL_Unit startX, RCL_Unit startY, RCL_Unit dirX,
  RCL_Unit dirY, int16_t expectSquareX, int16_t expectSquareY,
  int16_t expectPointX, int16_t expectPointY, int16_t tolerateError)
{
  RCL_Ray r;

  r.start.x     = startX;
  r.start.y     = startY;
  r.direction.x = dirX;
  r.direction.y = dirY;

  printf("- casting ray:\n");
  RCL_logRay(r);

  RCL_HitResult h = RCL_castRay(r,testArrayFunc);
  
  printf("- result:\n");
  RCL_logHitResult(h);

  int result = 
    h.square.x   == expectSquareX &&
    h.square.y   == expectSquareY &&
    h.position.x <= expectPointX + tolerateError &&
    h.position.x >= expectPointX - tolerateError &&
    h.position.y <= expectPointY + tolerateError &&
    h.position.y >= expectPointY - tolerateError;

  if (result)
    printf("\nOK\n\n");
  else
    printf("\nFAIL\n\n");

  return result;
}

int testSingleMapping(RCL_Unit posX, RCL_Unit posY, RCL_Unit posZ, uint32_t resX,
  uint32_t resY, RCL_Unit camX, RCL_Unit camY, RCL_Unit camZ, RCL_Unit camDir,
  RCL_Unit expectX, RCL_Unit expectY, RCL_Unit expectZ)
{
  int result;

  RCL_Camera c;

  RCL_initCamera(&c);

  c.resolution.x = resX;
  c.resolution.y = resY;
  c.position.x = camX;
  c.position.y = camY;
  c.direction = camDir;
  c.height = camZ;

  RCL_Vector2D pos;
  RCL_Unit height;

  pos.x = posX;
  pos.y = posY;
  height = posZ;
 
  RCL_PixelInfo p;

  printf("- mapping pixel: %d %d %d\n",posX,posY,posZ);

  p = RCL_mapToScreen(pos,height,c);

  printf("- result:\n");
  RCL_logPixelInfo(p);

  result = p.position.x == expectX && p.position.y == expectY &&
    p.depth == expectZ;

  if (result)
    printf("\nOK\n\n");
  else
    printf("\nFAIL\n\n");

  return result;
}

// returns milliseconds
long measureTime(void (*func)(void))
{
  long start, end;
  struct timeval timecheck;

  gettimeofday(&timecheck, NULL);
  start = (long) timecheck.tv_sec * 1000 + (long) timecheck.tv_usec / 1000;

  func();

  gettimeofday(&timecheck, NULL);
  end = (long) timecheck.tv_sec * 1000 + (long) timecheck.tv_usec / 1000;

  return end - start;
}

void benchCastRays()
{
  RCL_Ray r;

  r.start.x = RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2;
  r.start.y = 2 * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 4;

  RCL_Vector2D directions[8];

  for (int i = 0; i < 8; ++i)
    directions[i] = RCL_angleToDirection(RCL_UNITS_PER_SQUARE / 8 * i);

  for (int i = 0; i < 1000000; ++i)
  {
    r.direction = directions[i % 8];
    RCL_castRay(r,testArrayFunc);
  }
}

void benchmarkMapping()
{
  RCL_Camera c;

  c.resolution.x = 1024;
  c.resolution.y = 768;
  c.position.x = RCL_UNITS_PER_SQUARE / 2;
  c.position.y = RCL_UNITS_PER_SQUARE * 2;
  c.direction = RCL_UNITS_PER_SQUARE / 8;
  c.height = 0;

  RCL_PixelInfo p;

  RCL_Vector2D pos;
  RCL_Unit height;

  pos.x = -1024 * RCL_UNITS_PER_SQUARE;
  pos.y = -512 * RCL_UNITS_PER_SQUARE;
  height = 0;
 
  for (int i = 0; i < 1000000; ++i)
  {
    p = RCL_mapToScreen(pos,height,c);

    pos.x += 4;
    pos.y += 8;
    height = (height + 16) % 1024;
  }
}

int renderMode = 0;
uint32_t *pixelCounts = 0;
RCL_Camera countCamera;
int countOK = 1;

#define TEST_SCREEN_RES_X 100
#define TEST_SCREEN_RES_Y 40

char testScreen[TEST_SCREEN_RES_X * TEST_SCREEN_RES_Y];

void pixelFunc(RCL_PixelInfo *p)
{
  if (renderMode == 0) // count pixels
  {
    if (p->position.x >= countCamera.resolution.x || p->position.x < 0 ||
        p->position.y >= countCamera.resolution.y || p->position.y < 0)
    {
      printf("ERROR: writing pixel outside screen at %d %d!\n",
        p->position.x,p->position.y);
   
      countOK = 0;
    }
    else
      pixelCounts[p->position.y * countCamera.resolution.x + p->position.x]++;
  }
  else if (renderMode == 1)
  {
    char c = '?';

   if (p->isFloor)
     c = '.';
   else
     c = ',';

   if (p->isWall)
     c = (p->hit.direction % 2 ? 'a' : 'A') + p->depth / 512;

    testScreen[p->position.y * TEST_SCREEN_RES_X + p->position.x] = c;
  }
}

int testPixelCount(RCL_Unit camX, RCL_Unit camY, RCL_Unit camZ,
  RCL_Unit camDir, RCL_Unit camShear, uint16_t camResX, uint16_t camResY,
  int complexRender)
{
  printf("Counting rendered pixels (each should be rendered exactly once)...\n");

  RCL_RayConstraints constraints;
  RCL_Camera c;

  RCL_initRayConstraints(&constraints);
  constraints.maxSteps = 32;
  RCL_initCamera(&c);

  c.position.x = camX;
  c.position.y = camY;
  c.direction = camDir;
  c.shear = camShear;
  c.height = camZ;
  c.resolution.x = camResX;
  c.resolution.y = camResY;

  uint32_t pixels[camResX * camResY];

  for (int32_t i = 0; i < camResX * camResY; ++i)
    pixels[i] = 0;

  pixelCounts = pixels;
  countCamera = c;
  renderMode = 0;

  countOK = 1;

  if (complexRender)
    RCL_renderComplex(c,testArrayFunc,testArrayFunc,0,constraints);
  else
    RCL_renderSimple(c,testArrayFunc,0,0,constraints);

  for (uint32_t y = 0; y < camResY; ++y)
    for (uint32_t x = 0; x < camResX; ++x)
    {
      uint32_t index = y * camResX + x;

      if (pixels[index] != 1)
      {
        printf("ERROR: pixel at %d %d written %d times!\n",x,y,pixels[index]);
        countOK = 0;
      }
    }

  return countOK;
}

int testRender(int8_t simple)
{
  printf("\nTesting rendering\n");

  renderMode = 1;
  
  RCL_Camera c;
  RCL_initCamera(&c);

  c.resolution.x = TEST_SCREEN_RES_X;
  c.resolution.y = TEST_SCREEN_RES_Y;
  c.position.x =  2 * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2; // 3000;//5 * RCL_UNITS_PER_SQUARE;
  c.position.y =  5 * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2; //5000;//5 * RCL_UNITS_PER_SQUARE;
  c.direction = 625;//700;
  c.height = 1500;//1000;

  RCL_RayConstraints constraints;
  RCL_initRayConstraints(&constraints);

  constraints.maxHits = 7;
  constraints.maxSteps = 20;

  renderMode = 1;

  for (uint32_t i = 0; i < TEST_SCREEN_RES_X * TEST_SCREEN_RES_Y; ++i)
    testScreen[i] = '?';

  if (simple)
  {
    RCL_renderSimple(c,testArrayFunc,0,0,constraints);
  }
  else
  {
    RCL_renderComplex(c,testArrayFunc,0,0,constraints);
  }

  for (uint32_t i = 0; i < TEST_SCREEN_RES_X * TEST_SCREEN_RES_Y; ++i)
  {
    if ((i % TEST_SCREEN_RES_X) == 0)
      printf("  \n");

    printf("%c",testScreen[i]);   
  }

  const char *expect = simple ? renderSimpleExpect : renderComplexExpect;

  for (uint32_t i = 0; i < TEST_SCREEN_RES_X * TEST_SCREEN_RES_Y; ++i)
    if (expect[i] != testScreen[i])
    {
      printf("\n\nFAIL!\n");
      return 0;
    }

  printf("\n\nOK\n");

  return 1;
}

void benchmarkRender()
{
  RCL_Camera c;
  RCL_initCamera(&c);

  c.resolution.x = 640;
  c.resolution.y = 300;
  c.position.x = 10;
  c.position.y = 12;
  c.direction = 100;
  c.height = 200;

  RCL_RayConstraints constraints;
  RCL_initRayConstraints(&constraints);

  constraints.maxHits = 10;
  constraints.maxSteps = 12;

  renderMode = 255; // don't write pixels

  for (int i = 0; i < 100; ++i)
    RCL_renderComplex(c,testArrayFunc,testArrayFunc,0,constraints);
}

int main()
{
  printf("Testing raycastlib.\n"); 

  if (!testSingleRay(
    3 * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2,
    4 * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 2,
    100, 50,
    10, 7,
    10240, 7936,
    16))
    return 1; 

  if (!testSingleRay(
    0,
    0,
    100, 100,
    9, 10,
    10240, 10240,
    16))
    return 1; 

  if (!testSingleRay(
    400,
    6811,
    -629,805,
    -1, 7,
    -1, 7325,
    16))
    return 1;

  if (!testSingleRay(
    -4 * RCL_UNITS_PER_SQUARE - RCL_UNITS_PER_SQUARE / 2,
    7 * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 3,
    100,-100,
    0, 2,
    1, 2900,
    16))
    return 1;

  printf("testing perspective scale...\n");

  for (RCL_Unit i = 1; i < 100; ++i)
  {
    RCL_Unit size = i * 3;
    RCL_Unit distance = i * 6 + 200;

    RCL_Unit scaled = RCL_perspectiveScaleHorizontal(size,distance);
    RCL_Unit distance2 = RCL_perspectiveScaleHorizontalInverse(size,scaled);

    if (RCL_abs(distance - distance2 > 2))
      printf("ERROR: distance: %d, distance inverse: %d\n",distance,distance2);
  }

  printf("OK\n");

  if (!testPixelCount(
    RCL_UNITS_PER_SQUARE / 2,
    RCL_UNITS_PER_SQUARE / 2,
    RCL_UNITS_PER_SQUARE / 2,
    0,
    0,
    128,
    64,
    1))
    return 1;

  if (!testPixelCount(
    3 * RCL_UNITS_PER_SQUARE + 100,
    4 * RCL_UNITS_PER_SQUARE + RCL_UNITS_PER_SQUARE / 3,
    RCL_UNITS_PER_SQUARE / 2,
    512,
    0,
    120,
    60,
    0))
    return 1;

  if (!testPixelCount(
    - RCL_UNITS_PER_SQUARE,
    0,
    300,
    -600,
    -120,
    64,
    68,
    1))
    return 1;

  printf("OK\n");

  if (!testSingleMapping(
    RCL_UNITS_PER_SQUARE,
    RCL_UNITS_PER_SQUARE * 2,
    0,
    800,
    640,
    RCL_UNITS_PER_SQUARE / 2,
    0,
    RCL_UNITS_PER_SQUARE / 4,
    (RCL_UNITS_PER_SQUARE * 5) / 6,
    287,
    365,
    2027
    ))
    return 1;

  if (!testRender(0))
    return 1;

  if (!testRender(1))
    return 1;

  printf("benchmark:\n");

  long t;
  t = measureTime(benchCastRays);
  printf("cast 1000000 rays: %ld ms\n",t);

  t = measureTime(benchmarkMapping);
  printf("map point to screen 1000000 times: %ld ms\n",t);

  t = measureTime(benchmarkRender);
  printf("render 100 times: %ld ms\n",t);

  printf("\n===== all OK =====\n");

  return 0;
}
test_terminal.c
/*
  Raycasting terminal test. Renders a raycasted animation in the terminal as
  ASCII.

  author: Miloslav Ciz
  license: CC0 1.0, public domain
*/

#define RCL_PIXEL_FUNCTION pixelFunc // set our pixel functio
#define RCL_COMPUTE_FLOOR_DEPTH 0    // turn off what we don't need
#define RCL_COMPUTE_CEILING_DEPTH 0

#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>

#include "../raycastlib.h"

#define LEVEL_W 20
#define LEVEL_H 15

#define SCREEN_W 80
#define SCREEN_H 40

#define FRAME_OFFSET 20 // number of newlines printed before each frame

#define PIXELS_TOTAL (FRAME_OFFSET+ (SCREEN_W + 1) * SCREEN_H + 1)

char pixels[FRAME_OFFSET + (SCREEN_W + 1) * SCREEN_H + 1];
RCL_Camera camera;

const int8_t level[LEVEL_W * LEVEL_H] = // here 1 means wall, 0 floor
{
/*                      11  13  15  17  19 
  0 1 2 3 4 5 6 7 8 9 10  12  14  16  18  */
  0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0, // 0
  0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0, // 1
  0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,0,0, // 2
  1,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0, // 3
  0,0,0,0,0,0,0,0,0,1,0,0,1,1,1,0,0,1,0,0, // 4
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0, // 5
  1,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0, // 6
  0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0, // 7
  0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,1,1,1, // 8
  0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0, // 9
  0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,1, // 10
  0,0,0,0,0,1,0,0,0,1,0,0,0,0,1,1,1,0,0,1, // 11
  0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0, // 12
  0,0,0,0,0,1,0,0,0,1,1,1,0,0,1,0,0,0,0,0, // 13
  0,0,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,0  // 14
};

/*
  Function that says the floor height at each square. We do it by reading the
  anove level array.
*/
RCL_Unit heightAt(int16_t x, int16_t y)
{
  int32_t index = y * LEVEL_W + x;

  if (index < 0 || (index >= LEVEL_W * LEVEL_H))
    return RCL_UNITS_PER_SQUARE * 2;

  return level[y * LEVEL_W + x] * RCL_UNITS_PER_SQUARE * 2;
}

static const char asciiShades[] = "HXi/;,.               ";

void pixelFunc(RCL_PixelInfo *p)
{
  char c = ' ';

  uint8_t shade = 3;

  shade -= RCL_min(3,p->depth / RCL_UNITS_PER_SQUARE);

  if (p->isWall)
  {
    switch (p->hit.direction)
    {
      case 0:  shade += 2;
      case 1:  c = asciiShades[shade];
               break;
      case 2:  c = 'o'; break;
      case 3:
      default: c = '.'; break;
    }
  }

  pixels[FRAME_OFFSET + p->position.y * (SCREEN_W + 1) + p->position.x] = c;
}

void draw()
{
  memset(pixels,'\n',PIXELS_TOTAL);
  pixels[PIXELS_TOTAL - 1] = 0; // terminate string

  RCL_RayConstraints c;

  RCL_initRayConstraints(&c);

  c.maxHits = 1;
  c.maxSteps = 40;

  #if 1
    RCL_renderSimple(camera,heightAt,0,0,c);
  #else
    /* Here you can try using the complex rendering function. The result should
       be practically the same. */

    RCL_renderComplex(camera,heightAt,0,0,c);
  #endif

  puts(pixels);
}

int dx = 1;
int dy = 0;
int dr = 1;
int frame = 0;

int main()
{
  RCL_initCamera(&camera);
  camera.position.x = 2 * RCL_UNITS_PER_SQUARE;
  camera.position.y = 2 * RCL_UNITS_PER_SQUARE;
  camera.direction = 0;
  camera.resolution.x = SCREEN_W;
  camera.resolution.y = SCREEN_H;

  for (int i = 0; i < 10000; ++i)
  {
    draw();

    int squareX = RCL_divRoundDown(camera.position.x,RCL_UNITS_PER_SQUARE);
    int squareY = RCL_divRoundDown(camera.position.y,RCL_UNITS_PER_SQUARE);
 
    if (rand() % 100 == 0)
    {
      dx = 1 - rand() % 3;
      dy = 1 - rand() % 3;
      dr = 1 - rand() % 3;
    }

    while (heightAt(squareX + dx,squareY + dy) > 0)
    {
      dx = 1 - rand() % 3;
      dy = 1 - rand() % 3;
      dr = 1 - rand() % 3;
    }

    camera.position.x += dx * 200;
    camera.position.y += dy * 200;
    camera.direction += dr * 10;

    camera.height = RCL_UNITS_PER_SQUARE + RCL_sin(frame * 16) / 2;

    usleep(100000);

    frame++;
  }

  return 0;
}
Small3dlib
small3dlib.h
#ifndef SMALL3DLIB_H
#define SMALL3DLIB_H

/*
  Simple realtime 3D software rasterization renderer. It is fast, focused on
  resource-limited computers, located in a single C header file, with no
  dependencies, using only 32bit integer arithmetics.

  author: Miloslav Ciz
  license: CC0 1.0 (public domain)
           found at https://creativecommons.org/publicdomain/zero/1.0/
           + additional waiver of all IP
  version: 0.852

  Before including the library, define S3L_PIXEL_FUNCTION to the name of the
  function you'll be using to draw single pixels (this function will be called
  by the library to render the frames). Also either init S3L_resolutionX and
  S3L_resolutionY or define S3L_RESOLUTION_X and S3L_RESOLUTION_Y.

  You'll also need to decide what rendering strategy and other settings you
  want to use, depending on your specific usecase. You may want to use a
  z-buffer (full or reduced, S3L_Z_BUFFER), sorted-drawing (S3L_SORT), or even
  none of these. See the description of the options in this file.

  The rendering itself is done with S3L_drawScene, usually preceded by
  S3L_newFrame (for clearing zBuffer etc.).

  The library is meant to be used in not so huge programs that use single
  translation unit and so includes both declarations and implementation at once.
  If you for some reason use multiple translation units (which include the
  library), you'll have to handle this yourself (e.g. create a wrapper, manually
  split the library into .c and .h etc.).

  --------------------

  This work's goal is to never be encumbered by any exclusive intellectual
  property rights. The work is therefore provided under CC0 1.0 + additional
  WAIVER OF ALL INTELLECTUAL PROPERTY RIGHTS that waives the rest of
  intellectual property rights not already waived by CC0 1.0. The WAIVER OF ALL
  INTELLECTUAL PROPERTY RGHTS is as follows:

  Each contributor to this work agrees that they waive any exclusive rights,
  including but not limited to copyright, patents, trademark, trade dress,
  industrial design, plant varieties and trade secrets, to any and all ideas,
  concepts, processes, discoveries, improvements and inventions conceived,
  discovered, made, designed, researched or developed by the contributor either
  solely or jointly with others, which relate to this work or result from this
  work. Should any waiver of such right be judged legally invalid or
  ineffective under applicable law, the contributor hereby grants to each
  affected person a royalty-free, non transferable, non sublicensable, non
  exclusive, irrevocable and unconditional license to this right.

  --------------------

  CONVENTIONS:

  This library should never draw pixels outside the specified screen
  boundaries, so you don't have to check this (that would cost CPU time)!

  You can safely assume that triangles are rasterized one by one and from top
  down, left to right (so you can utilize e.g. various caches), and if sorting
  is disabled the order of rasterization will be that specified in the scene
  structure and model arrays (of course, some triangles and models may be
  skipped due to culling etc.).

  Angles are in S3L_Units, a full angle (2 pi) is S3L_FRACTIONS_PER_UNITs.

  We use row vectors.

  In 3D space, a left-handed coord. system is used. One spatial unit is split
  into S3L_FRACTIONS_PER_UNIT fractions (fixed point arithmetic).

     y ^
       |   _ 
       |   /| z
       |  /
       | /
  [0,0,0]-------> x

  Untransformed camera is placed at [0,0,0], looking forward along +z axis. The
  projection plane is centered at [0,0,0], stretrinch from
  -S3L_FRACTIONS_PER_UNIT to S3L_FRACTIONS_PER_UNIT horizontally (x),
  vertical size (y) depends on the aspect ratio (S3L_RESOLUTION_X and
  S3L_RESOLUTION_Y). Camera FOV is defined by focal length in S3L_Units.

           y ^
             |  _
             |  /| z
         ____|_/__
        |    |/   |
     -----[0,0,0]-|-----> x
        |____|____|
             |    
             |

  Rotations use Euler angles and are generally in the extrinsic Euler angles in
  ZXY order (by Z, then by X, then by Y). Positive rotation about an axis
  rotates CW (clock-wise) when looking in the direction of the axis.

  Coordinates of pixels on the screen start at the top left, from [0,0].

  There is NO subpixel accuracy (screen coordinates are only integer).

  Triangle rasterization rules are these (mostly same as OpenGL, D3D etc.):

  - Let's define:
    - left side:
      - not exactly horizontal, and on the left side of triangle
      - exactly horizontal and above the topmost
      (in other words: its normal points at least a little to the left or
       completely up)
    - right side: not left side
  - Pixel centers are at integer coordinates and triangle for drawing are
    specified with integer coordinates of pixel centers.
  - A pixel is rasterized:
    - if its center is inside the triangle OR
    - if its center is exactly on the triangle side which is left and at the
      same time is not on the side that's right (case of a triangle that's on
      a single line) OR
    - if its center is exactly on the triangle corner of sides neither of which
      is right.

  These rules imply among others:

  - Adjacent triangles don't have any overlapping pixels, nor gaps between.
  - Triangles of points that lie on a single line are NOT rasterized.
  - A single "long" triangle CAN be rasterized as isolated islands of pixels.
  - Transforming (e.g. mirroring, rotating by 90 degrees etc.) a result of
    rasterizing triangle A is NOT generally equal to applying the same
    transformation to triangle A first and then rasterizing it. Even the number
    of rasterized pixels is usually different.
  - If specifying a triangle with integer coordinates (which we are), then:
    - The bottom-most corner (or side) of a triangle is never rasterized
      (because it is connected to a right side).
    - The top-most corner can only be rasterized on completely horizontal side
      (otherwise it is connected to a right side).
    - Vertically middle corner is rasterized if and only if it is on the left
      of the triangle and at the same time is also not the bottom-most corner.
*/

#include <stdint.h>

#ifdef S3L_RESOLUTION_X
  #ifdef S3L_RESOLUTION_Y
    #define S3L_MAX_PIXELS (S3L_RESOLUTION_X * S3L_RESOLUTION_Y)
  #endif
#endif

#ifndef S3L_RESOLUTION_X
  #ifndef S3L_MAX_PIXELS
    #error Dynamic resolution set (S3L_RESOLUTION_X not defined), but\
           S3L_MAX_PIXELS not defined!
  #endif

  uint16_t S3L_resolutionX = 512; /**< If a static resolution is not set with
                                       S3L_RESOLUTION_X, this variable can be
                                       used to change X resolution at runtime,
                                       in which case S3L_MAX_PIXELS has to be
                                       defined (to allocate zBuffer etc.)! */
  #define S3L_RESOLUTION_X S3L_resolutionX
#endif

#ifndef S3L_RESOLUTION_Y
  #ifndef S3L_MAX_PIXELS
    #error Dynamic resolution set (S3L_RESOLUTION_Y not defined), but\
           S3L_MAX_PIXELS not defined!
  #endif

  uint16_t S3L_resolutionY = 512; /**< Same as S3L_resolutionX, but for Y
                                       resolution. */
  #define S3L_RESOLUTION_Y S3L_resolutionY
#endif

/** Units of measurement in 3D space. There is S3L_FRACTIONS_PER_UNIT in one
spatial unit. By dividing the unit into fractions we effectively achieve a
fixed point arithmetic. The number of fractions is a constant that serves as
1.0 in floating point arithmetic (normalization etc.). */

typedef int32_t S3L_Unit;    

/** How many fractions a spatial unit is split into. This is NOT SUPPOSED TO
BE REDEFINED, so rather don't do it (otherwise things may overflow etc.). */

#define S3L_FRACTIONS_PER_UNIT 512

typedef int16_t S3L_ScreenCoord;
typedef uint16_t S3L_Index;

#ifndef S3L_STRICT_NEAR_CULLING
  /** If on, any triangle that only partially intersects the near plane will be
  culled. This can prevent errorneous rendering and  artifacts, but also makes
  triangles close to the camera disappear. */

  #define S3L_STRICT_NEAR_CULLING 1 
#endif

#ifndef S3L_FLAT
  /** If on, disables computation of per-pixel values such as barycentric
  coordinates and depth -- these will still be available but will be the same
  for the whole triangle. This can be used to create flat-shaded renders and
  will be a lot faster. With this option on you will probably want to use
  sorting instead of z-buffer. */

  #define S3L_FLAT 0           
#endif

#if S3L_FLAT
  #define S3L_COMPUTE_DEPTH 0
  #define S3L_PERSPECTIVE_CORRECTION 0
  // don't disable z-buffer, it makes sense to use it with no sorting
#endif

#ifndef S3L_PERSPECTIVE_CORRECTION
  /** Specifies what type of perspective correction (PC) to use. Remember this
  is an expensive operation! Possible values:
  - 0: No perspective correction. Fastest, inaccurate from most angles.
  - 1: Per-pixel perspective correction, accurate but very expensive.
  - 2: Approximation (computing only at every S3L_PC_APPROX_LENGTHth pixel). 
       Quake-style approximation is used, which only computes the PC after
       S3L_PC_APPROX_LENGTH pixels. This is reasonably accurate and fast. */

  #define S3L_PERSPECTIVE_CORRECTION 0 
#endif

#ifndef S3L_PC_APPROX_LENGTH
  /** For S3L_PERSPECTIVE_CORRECTION == 2, this specifies after how many pixels
  PC is recomputed. Should be a power of two to keep up the performance.
  Smaller is nicer but slower. */

  #define S3L_PC_APPROX_LENGTH 32
#endif

#if S3L_PERSPECTIVE_CORRECTION
#define S3L_COMPUTE_DEPTH 1  // PC inevitably computes depth, so enable it
#endif

#ifndef S3L_COMPUTE_DEPTH
  /** Whether to compute depth for each pixel (fragment). Some other options
  may turn this on automatically. If you don't need depth information, turning
  this off can save performance. Depth will still be accessible in
  S3L_PixelInfo, but will be constant -- equal to center point depth -- over
  the whole triangle. */
  #define S3L_COMPUTE_DEPTH 1
#endif

#ifndef S3L_Z_BUFFER
  /** What type of z-buffer (depth buffer) to use for visibility determination.
  Possible values:

  - 0: Don't use z-buffer. This saves a lot of memory, but visibility checking
       won't be pixel-accurate and has to mostly be done by other means
       (typically sorting).
  - 1: Use full z-buffer (of S3L_Units) for visibiltiy determination. This is
       the most accurate option (and also a fast one), but requires a big
       amount of memory.
  - 2: Use reduced-size z-buffer (of bytes). This is fast and somewhat
       accurate, but inaccuracies can occur and a considerable amount of memory
       is needed. */

  #define S3L_Z_BUFFER 0 
#endif

#ifndef S3L_REDUCED_Z_BUFFER_GRANULARITY
  /** For S3L_Z_BUFFER == 2 this sets the reduced z-buffer granularity. */

  #define S3L_REDUCED_Z_BUFFER_GRANULARITY 5
#endif

#ifndef S3L_STENCIL_BUFFER
  /** Whether to use stencil buffer for drawing -- with this a pixel that would
  be resterized over an already rasterized pixel (within a frame) will be
  discarded. This is mostly for front-to-back sorted drawing. */

  #define S3L_STENCIL_BUFFER 0 
#endif

#ifndef S3L_SORT
  /** Defines how to sort triangles before drawing a frame. This can be used to
  solve visibility in case z-buffer is not used, to prevent overwriting already
  rasterized pixels, implement transparency etc. Note that for simplicity and
  performance a relatively simple sorting is used which doesn't work completely
  correctly, so mistakes can occur (even the best sorting wouldn't be able to
  solve e.g. intersecting triangles). Note that sorting requires a bit of extra
  memory -- an array of the triangles to sort -- the size of this array limits
  the maximum number of triangles that can be drawn in a single frame
  (S3L_MAX_TRIANGES_DRAWN). Possible values:

  - 0: Don't sort triangles. This is fastest and doesn't use extra memory.
  - 1: Sort triangles from back to front. This can in most cases solve 
       visibility without requiring almost any extra memory compared to 
       z-buffer.
  - 2: Sort triangles from front to back. This can be faster than back to
       front, because we prevent computing pixels that will be overwritten by
       nearer ones, but we need a 1b stencil buffer for this (enable
       S3L_STENCIL_BUFFER), so a bit more memory is needed. */

  #define S3L_SORT 0
#endif

#ifndef S3L_MAX_TRIANGES_DRAWN
  /** Maximum number of triangles that can be drawn in sorted modes. This
  affects the size of the cache used for triangle sorting. */

  #define S3L_MAX_TRIANGES_DRAWN 128 
#endif

#ifndef S3L_NEAR
  /** Distance of the near clipping plane. Points in front or EXATLY ON this
  plane are considered outside the frustum. This must be >= 0. */

  #define S3L_NEAR (S3L_FRACTIONS_PER_UNIT / 4) 
#endif

#if S3L_NEAR <= 0
#define S3L_NEAR 1 // Can't be <= 0.
#endif

#ifndef S3L_NORMAL_COMPUTE_MAXIMUM_AVERAGE
  /** Affects the S3L_computeModelNormals function. See its description for
  details. */

  #define S3L_NORMAL_COMPUTE_MAXIMUM_AVERAGE 6
#endif

#ifndef S3L_FAST_LERP_QUALITY
  /** Quality (scaling) of SOME (stepped) linear interpolations. 0 will most
  likely be a tiny bit faster, but artifacts can occur for bigger tris, while
  higher values can fix this -- in theory all higher values will have the same
  speed (it is a shift value), but it mustn't be too high to prevent
  overflow. */

  #define S3L_FAST_LERP_QUALITY 11 
#endif

/** Vector that consists of four scalars and can represent homogenous
  coordinates, but is generally also used as Vec3 and Vec2 for various
  purposes. */
typedef struct
{
  S3L_Unit x;
  S3L_Unit y;
  S3L_Unit z;
  S3L_Unit w;
} S3L_Vec4;

#define S3L_logVec4(v)\
  printf("Vec4: %d %d %d %d\n",((v).x),((v).y),((v).z),((v).w))

static inline void S3L_initVec4(S3L_Vec4 *v);
static inline void S3L_setVec4(S3L_Vec4 *v, S3L_Unit x, S3L_Unit y,
  S3L_Unit z, S3L_Unit w);
static inline void S3L_vec3Add(S3L_Vec4 *result, S3L_Vec4 added);
static inline void S3L_vec3Sub(S3L_Vec4 *result, S3L_Vec4 substracted);
S3L_Unit S3L_vec3Length(S3L_Vec4 v);

/** Normalizes Vec3. Note that this function tries to normalize correctly
  rather than quickly! If you need to normalize quickly, do it yourself in a
  way that best fits your case. */
void S3L_normalizeVec3(S3L_Vec4 *v);

/** Like S3L_normalizeVec3, but doesn't perform any checks on the input vector,
  which is faster, but can be very innacurate or overflowing. You are supposed
  to provide a "nice" vector (not too big or small). */
static inline void S3L_normalizeVec3Fast(S3L_Vec4 *v);

S3L_Unit S3L_vec2Length(S3L_Vec4 v);
void S3L_crossProduct(S3L_Vec4 a, S3L_Vec4 b, S3L_Vec4 *result);
static inline S3L_Unit S3L_dotProductVec3(S3L_Vec4 a, S3L_Vec4 b);

/** Computes a reflection direction (typically used e.g. for specular component
  in Phong illumination). The input vectors must be normalized. The result will
  be normalized as well. */
void S3L_reflect(S3L_Vec4 toLight, S3L_Vec4 normal, S3L_Vec4 *result);

/** Determines the winding of a triangle, returns 1 (CW, clockwise), -1 (CCW,
  counterclockwise) or 0 (points lie on a single line). */
static inline int8_t S3L_triangleWinding(
  S3L_ScreenCoord x0,
  S3L_ScreenCoord y0, 
  S3L_ScreenCoord x1,
  S3L_ScreenCoord y1,
  S3L_ScreenCoord x2,
  S3L_ScreenCoord y2);

typedef struct
{
  S3L_Vec4 translation;
  S3L_Vec4 rotation; /**< Euler angles. Rortation is applied in this order:
                          1. z = by z (roll) CW looking along z+
                          2. x = by x (pitch) CW looking along x+
                          3. y = by y (yaw) CW looking along y+ */
  S3L_Vec4 scale;
} S3L_Transform3D;

#define S3L_logTransform3D(t)\
  printf("Transform3D: T = [%d %d %d], R = [%d %d %d], S = [%d %d %d]\n",\
    (t).translation.x,(t).translation.y,(t).translation.z,\
    (t).rotation.x,(t).rotation.y,(t).rotation.z,\
    (t).scale.x,(t).scale.y,(t).scale.z)

static inline void S3L_initTransform3D(S3L_Transform3D *t);

void S3L_lookAt(S3L_Vec4 pointTo, S3L_Transform3D *t);

void S3L_setTransform3D(
  S3L_Unit tx,
  S3L_Unit ty,
  S3L_Unit tz,
  S3L_Unit rx,
  S3L_Unit ry,
  S3L_Unit rz,
  S3L_Unit sx,
  S3L_Unit sy,
  S3L_Unit sz,
  S3L_Transform3D *t);

/** Converts rotation transformation to three direction vectors of given length
  (any one can be NULL, in which case it won't be computed). */
void S3L_rotationToDirections(
  S3L_Vec4 rotation,
  S3L_Unit length,
  S3L_Vec4 *forw, 
  S3L_Vec4 *right,
  S3L_Vec4 *up);

/** 4x4 matrix, used mostly for 3D transforms. The indexing is this:
    matrix[column][row]. */
typedef S3L_Unit S3L_Mat4[4][4]; 

#define S3L_logMat4(m)\
  printf("Mat4:\n  %d %d %d %d\n  %d %d %d %d\n  %d %d %d %d\n  %d %d %d %d\n"\
   ,(m)[0][0],(m)[1][0],(m)[2][0],(m)[3][0],\
    (m)[0][1],(m)[1][1],(m)[2][1],(m)[3][1],\
    (m)[0][2],(m)[1][2],(m)[2][2],(m)[3][2],\
    (m)[0][3],(m)[1][3],(m)[2][3],(m)[3][3])

/** Initializes a 4x4 matrix to identity. */
static inline void S3L_initMat4(S3L_Mat4 *m);

void S3L_transposeMat4(S3L_Mat4 *m);

void S3L_makeTranslationMat(
  S3L_Unit offsetX,
  S3L_Unit offsetY,
  S3L_Unit offsetZ,
  S3L_Mat4 *m);

/** Makes a scaling matrix. DON'T FORGET: scale of 1.0 is set with
  S3L_FRACTIONS_PER_UNIT! */
void S3L_makeScaleMatrix(
  S3L_Unit scaleX,
  S3L_Unit scaleY,
  S3L_Unit scaleZ,
  S3L_Mat4 *m);

/** Makes a matrix for rotation in the ZXY order. */
void S3L_makeRotationMatrixZXY(
  S3L_Unit byX,
  S3L_Unit byY,
  S3L_Unit byZ,
  S3L_Mat4 *m);

void S3L_makeWorldMatrix(S3L_Transform3D worldTransform, S3L_Mat4 *m);
void S3L_makeCameraMatrix(S3L_Transform3D cameraTransform, S3L_Mat4 *m);

/** Multiplies a vector by a matrix with normalization by
  S3L_FRACTIONS_PER_UNIT. Result is stored in the input vector. */
void S3L_vec4Xmat4(S3L_Vec4 *v, S3L_Mat4 *m);

/** Same as S3L_vec4Xmat4 but faster, because this version doesn't compute the
  W component of the result, which is usually not needed. */
void S3L_vec3Xmat4(S3L_Vec4 *v, S3L_Mat4 *m);

/** Multiplies two matrices with normalization by S3L_FRACTIONS_PER_UNIT.
  Result is stored in the first matrix. The result represents a transformation
  that has the same effect as applying the transformation represented by m1 and
  then m2 (in that order). */
void S3L_mat4Xmat4(S3L_Mat4 *m1, S3L_Mat4 *m2);

typedef struct
{
  S3L_Unit focalLength;       ///< Defines the field of view (FOV).
  S3L_Transform3D transform;
} S3L_Camera;

void S3L_initCamera(S3L_Camera *camera);

typedef struct
{
  uint8_t backfaceCulling;    /**< What backface culling to use. Possible
                                   values:
                                   - 0 none
                                   - 1 clock-wise
                                   - 2 counter clock-wise */
  int8_t visible;             /**< Can be used to easily hide the model. */
} S3L_DrawConfig;

void S3L_initDrawConfig(S3L_DrawConfig *config);

typedef struct
{
  const S3L_Unit *vertices;
  S3L_Index vertexCount;
  const S3L_Index *triangles;
  S3L_Index triangleCount;
  S3L_Transform3D transform;
  S3L_Mat4 *customTransformMatrix; /**< This can be used to override the
                                     transform (if != 0) with a custom
                                     transform matrix, which is more
                                     general. */
  S3L_DrawConfig config;
} S3L_Model3D;                ///< Represents a 3D model.

void S3L_initModel3D(
  const S3L_Unit *vertices,
  S3L_Unit vertexCount,
  const S3L_Index *triangles,
  S3L_Index triangleCount,
  S3L_Model3D *model);

typedef struct
{
  S3L_Model3D *models;
  S3L_Index modelCount;
  S3L_Camera camera;
} S3L_Scene;                  ///< Represent the 3D scene to be rendered.

void S3L_initScene(
  S3L_Model3D *models,
  S3L_Index modelCount,
  S3L_Scene *scene);

typedef struct
{
  S3L_ScreenCoord x;          ///< Screen X coordinate.
  S3L_ScreenCoord y;          ///< Screen Y coordinate.

  S3L_Unit barycentric[3]; /**< Barycentric coords correspond to the three
                              vertices. These serve to locate the pixel on a
                              triangle and interpolate values between it's
                              three points. Each one goes from 0 to
                              S3L_FRACTIONS_PER_UNIT (including), but due to
                              rounding error may fall outside this range (you
                              can use S3L_correctBarycentricCoords to fix this
                              for the price of some performance). The sum of
                              the three coordinates will always be exactly
                              S3L_FRACTIONS_PER_UNIT. */
  S3L_Index modelIndex;    ///< Model index within the scene.
  S3L_Index triangleIndex; ///< Triangle index within the model.
  uint32_t triangleID;     /**< Unique ID of the triangle withing the whole
                               scene. This can be used e.g. by a cache to
                               quickly find out if a triangle has changed. */
  S3L_Unit depth;         ///< Depth (only if depth is turned on).
  S3L_Unit previousZ;     /**< Z-buffer value (not necessarily world depth in
                               S3L_Units!) that was in the z-buffer on the
                               pixels position before this pixel was
                               rasterized. This can be used to set the value
                               back, e.g. for transparency. */
  S3L_ScreenCoord triangleSize[2]; /**< Rasterized triangle width and height,
                              can be used e.g. for MIP mapping. */
} S3L_PixelInfo;         /**< Used to pass the info about a rasterized pixel
                              (fragment) to the user-defined drawing func. */

static inline void S3L_initPixelInfo(S3L_PixelInfo *p);

/** Corrects barycentric coordinates so that they exactly meet the defined
  conditions (each fall into <0,S3L_FRACTIONS_PER_UNIT>, sum =
  S3L_FRACTIONS_PER_UNIT). Note that doing this per-pixel can slow the program
  down significantly. */
static inline void S3L_correctBarycentricCoords(S3L_Unit barycentric[3]);

// general helper functions
static inline S3L_Unit S3L_abs(S3L_Unit value);
static inline S3L_Unit S3L_min(S3L_Unit v1, S3L_Unit v2);
static inline S3L_Unit S3L_max(S3L_Unit v1, S3L_Unit v2);
static inline S3L_Unit S3L_clamp(S3L_Unit v, S3L_Unit v1, S3L_Unit v2);
static inline S3L_Unit S3L_wrap(S3L_Unit value, S3L_Unit mod);
static inline S3L_Unit S3L_nonZero(S3L_Unit value);
static inline S3L_Unit S3L_zeroClamp(S3L_Unit value);

S3L_Unit S3L_sin(S3L_Unit x);
S3L_Unit S3L_asin(S3L_Unit x);
static inline S3L_Unit S3L_cos(S3L_Unit x);

S3L_Unit S3L_vec3Length(S3L_Vec4 v);
S3L_Unit S3L_sqrt(S3L_Unit value);

/** Projects a single point from 3D space to the screen space (pixels), which
  can be useful e.g. for drawing sprites. The w component of input and result
  holds the point size. If this size is 0 in the result, the sprite is outside
  the view. */
void project3DPointToScreen(
  S3L_Vec4 point,
  S3L_Camera camera,
  S3L_Vec4 *result);

/** Computes a normalized normal of given triangle. */
void S3L_triangleNormal(S3L_Vec4 t0, S3L_Vec4 t1, S3L_Vec4 t2,
  S3L_Vec4 *n);

/** Helper function for retrieving per-vertex indexed values from an array,
  e.g. texturing (UV) coordinates. The 'indices' array contains three indices
  for each triangle, each index pointing into 'values' array, which contains
  the values, each one consisting of 'numComponents' components (e.g. 2 for
  UV coordinates). The three values are retrieved into 'v0', 'v1' and 'v2'
  vectors (into x, y, z and w, depending on 'numComponents'). This function is
  meant to be used per-triangle (typically from a cache), NOT per-pixel, as it
  is not as fast as possible! */
void S3L_getIndexedTriangleValues(
  S3L_Index triangleIndex,
  const S3L_Index *indices,
  const S3L_Unit *values,
  uint8_t numComponents,
  S3L_Vec4 *v0,
  S3L_Vec4 *v1,
  S3L_Vec4 *v2);

/** Computes a normalized normal for every vertex of given model (this is
  relatively slow and SHOUDN'T be done each frame). The dst array must have a
  sufficient size preallocated! The size is: number of model vertices * 3 *
  sizeof(S3L_Unit). Note that for advanced allowing sharp edges it is not
  sufficient to have per-vertex normals, but must be per-triangle. This
  function doesn't support this. 

  The function computes a normal for each vertex by averaging normals of
  the triangles containing the vertex. The maximum number of these triangle
  normals that will be averaged is set with
  S3L_NORMAL_COMPUTE_MAXIMUM_AVERAGE. */
void S3L_computeModelNormals(S3L_Model3D model, S3L_Unit *dst,
  int8_t transformNormals);

/** Interpolated between two values, v1 and v2, in the same ratio as t is to
  tMax. Does NOT prevent zero division. */
static inline S3L_Unit S3L_interpolate(
  S3L_Unit v1,
  S3L_Unit v2,
  S3L_Unit t,
  S3L_Unit tMax);

/** Same as S3L_interpolate but with v1 == 0. Should be faster. */
static inline S3L_Unit S3L_interpolateFrom0(
  S3L_Unit v2,
  S3L_Unit t,
  S3L_Unit tMax);

/** Like S3L_interpolate, but uses a parameter that goes from 0 to
  S3L_FRACTIONS_PER_UNIT - 1, which can be faster. */
static inline S3L_Unit S3L_interpolateByUnit(
  S3L_Unit v1,
  S3L_Unit v2,
  S3L_Unit t);

/** Same as S3L_interpolateByUnit but with v1 == 0. Should be faster. */
static inline S3L_Unit S3L_interpolateByUnitFrom0(
  S3L_Unit v2,
  S3L_Unit t);

static inline S3L_Unit S3L_distanceManhattan(S3L_Vec4 a, S3L_Vec4 b);

/** Returns a value interpolated between the three triangle vertices based on
  barycentric coordinates. */
static inline S3L_Unit S3L_interpolateBarycentric(
  S3L_Unit value0,
  S3L_Unit value1,
  S3L_Unit value2,
  S3L_Unit barycentric[3]);

static inline void S3L_mapProjectionPlaneToScreen(
  S3L_Vec4 point,
  S3L_ScreenCoord *screenX,
  S3L_ScreenCoord *screenY);

/** Draws a triangle according to given config. The vertices are specified in
  Screen Space space (pixels). If perspective correction is enabled, each
  vertex has to have a depth (Z position in camera space) specified in the Z
  component. */
void S3L_drawTriangle(
  S3L_Vec4 point0,
  S3L_Vec4 point1,
  S3L_Vec4 point2,
  S3L_Index modelIndex,
  S3L_Index triangleIndex);

/** This should be called before rendering each frame. The function clears
  buffers and does potentially other things needed for the frame. */
void S3L_newFrame(void);

void S3L_zBufferClear(void);
void S3L_stencilBufferClear(void);

/** Writes a value (not necessarily depth! depends on the format of z-buffer)
  to z-buffer (if enabled). Does NOT check boundaries! */
void S3L_zBufferWrite(S3L_ScreenCoord x, S3L_ScreenCoord y, S3L_Unit value);

/** Reads a value (not necessarily depth! depends on the format of z-buffer)
  from z-buffer (if enabled). Does NOT check boundaries! */
S3L_Unit S3L_zBufferRead(S3L_ScreenCoord x, S3L_ScreenCoord y);

static inline void S3L_rotate2DPoint(S3L_Unit *x, S3L_Unit *y, S3L_Unit angle);

/** Predefined vertices of a cube to simply insert in an array. These come with
    S3L_CUBE_TRIANGLES and S3L_CUBE_TEXCOORDS. */
#define S3L_CUBE_VERTICES(m)\
 /* 0 front, bottom, right */\
 m/2, -m/2, -m/2,\
 /* 1 front, bottom, left */\
-m/2, -m/2, -m/2,\
 /* 2 front, top,    right */\
 m/2,  m/2, -m/2,\
 /* 3 front, top,    left */\
-m/2,  m/2, -m/2,\
 /* 4 back,  bottom, right */\
 m/2, -m/2,  m/2,\
 /* 5 back,  bottom, left */\
-m/2, -m/2,  m/2,\
 /* 6 back,  top,    right */\
 m/2,  m/2,  m/2,\
 /* 7 back,  top,    left */\
-m/2,  m/2,  m/2

#define S3L_CUBE_VERTEX_COUNT 8

/** Predefined triangle indices of a cube, to be used with S3L_CUBE_VERTICES
    and S3L_CUBE_TEXCOORDS. */
#define S3L_CUBE_TRIANGLES\
  3, 0, 2, /* front  */\
  1, 0, 3,\
  0, 4, 2, /* right  */\
  2, 4, 6,\
  4, 5, 6, /* back   */\
  7, 6, 5,\
  3, 7, 1, /* left   */\
  1, 7, 5,\
  6, 3, 2, /* top    */\
  7, 3, 6,\
  1, 4, 0, /* bottom */\
  5, 4, 1

#define S3L_CUBE_TRIANGLE_COUNT 12

/** Predefined texture coordinates of a cube, corresponding to triangles (NOT
    vertices), to be used with S3L_CUBE_VERTICES and S3L_CUBE_TRIANGLES. */
#define S3L_CUBE_TEXCOORDS(m)\
  0,0,  m,m,  m,0,\
  0,m,  m,m,  0,0,\
  m,m,  m,0,  0,m,\
  0,m,  m,0,  0,0,\
  m,0,  0,0,  m,m,\
  0,m,  m,m,  0,0,\
  0,0,  0,m,  m,0,\
  m,0,  0,m,  m,m,\
  0,0,  m,m,  m,0,\
  0,m,  m,m,  0,0,\
  m,0,  0,m,  m,m,\
  0,0,  0,m,  m,0

//=============================================================================
// privates

#define S3L_UNUSED(what) (void)(what) ///< helper macro for unused vars

#define S3L_HALF_RESOLUTION_X (S3L_RESOLUTION_X >> 1)
#define S3L_HALF_RESOLUTION_Y (S3L_RESOLUTION_Y >> 1)

#define S3L_PROJECTION_PLANE_HEIGHT\
  ((S3L_RESOLUTION_Y * S3L_FRACTIONS_PER_UNIT * 2) / S3L_RESOLUTION_X)

#if S3L_Z_BUFFER == 1
  #define S3L_MAX_DEPTH 2147483647
  S3L_Unit S3L_zBuffer[S3L_MAX_PIXELS];
  #define S3L_zBufferFormat(depth) (depth)
#elif S3L_Z_BUFFER == 2
  #define S3L_MAX_DEPTH 255
  uint8_t S3L_zBuffer[S3L_MAX_PIXELS];
  #define S3L_zBufferFormat(depth)\
    S3L_min(255,(depth) >> S3L_REDUCED_Z_BUFFER_GRANULARITY)
#endif

#if S3L_Z_BUFFER
static inline int8_t S3L_zTest(
  S3L_ScreenCoord x,
  S3L_ScreenCoord y,
  S3L_Unit depth)
{
  uint32_t index = y * S3L_RESOLUTION_X + x;

  depth = S3L_zBufferFormat(depth);

#if S3L_Z_BUFFER == 2
  #define cmp <= /* For reduced z-buffer we need equality test, because
                    otherwise pixels at the maximum depth (255) would never be
                    drawn over the background (which also has the depth of
                    255). */
#else
  #define cmp <  /* For normal z-buffer we leave out equality test to not waste
                    time by drawing over already drawn pixls. */
#endif

  if (depth cmp S3L_zBuffer[index])
  {
    S3L_zBuffer[index] = depth;
    return 1;
  }

#undef cmp

  return 0;
}
#endif

S3L_Unit S3L_zBufferRead(S3L_ScreenCoord x, S3L_ScreenCoord y)
{
#if S3L_Z_BUFFER
  return S3L_zBuffer[y * S3L_RESOLUTION_X + x];
#else
  S3L_UNUSED(x);
  S3L_UNUSED(y);

  return 0;
#endif
}

void S3L_zBufferWrite(S3L_ScreenCoord x, S3L_ScreenCoord y, S3L_Unit value)
{
#if S3L_Z_BUFFER
  S3L_zBuffer[y * S3L_RESOLUTION_X + x] = value;
#else
  S3L_UNUSED(x);
  S3L_UNUSED(y);
  S3L_UNUSED(value);
#endif
}

#if S3L_STENCIL_BUFFER
  #define S3L_STENCIL_BUFFER_SIZE\
    ((S3L_RESOLUTION_X * S3L_RESOLUTION_Y - 1) / 8 + 1)

uint8_t S3L_stencilBuffer[S3L_STENCIL_BUFFER_SIZE];

static inline int8_t S3L_stencilTest(
  S3L_ScreenCoord x,
  S3L_ScreenCoord y)
{
  uint32_t index = y * S3L_RESOLUTION_X + x;
  uint32_t bit = (index & 0x00000007);
  index = index >> 3;

  uint8_t val = S3L_stencilBuffer[index];

  if ((val >> bit) & 0x1)
    return 0;
  
  S3L_stencilBuffer[index] = val | (0x1 << bit);

  return 1;
}
#endif

#define S3L_COMPUTE_LERP_DEPTH\
  (S3L_COMPUTE_DEPTH && (S3L_PERSPECTIVE_CORRECTION == 0))

#define S3L_SIN_TABLE_LENGTH 128

static const S3L_Unit S3L_sinTable[S3L_SIN_TABLE_LENGTH] =
{
  /* 511 was chosen here as a highest number that doesn't overflow during
     compilation for S3L_FRACTIONS_PER_UNIT == 1024 */

  (0*S3L_FRACTIONS_PER_UNIT)/511, (6*S3L_FRACTIONS_PER_UNIT)/511, 
  (12*S3L_FRACTIONS_PER_UNIT)/511, (18*S3L_FRACTIONS_PER_UNIT)/511, 
  (25*S3L_FRACTIONS_PER_UNIT)/511, (31*S3L_FRACTIONS_PER_UNIT)/511, 
  (37*S3L_FRACTIONS_PER_UNIT)/511, (43*S3L_FRACTIONS_PER_UNIT)/511, 
  (50*S3L_FRACTIONS_PER_UNIT)/511, (56*S3L_FRACTIONS_PER_UNIT)/511, 
  (62*S3L_FRACTIONS_PER_UNIT)/511, (68*S3L_FRACTIONS_PER_UNIT)/511, 
  (74*S3L_FRACTIONS_PER_UNIT)/511, (81*S3L_FRACTIONS_PER_UNIT)/511, 
  (87*S3L_FRACTIONS_PER_UNIT)/511, (93*S3L_FRACTIONS_PER_UNIT)/511, 
  (99*S3L_FRACTIONS_PER_UNIT)/511, (105*S3L_FRACTIONS_PER_UNIT)/511, 
  (111*S3L_FRACTIONS_PER_UNIT)/511, (118*S3L_FRACTIONS_PER_UNIT)/511, 
  (124*S3L_FRACTIONS_PER_UNIT)/511, (130*S3L_FRACTIONS_PER_UNIT)/511, 
  (136*S3L_FRACTIONS_PER_UNIT)/511, (142*S3L_FRACTIONS_PER_UNIT)/511, 
  (148*S3L_FRACTIONS_PER_UNIT)/511, (154*S3L_FRACTIONS_PER_UNIT)/511, 
  (160*S3L_FRACTIONS_PER_UNIT)/511, (166*S3L_FRACTIONS_PER_UNIT)/511, 
  (172*S3L_FRACTIONS_PER_UNIT)/511, (178*S3L_FRACTIONS_PER_UNIT)/511, 
  (183*S3L_FRACTIONS_PER_UNIT)/511, (189*S3L_FRACTIONS_PER_UNIT)/511, 
  (195*S3L_FRACTIONS_PER_UNIT)/511, (201*S3L_FRACTIONS_PER_UNIT)/511, 
  (207*S3L_FRACTIONS_PER_UNIT)/511, (212*S3L_FRACTIONS_PER_UNIT)/511, 
  (218*S3L_FRACTIONS_PER_UNIT)/511, (224*S3L_FRACTIONS_PER_UNIT)/511, 
  (229*S3L_FRACTIONS_PER_UNIT)/511, (235*S3L_FRACTIONS_PER_UNIT)/511, 
  (240*S3L_FRACTIONS_PER_UNIT)/511, (246*S3L_FRACTIONS_PER_UNIT)/511, 
  (251*S3L_FRACTIONS_PER_UNIT)/511, (257*S3L_FRACTIONS_PER_UNIT)/511, 
  (262*S3L_FRACTIONS_PER_UNIT)/511, (268*S3L_FRACTIONS_PER_UNIT)/511, 
  (273*S3L_FRACTIONS_PER_UNIT)/511, (278*S3L_FRACTIONS_PER_UNIT)/511, 
  (283*S3L_FRACTIONS_PER_UNIT)/511, (289*S3L_FRACTIONS_PER_UNIT)/511, 
  (294*S3L_FRACTIONS_PER_UNIT)/511, (299*S3L_FRACTIONS_PER_UNIT)/511, 
  (304*S3L_FRACTIONS_PER_UNIT)/511, (309*S3L_FRACTIONS_PER_UNIT)/511, 
  (314*S3L_FRACTIONS_PER_UNIT)/511, (319*S3L_FRACTIONS_PER_UNIT)/511, 
  (324*S3L_FRACTIONS_PER_UNIT)/511, (328*S3L_FRACTIONS_PER_UNIT)/511, 
  (333*S3L_FRACTIONS_PER_UNIT)/511, (338*S3L_FRACTIONS_PER_UNIT)/511, 
  (343*S3L_FRACTIONS_PER_UNIT)/511, (347*S3L_FRACTIONS_PER_UNIT)/511, 
  (352*S3L_FRACTIONS_PER_UNIT)/511, (356*S3L_FRACTIONS_PER_UNIT)/511, 
  (361*S3L_FRACTIONS_PER_UNIT)/511, (365*S3L_FRACTIONS_PER_UNIT)/511, 
  (370*S3L_FRACTIONS_PER_UNIT)/511, (374*S3L_FRACTIONS_PER_UNIT)/511, 
  (378*S3L_FRACTIONS_PER_UNIT)/511, (382*S3L_FRACTIONS_PER_UNIT)/511, 
  (386*S3L_FRACTIONS_PER_UNIT)/511, (391*S3L_FRACTIONS_PER_UNIT)/511, 
  (395*S3L_FRACTIONS_PER_UNIT)/511, (398*S3L_FRACTIONS_PER_UNIT)/511, 
  (402*S3L_FRACTIONS_PER_UNIT)/511, (406*S3L_FRACTIONS_PER_UNIT)/511, 
  (410*S3L_FRACTIONS_PER_UNIT)/511, (414*S3L_FRACTIONS_PER_UNIT)/511, 
  (417*S3L_FRACTIONS_PER_UNIT)/511, (421*S3L_FRACTIONS_PER_UNIT)/511, 
  (424*S3L_FRACTIONS_PER_UNIT)/511, (428*S3L_FRACTIONS_PER_UNIT)/511, 
  (431*S3L_FRACTIONS_PER_UNIT)/511, (435*S3L_FRACTIONS_PER_UNIT)/511, 
  (438*S3L_FRACTIONS_PER_UNIT)/511, (441*S3L_FRACTIONS_PER_UNIT)/511, 
  (444*S3L_FRACTIONS_PER_UNIT)/511, (447*S3L_FRACTIONS_PER_UNIT)/511, 
  (450*S3L_FRACTIONS_PER_UNIT)/511, (453*S3L_FRACTIONS_PER_UNIT)/511, 
  (456*S3L_FRACTIONS_PER_UNIT)/511, (459*S3L_FRACTIONS_PER_UNIT)/511, 
  (461*S3L_FRACTIONS_PER_UNIT)/511, (464*S3L_FRACTIONS_PER_UNIT)/511, 
  (467*S3L_FRACTIONS_PER_UNIT)/511, (469*S3L_FRACTIONS_PER_UNIT)/511, 
  (472*S3L_FRACTIONS_PER_UNIT)/511, (474*S3L_FRACTIONS_PER_UNIT)/511, 
  (476*S3L_FRACTIONS_PER_UNIT)/511, (478*S3L_FRACTIONS_PER_UNIT)/511, 
  (481*S3L_FRACTIONS_PER_UNIT)/511, (483*S3L_FRACTIONS_PER_UNIT)/511, 
  (485*S3L_FRACTIONS_PER_UNIT)/511, (487*S3L_FRACTIONS_PER_UNIT)/511, 
  (488*S3L_FRACTIONS_PER_UNIT)/511, (490*S3L_FRACTIONS_PER_UNIT)/511, 
  (492*S3L_FRACTIONS_PER_UNIT)/511, (494*S3L_FRACTIONS_PER_UNIT)/511, 
  (495*S3L_FRACTIONS_PER_UNIT)/511, (497*S3L_FRACTIONS_PER_UNIT)/511, 
  (498*S3L_FRACTIONS_PER_UNIT)/511, (499*S3L_FRACTIONS_PER_UNIT)/511, 
  (501*S3L_FRACTIONS_PER_UNIT)/511, (502*S3L_FRACTIONS_PER_UNIT)/511, 
  (503*S3L_FRACTIONS_PER_UNIT)/511, (504*S3L_FRACTIONS_PER_UNIT)/511, 
  (505*S3L_FRACTIONS_PER_UNIT)/511, (506*S3L_FRACTIONS_PER_UNIT)/511, 
  (507*S3L_FRACTIONS_PER_UNIT)/511, (507*S3L_FRACTIONS_PER_UNIT)/511, 
  (508*S3L_FRACTIONS_PER_UNIT)/511, (509*S3L_FRACTIONS_PER_UNIT)/511, 
  (509*S3L_FRACTIONS_PER_UNIT)/511, (510*S3L_FRACTIONS_PER_UNIT)/511, 
  (510*S3L_FRACTIONS_PER_UNIT)/511, (510*S3L_FRACTIONS_PER_UNIT)/511, 
  (510*S3L_FRACTIONS_PER_UNIT)/511, (510*S3L_FRACTIONS_PER_UNIT)/511
};

#define S3L_SIN_TABLE_UNIT_STEP\
  (S3L_FRACTIONS_PER_UNIT / (S3L_SIN_TABLE_LENGTH * 4))

void S3L_initVec4(S3L_Vec4 *v)
{
  v->x = 0; v->y = 0; v->z = 0; v->w = S3L_FRACTIONS_PER_UNIT;
}

void S3L_setVec4(S3L_Vec4 *v, S3L_Unit x, S3L_Unit y, S3L_Unit z, S3L_Unit w)
{
  v->x = x;
  v->y = y;
  v->z = z;
  v->w = w;
}

void S3L_vec3Add(S3L_Vec4 *result, S3L_Vec4 added)
{
  result->x += added.x;
  result->y += added.y;
  result->z += added.z;
}

void S3L_vec3Sub(S3L_Vec4 *result, S3L_Vec4 substracted)
{
  result->x -= substracted.x;
  result->y -= substracted.y;
  result->z -= substracted.z;
}

void S3L_initMat4(S3L_Mat4 *m)
{
  #define M(x,y) (*m)[x][y]
  #define S S3L_FRACTIONS_PER_UNIT

  M(0,0) = S; M(1,0) = 0; M(2,0) = 0; M(3,0) = 0; 
  M(0,1) = 0; M(1,1) = S; M(2,1) = 0; M(3,1) = 0; 
  M(0,2) = 0; M(1,2) = 0; M(2,2) = S; M(3,2) = 0; 
  M(0,3) = 0; M(1,3) = 0; M(2,3) = 0; M(3,3) = S; 

  #undef M
  #undef S
}

S3L_Unit S3L_dotProductVec3(S3L_Vec4 a, S3L_Vec4 b)
{
  return (a.x * b.x + a.y * b.y + a.z * b.z) / S3L_FRACTIONS_PER_UNIT;
}

void S3L_reflect(S3L_Vec4 toLight, S3L_Vec4 normal, S3L_Vec4 *result)
{
  S3L_Unit d = 2 * S3L_dotProductVec3(toLight,normal);

  result->x = (normal.x * d) / S3L_FRACTIONS_PER_UNIT - toLight.x;
  result->y = (normal.y * d) / S3L_FRACTIONS_PER_UNIT - toLight.y;
  result->z = (normal.z * d) / S3L_FRACTIONS_PER_UNIT - toLight.z;
}

void S3L_crossProduct(S3L_Vec4 a, S3L_Vec4 b, S3L_Vec4 *result)
{
  result->x = a.y * b.z - a.z * b.y;
  result->y = a.z * b.x - a.x * b.z;
  result->z = a.x * b.y - a.y * b.x;
}

void S3L_triangleNormal(S3L_Vec4 t0, S3L_Vec4 t1, S3L_Vec4 t2, S3L_Vec4 *n)
{
  #define ANTI_OVERFLOW 32

  t1.x = (t1.x - t0.x) / ANTI_OVERFLOW;
  t1.y = (t1.y - t0.y) / ANTI_OVERFLOW;
  t1.z = (t1.z - t0.z) / ANTI_OVERFLOW;

  t2.x = (t2.x - t0.x) / ANTI_OVERFLOW;
  t2.y = (t2.y - t0.y) / ANTI_OVERFLOW;
  t2.z = (t2.z - t0.z) / ANTI_OVERFLOW;

  #undef ANTI_OVERFLOW

  S3L_crossProduct(t1,t2,n);

  S3L_normalizeVec3(n);
}

void S3L_getIndexedTriangleValues(
  S3L_Index triangleIndex,
  const S3L_Index *indices,
  const S3L_Unit *values,
  uint8_t numComponents,
  S3L_Vec4 *v0,
  S3L_Vec4 *v1,
  S3L_Vec4 *v2)
{
  uint32_t i0, i1;
  S3L_Unit *value;

  i0 = triangleIndex * 3;
  i1 = indices[i0] * numComponents;
  value = (S3L_Unit *) v0;

  if (numComponents > 4)
    numComponents = 4;

  for (uint8_t j = 0; j < numComponents; ++j)
  {
    *value = values[i1];
    i1++;
    value++;
  }

  i0++;
  i1 = indices[i0] * numComponents;
  value = (S3L_Unit *) v1;

  for (uint8_t j = 0; j < numComponents; ++j)
  {
    *value = values[i1];
    i1++;
    value++;
  }

  i0++;
  i1 = indices[i0] * numComponents;
  value = (S3L_Unit *) v2;

  for (uint8_t j = 0; j < numComponents; ++j)
  {
    *value = values[i1];
    i1++;
    value++;
  }
}

void S3L_computeModelNormals(S3L_Model3D model, S3L_Unit *dst,
  int8_t transformNormals)
{
  S3L_Index vPos = 0;

  S3L_Vec4 n;

  n.w = 0;

  S3L_Vec4 ns[S3L_NORMAL_COMPUTE_MAXIMUM_AVERAGE];
  S3L_Index normalCount;

  for (uint32_t i = 0; i < model.vertexCount; ++i)
  {
    normalCount = 0;

    for (uint32_t j = 0; j < model.triangleCount * 3; j += 3)
    {
      if (
        (model.triangles[j] == i) ||
        (model.triangles[j + 1] == i) ||
        (model.triangles[j + 2] == i))
      {    
        S3L_Vec4 t0, t1, t2;
        uint32_t vIndex;

        #define getVertex(n)\
          vIndex = model.triangles[j + n] * 3;\
          t##n.x = model.vertices[vIndex];\
          vIndex++;\
          t##n.y = model.vertices[vIndex];\
          vIndex++;\
          t##n.z = model.vertices[vIndex];

        getVertex(0)
        getVertex(1)
        getVertex(2)

        #undef getVertex
        
        S3L_triangleNormal(t0,t1,t2,&(ns[normalCount]));    

        normalCount++;

        if (normalCount >= S3L_NORMAL_COMPUTE_MAXIMUM_AVERAGE)
          break;
      }
    }
      
    n.x = S3L_FRACTIONS_PER_UNIT;
    n.y = 0;
    n.z = 0;

    if (normalCount != 0)
    {
      // compute average

      n.x = 0;

      for (uint8_t i = 0; i < normalCount; ++i)
      {
        n.x += ns[i].x;
        n.y += ns[i].y;
        n.z += ns[i].z;
      }

      n.x /= normalCount;
      n.y /= normalCount;
      n.z /= normalCount;

      S3L_normalizeVec3(&n);
    }

    dst[vPos] = n.x;
    vPos++;

    dst[vPos] = n.y;
    vPos++;

    dst[vPos] = n.z;
    vPos++;
  }
    
  S3L_Mat4 m;

  S3L_makeWorldMatrix(model.transform,&m);

  if (transformNormals)
    for (S3L_Index i = 0; i < model.vertexCount * 3; i += 3)
    {
      n.x = dst[i];
      n.y = dst[i + 1];
      n.z = dst[i + 2];

      S3L_vec4Xmat4(&n,&m);

      dst[i] = n.x;
      dst[i + 1] = n.y;
      dst[i + 2] = n.z;
    }
}

void S3L_vec4Xmat4(S3L_Vec4 *v, S3L_Mat4 *m)
{
  S3L_Vec4 vBackup;

  vBackup.x = v->x;  
  vBackup.y = v->y;  
  vBackup.z = v->z;  
  vBackup.w = v->w;  

  #define dotCol(col)\
    ((vBackup.x * (*m)[col][0]) +\
     (vBackup.y * (*m)[col][1]) +\
     (vBackup.z * (*m)[col][2]) +\
     (vBackup.w * (*m)[col][3])) / S3L_FRACTIONS_PER_UNIT

  v->x = dotCol(0);
  v->y = dotCol(1);
  v->z = dotCol(2);
  v->w = dotCol(3);
}

void S3L_vec3Xmat4(S3L_Vec4 *v, S3L_Mat4 *m)
{
  S3L_Vec4 vBackup;

  #undef dotCol
  #define dotCol(col)\
    (vBackup.x * (*m)[col][0]) / S3L_FRACTIONS_PER_UNIT +\
    (vBackup.y * (*m)[col][1]) / S3L_FRACTIONS_PER_UNIT +\
    (vBackup.z * (*m)[col][2]) / S3L_FRACTIONS_PER_UNIT +\
    (*m)[col][3]

  vBackup.x = v->x;  
  vBackup.y = v->y;  
  vBackup.z = v->z;  
  vBackup.w = v->w;  

  v->x = dotCol(0);
  v->y = dotCol(1);
  v->z = dotCol(2);
  v->w = S3L_FRACTIONS_PER_UNIT;
}

#undef dotCol

S3L_Unit S3L_abs(S3L_Unit value)
{
  return value * (((value >= 0) << 1) - 1);
}

S3L_Unit S3L_min(S3L_Unit v1, S3L_Unit v2)
{
  return v1 >= v2 ? v2 : v1;
}

S3L_Unit S3L_max(S3L_Unit v1, S3L_Unit v2)
{
  return v1 >= v2 ? v1 : v2;
}

S3L_Unit S3L_clamp(S3L_Unit v, S3L_Unit v1, S3L_Unit v2)
{
  return v >= v1 ? (v <= v2 ? v : v2) : v1;
}

S3L_Unit S3L_zeroClamp(S3L_Unit value)
{
  return (value * (value >= 0));
}

S3L_Unit S3L_wrap(S3L_Unit value, S3L_Unit mod)
{
  return value >= 0 ? (value % mod) : (mod + (value % mod) - 1);
}

S3L_Unit S3L_nonZero(S3L_Unit value)
{
  return (value + (value == 0));
}

S3L_Unit S3L_interpolate(S3L_Unit v1, S3L_Unit v2, S3L_Unit t, S3L_Unit tMax)
{
  return v1 + ((v2 - v1) * t) / tMax;
}

S3L_Unit S3L_interpolateByUnit(S3L_Unit v1, S3L_Unit v2, S3L_Unit t)
{
  return v1 + ((v2 - v1) * t) / S3L_FRACTIONS_PER_UNIT;
}

S3L_Unit S3L_interpolateByUnitFrom0(S3L_Unit v2, S3L_Unit t)
{
  return (v2 * t) / S3L_FRACTIONS_PER_UNIT;
}

S3L_Unit S3L_interpolateFrom0(S3L_Unit v2, S3L_Unit t, S3L_Unit tMax)
{
  return (v2 * t) / tMax;
}

S3L_Unit S3L_distanceManhattan(S3L_Vec4 a, S3L_Vec4 b)
{
  return
    S3L_abs(a.x - b.x) +
    S3L_abs(a.y - b.y) +
    S3L_abs(a.z - b.z);
}

void S3L_mat4Xmat4(S3L_Mat4 *m1, S3L_Mat4 *m2)
{
  S3L_Mat4 mat1;

  for (uint16_t row = 0; row < 4; ++row)
    for (uint16_t col = 0; col < 4; ++col)
      mat1[col][row] = (*m1)[col][row];

  for (uint16_t row = 0; row < 4; ++row)
    for (uint16_t col = 0; col < 4; ++col)
    {
      (*m1)[col][row] = 0;

      for (uint16_t i = 0; i < 4; ++i)
        (*m1)[col][row] +=
          (mat1[i][row] * (*m2)[col][i]) / S3L_FRACTIONS_PER_UNIT;
    }
}

S3L_Unit S3L_sin(S3L_Unit x)
{
  x = S3L_wrap(x / S3L_SIN_TABLE_UNIT_STEP,S3L_SIN_TABLE_LENGTH * 4);
  int8_t positive = 1;

  if (x < S3L_SIN_TABLE_LENGTH)
  {
  }
  else if (x < S3L_SIN_TABLE_LENGTH * 2)
  {
    x = S3L_SIN_TABLE_LENGTH * 2 - x - 1;
  }
  else if (x < S3L_SIN_TABLE_LENGTH * 3)
  {
    x = x - S3L_SIN_TABLE_LENGTH * 2;
    positive = 0;
  }
  else
  {
    x = S3L_SIN_TABLE_LENGTH - (x - S3L_SIN_TABLE_LENGTH * 3) - 1;
    positive = 0;
  }

  return positive ? S3L_sinTable[x] : -1 * S3L_sinTable[x];
}

S3L_Unit S3L_asin(S3L_Unit x)
{
  x = S3L_clamp(x,-S3L_FRACTIONS_PER_UNIT,S3L_FRACTIONS_PER_UNIT);

  int8_t sign = 1;

  if (x < 0)
  {
    sign = -1;
    x *= -1;
  }

  int16_t low = 0;
  int16_t high = S3L_SIN_TABLE_LENGTH -1;
  int16_t middle;

  while (low <= high) // binary search
  {
    middle = (low + high) / 2;

    S3L_Unit v = S3L_sinTable[middle];

    if (v > x)
      high = middle - 1;
    else if (v < x)
      low = middle + 1;
    else
      break;
  }

  middle *= S3L_SIN_TABLE_UNIT_STEP;

  return sign * middle;
}

S3L_Unit S3L_cos(S3L_Unit x)
{
  return S3L_sin(x + S3L_FRACTIONS_PER_UNIT / 4);
}

void S3L_correctBarycentricCoords(S3L_Unit barycentric[3])
{
  barycentric[0] = S3L_clamp(barycentric[0],0,S3L_FRACTIONS_PER_UNIT);
  barycentric[1] = S3L_clamp(barycentric[1],0,S3L_FRACTIONS_PER_UNIT);

  S3L_Unit d = S3L_FRACTIONS_PER_UNIT - barycentric[0] - barycentric[1];

  if (d < 0)
  {
    barycentric[0] += d;
    barycentric[2] = 0;
  }
  else
    barycentric[2] = d;
}

void S3L_makeTranslationMat(
  S3L_Unit offsetX,
  S3L_Unit offsetY,
  S3L_Unit offsetZ,
  S3L_Mat4 *m)
{
  #define M(x,y) (*m)[x][y]
  #define S S3L_FRACTIONS_PER_UNIT

  M(0,0) = S; M(1,0) = 0; M(2,0) = 0; M(3,0) = 0; 
  M(0,1) = 0; M(1,1) = S; M(2,1) = 0; M(3,1) = 0; 
  M(0,2) = 0; M(1,2) = 0; M(2,2) = S; M(3,2) = 0; 
  M(0,3) = offsetX; M(1,3) = offsetY; M(2,3) = offsetZ; M(3,3) = S;

  #undef M
  #undef S
}

void S3L_makeScaleMatrix(
  S3L_Unit scaleX,
  S3L_Unit scaleY,
  S3L_Unit scaleZ,
  S3L_Mat4 *m)
{
  #define M(x,y) (*m)[x][y]

  M(0,0) = scaleX; M(1,0) = 0;      M(2,0) = 0;     M(3,0) = 0; 
  M(0,1) = 0;      M(1,1) = scaleY; M(2,1) = 0; M(3,1) = 0; 
  M(0,2) = 0;      M(1,2) = 0;      M(2,2) = scaleZ; M(3,2) = 0; 
  M(0,3) = 0;      M(1,3) = 0;     M(2,3) = 0; M(3,3) = S3L_FRACTIONS_PER_UNIT; 

  #undef M
}

void S3L_makeRotationMatrixZXY(
  S3L_Unit byX,
  S3L_Unit byY,
  S3L_Unit byZ,
  S3L_Mat4 *m)
{
  byX *= -1;
  byY *= -1;
  byZ *= -1;

  S3L_Unit sx = S3L_sin(byX);
  S3L_Unit sy = S3L_sin(byY);
  S3L_Unit sz = S3L_sin(byZ);

  S3L_Unit cx = S3L_cos(byX);
  S3L_Unit cy = S3L_cos(byY);
  S3L_Unit cz = S3L_cos(byZ);

  #define M(x,y) (*m)[x][y]
  #define S S3L_FRACTIONS_PER_UNIT

  M(0,0) = (cy * cz) / S + (sy * sx * sz) / (S * S);
  M(1,0) = (cx * sz) / S;
  M(2,0) = (cy * sx * sz) / (S * S) - (cz * sy) / S;
  M(3,0) = 0;

  M(0,1) = (cz * sy * sx) / (S * S) - (cy * sz) / S;
  M(1,1) = (cx * cz) / S;
  M(2,1) = (cy * cz * sx) / (S * S) + (sy * sz) / S;
  M(3,1) = 0;

  M(0,2) = (cx * sy) / S;
  M(1,2) = -1 * sx;
  M(2,2) = (cy * cx) / S;
  M(3,2) = 0;

  M(0,3) = 0;
  M(1,3) = 0;
  M(2,3) = 0;
  M(3,3) = S3L_FRACTIONS_PER_UNIT;

  #undef M
  #undef S 
}

S3L_Unit S3L_sqrt(S3L_Unit value)
{
  int8_t sign = 1;

  if (value < 0)
  {
    sign = -1;
    value *= -1;
  }

  uint32_t result = 0;
  uint32_t a = value;
  uint32_t b = 1u << 30;

  while (b > a)
    b >>= 2;

  while (b != 0)
  {
    if (a >= result + b)
    {
      a -= result + b;
      result = result +  2 * b;
    }

    b >>= 2;
    result >>= 1;
  }

  return result * sign;
}

S3L_Unit S3L_vec3Length(S3L_Vec4 v)
{
  return S3L_sqrt(v.x * v.x + v.y * v.y + v.z * v.z);  
}

S3L_Unit S3L_vec2Length(S3L_Vec4 v)
{
  return S3L_sqrt(v.x * v.x + v.y * v.y);  
}

void S3L_normalizeVec3(S3L_Vec4 *v)
{
  #define SCALE 16
  #define BOTTOM_LIMIT 16
  #define UPPER_LIMIT 900

  /* Here we try to decide if the vector is too small and would cause
     inaccurate result due to very its inaccurate length. If so, we scale
     it up. We can't scale up everything as big vectors overflow in length
     calculations. */

  if (
    S3L_abs(v->x) <= BOTTOM_LIMIT &&
    S3L_abs(v->y) <= BOTTOM_LIMIT &&
    S3L_abs(v->z) <= BOTTOM_LIMIT)
  {
    v->x *= SCALE;
    v->y *= SCALE;
    v->z *= SCALE;
  }
  else if (
    S3L_abs(v->x) > UPPER_LIMIT ||
    S3L_abs(v->y) > UPPER_LIMIT ||
    S3L_abs(v->z) > UPPER_LIMIT)
  {
    v->x /= SCALE;
    v->y /= SCALE;
    v->z /= SCALE;
  }
 
  #undef SCALE
  #undef BOTTOM_LIMIT
  #undef UPPER_LIMIT

  S3L_Unit l = S3L_vec3Length(*v);

  if (l == 0)
    return;

  v->x = (v->x * S3L_FRACTIONS_PER_UNIT) / l;
  v->y = (v->y * S3L_FRACTIONS_PER_UNIT) / l;
  v->z = (v->z * S3L_FRACTIONS_PER_UNIT) / l;
}

void S3L_normalizeVec3Fast(S3L_Vec4 *v)
{
  S3L_Unit l = S3L_vec3Length(*v);

  if (l == 0)
    return;

  v->x = (v->x * S3L_FRACTIONS_PER_UNIT) / l;
  v->y = (v->y * S3L_FRACTIONS_PER_UNIT) / l;
  v->z = (v->z * S3L_FRACTIONS_PER_UNIT) / l;
}

void S3L_initTransform3D(S3L_Transform3D *t)
{
  S3L_initVec4(&(t->translation));
  S3L_initVec4(&(t->rotation));
  t->scale.x = S3L_FRACTIONS_PER_UNIT;
  t->scale.y = S3L_FRACTIONS_PER_UNIT;
  t->scale.z = S3L_FRACTIONS_PER_UNIT;
  t->scale.w = 0;
}

/** Performs perspecive division (z-divide). Does NOT check for division by
  zero. */
static inline void S3L_perspectiveDivide(S3L_Vec4 *vector,
  S3L_Unit focalLength)
{
  vector->x = (vector->x * focalLength) / vector->z;
  vector->y = (vector->y * focalLength) / vector->z;
}

void project3DPointToScreen(
  S3L_Vec4 point,
  S3L_Camera camera,
  S3L_Vec4 *result)
{
  S3L_Mat4 m;
  S3L_makeCameraMatrix(camera.transform,&m);

  S3L_Unit s = point.w;

  point.w = S3L_FRACTIONS_PER_UNIT;

  S3L_vec3Xmat4(&point,&m);

  point.z = S3L_nonZero(point.z);

  S3L_perspectiveDivide(&point,camera.focalLength);

  S3L_ScreenCoord x, y;

  S3L_mapProjectionPlaneToScreen(point,&x,&y);

  result->x = x;
  result->y = y;
  result->z = point.z;

  result->w =
    (point.z <= 0) ? 0 :
    (
      (s * camera.focalLength * S3L_RESOLUTION_X) /
        (point.z * S3L_FRACTIONS_PER_UNIT)
    );
}

void S3L_lookAt(S3L_Vec4 pointTo, S3L_Transform3D *t)
{
  S3L_Vec4 v;

  v.x = pointTo.x - t->translation.x;
  v.y = pointTo.z - t->translation.z;

  S3L_Unit dx = v.x;
  S3L_Unit l = S3L_vec2Length(v);

  dx = (v.x * S3L_FRACTIONS_PER_UNIT) / S3L_nonZero(l); // normalize

  t->rotation.y = -1 * S3L_asin(dx);

  if (v.y < 0)
    t->rotation.y = S3L_FRACTIONS_PER_UNIT / 2 - t->rotation.y;

  v.x = pointTo.y - t->translation.y;
  v.y = l;
 
  l = S3L_vec2Length(v);
 
  dx = (v.x * S3L_FRACTIONS_PER_UNIT) / S3L_nonZero(l);

  t->rotation.x = S3L_asin(dx);
}

void S3L_setTransform3D(
  S3L_Unit tx,
  S3L_Unit ty,
  S3L_Unit tz,
  S3L_Unit rx,
  S3L_Unit ry,
  S3L_Unit rz,
  S3L_Unit sx,
  S3L_Unit sy,
  S3L_Unit sz,
  S3L_Transform3D *t)
{
  t->translation.x = tx;
  t->translation.y = ty;
  t->translation.z = tz;

  t->rotation.x = rx;
  t->rotation.y = ry;
  t->rotation.z = rz;

  t->scale.x = sx;
  t->scale.y = sy;
  t->scale.z = sz;
}

void S3L_initCamera(S3L_Camera *camera)
{
  camera->focalLength = S3L_FRACTIONS_PER_UNIT;
  S3L_initTransform3D(&(camera->transform));
}

void S3L_rotationToDirections(
  S3L_Vec4 rotation,
  S3L_Unit length,
  S3L_Vec4 *forw, 
  S3L_Vec4 *right,
  S3L_Vec4 *up)
{
  S3L_Mat4 m;

  S3L_makeRotationMatrixZXY(rotation.x,rotation.y,rotation.z,&m);

  if (forw != 0)
  {
    forw->x = 0;
    forw->y = 0;
    forw->z = length;
    S3L_vec3Xmat4(forw,&m);
  }

  if (right != 0)
  {
    right->x = length;
    right->y = 0;
    right->z = 0;
    S3L_vec3Xmat4(right,&m);
  }

  if (up != 0)
  {
    up->x = 0;
    up->y = length;
    up->z = 0;
    S3L_vec3Xmat4(up,&m);
  }
}

void S3L_initPixelInfo(S3L_PixelInfo *p)
{
  p->x = 0;
  p->y = 0;
  p->barycentric[0] = S3L_FRACTIONS_PER_UNIT;
  p->barycentric[1] = 0;
  p->barycentric[2] = 0;
  p->modelIndex = 0;
  p->triangleIndex = 0;
  p->triangleID = 0;
  p->depth = 0;
  p->previousZ = 0;
}

void S3L_initModel3D(
  const S3L_Unit *vertices,
  S3L_Unit vertexCount,
  const S3L_Index *triangles,
  S3L_Index triangleCount,
  S3L_Model3D *model)
{
  model->vertices = vertices;
  model->vertexCount = vertexCount;
  model->triangles = triangles;
  model->triangleCount = triangleCount;
  model->customTransformMatrix = 0;  

  S3L_initTransform3D(&(model->transform));
  S3L_initDrawConfig(&(model->config));
}

void S3L_initScene(
  S3L_Model3D *models,
  S3L_Index modelCount,
  S3L_Scene *scene)
{
  scene->models = models;
  scene->modelCount = modelCount;
  S3L_initCamera(&(scene->camera));
}

void S3L_initDrawConfig(S3L_DrawConfig *config)
{
  config->backfaceCulling = 2;
  config->visible = 1;
}

#ifndef S3L_PIXEL_FUNCTION
  #error Pixel rendering function (S3L_PIXEL_FUNCTION) not specified!
#endif

static inline void S3L_PIXEL_FUNCTION(S3L_PixelInfo *pixel); // forward decl

/** Serves to accelerate linear interpolation for performance-critical
  code. Functions such as S3L_interpolate require division to compute each
  interpolated value, while S3L_FastLerpState only requires a division for
  the initiation and a shift for retrieving each interpolated value.

  S3L_FastLerpState stores a value and a step, both scaled (shifted by
  S3L_FAST_LERP_QUALITY) to increase precision. The step is being added to the
  value, which achieves the interpolation. This will only be useful for
  interpolations in which we need to get the interpolated value in every step.

  BEWARE! Shifting a negative value is undefined, so handling shifting of
  negative values has to be done cleverly. */
typedef struct
{
  S3L_Unit valueScaled;
  S3L_Unit stepScaled;
} S3L_FastLerpState;

#define S3L_getFastLerpValue(state)\
  (state.valueScaled >> S3L_FAST_LERP_QUALITY)

#define S3L_stepFastLerp(state)\
  state.valueScaled += state.stepScaled

static inline S3L_Unit S3L_interpolateBarycentric(
  S3L_Unit value0,
  S3L_Unit value1,
  S3L_Unit value2,
  S3L_Unit barycentric[3])
{
  return
    (
      (value0 * barycentric[0]) +
      (value1 * barycentric[1]) +
      (value2 * barycentric[2])
    ) / S3L_FRACTIONS_PER_UNIT;
}

void S3L_mapProjectionPlaneToScreen(
  S3L_Vec4 point,
  S3L_ScreenCoord *screenX,
  S3L_ScreenCoord *screenY)
{
  *screenX = 
    S3L_HALF_RESOLUTION_X +
    (point.x * S3L_HALF_RESOLUTION_X) / S3L_FRACTIONS_PER_UNIT;

  *screenY = 
    S3L_HALF_RESOLUTION_Y -
    (point.y * S3L_HALF_RESOLUTION_X) / S3L_FRACTIONS_PER_UNIT;
}

void S3L_zBufferClear(void)
{
#if S3L_Z_BUFFER
  for (uint32_t i = 0; i < S3L_RESOLUTION_X * S3L_RESOLUTION_Y; ++i)
    S3L_zBuffer[i] = S3L_MAX_DEPTH;
#endif
}

void S3L_stencilBufferClear(void)
{
#if S3L_STENCIL_BUFFER
  for (uint32_t i = 0; i < S3L_STENCIL_BUFFER_SIZE; ++i)
    S3L_stencilBuffer[i] = 0;
#endif
}

void S3L_newFrame(void)
{
  S3L_zBufferClear();
  S3L_stencilBufferClear();
}

void S3L_drawTriangle(
  S3L_Vec4 point0,
  S3L_Vec4 point1,
  S3L_Vec4 point2,
  S3L_Index modelIndex,
  S3L_Index triangleIndex)
{
  S3L_PixelInfo p;
  S3L_initPixelInfo(&p);
  p.modelIndex = modelIndex;
  p.triangleIndex = triangleIndex;
  p.triangleID = (modelIndex << 16) | triangleIndex;

  S3L_Vec4 *tPointSS, *lPointSS, *rPointSS; /* points in Screen Space (in
                                               S3L_Units, normalized by
                                               S3L_FRACTIONS_PER_UNIT) */

  S3L_Unit *barycentric0; // bar. coord that gets higher from L to R
  S3L_Unit *barycentric1; // bar. coord that gets higher from R to L
  S3L_Unit *barycentric2; // bar. coord that gets higher from bottom up

  // sort the vertices:

  #define assignPoints(t,a,b)\
    {\
      tPointSS = &point##t;\
      barycentric2 = &(p.barycentric[t]);\
      if (S3L_triangleWinding(point##t.x,point##t.y,point##a.x,point##a.y,\
        point##b.x,point##b.y) >= 0)\
      {\
        lPointSS = &point##a; rPointSS = &point##b;\
        barycentric0 = &(p.barycentric[b]);\
        barycentric1 = &(p.barycentric[a]);\
      }\
      else\
      {\
        lPointSS = &point##b; rPointSS = &point##a;\
        barycentric0 = &(p.barycentric[a]);\
        barycentric1 = &(p.barycentric[b]);\
      }\
    }

  if (point0.y <= point1.y)
  {
    if (point0.y <= point2.y)
      assignPoints(0,1,2)
    else
      assignPoints(2,0,1)
  }
  else
  {
    if (point1.y <= point2.y)
      assignPoints(1,0,2)
    else
      assignPoints(2,0,1)
  }

  #undef assignPoints

#if S3L_FLAT
  *barycentric0 = S3L_FRACTIONS_PER_UNIT / 3;
  *barycentric1 = S3L_FRACTIONS_PER_UNIT / 3;
  *barycentric2 = S3L_FRACTIONS_PER_UNIT - 2 * (S3L_FRACTIONS_PER_UNIT / 3);
#endif

  p.triangleSize[0] = rPointSS->x - lPointSS->x;
  p.triangleSize[1] =
    (rPointSS->y > lPointSS->y ? rPointSS->y : lPointSS->y) - tPointSS->y;

  // now draw the triangle line by line:

  S3L_ScreenCoord splitY; // Y of the vertically middle point of the triangle
  S3L_ScreenCoord endY;   // bottom Y of the whole triangle
  int splitOnLeft;        /* whether splitY is the y coord. of left or right 
                             point */

  if (rPointSS->y <= lPointSS->y)
  {
    splitY = rPointSS->y;
    splitOnLeft = 0;
    endY = lPointSS->y;
  }
  else
  {
    splitY = lPointSS->y;
    splitOnLeft = 1;
    endY = rPointSS->y;
  }

  S3L_ScreenCoord currentY = tPointSS->y;

  /* We'll be using an algorithm similar to Bresenham line algorithm. The
     specifics of this algorithm are among others:

     - drawing possibly NON-CONTINUOUS line
     - NOT tracing the line exactly, but rather rasterizing one the right
       side of it, according to the pixel CENTERS, INCLUDING the pixel
       centers
     
     The principle is this:

     - Move vertically by pixels and accumulate the error (abs(dx/dy)).
     - If the error is greater than one (crossed the next pixel center), keep
       moving horizontally and substracting 1 from the error until it is less
       than 1 again.
     - To make this INTEGER ONLY, scale the case so that distance between
       pixels is equal to dy (instead of 1). This way the error becomes
       dx/dy * dy == dx, and we're comparing the error to (and potentially
       substracting) 1 * dy == dy. */

  int16_t
    /* triangle side:
    left     right */
    lX,      rX,       // current x position on the screen
    lDx,     rDx,      // dx (end point - start point)
    lDy,     rDy,      // dy (end point - start point)
    lInc,    rInc,     // direction in which to increment (1 or -1)
    lErr,    rErr,     // current error (Bresenham)
    lErrCmp, rErrCmp,  // helper for deciding comparison (> vs >=)
    lErrAdd, rErrAdd,  // error value to add in each Bresenham cycle
    lErrSub, rErrSub;  // error value to substract when moving in x direction

  S3L_FastLerpState lSideFLS, rSideFLS;

#if S3L_COMPUTE_LERP_DEPTH
  S3L_FastLerpState lDepthFLS, rDepthFLS;

  #define initDepthFLS(s,p1,p2)\
    s##DepthFLS.valueScaled = p1##PointSS->z << S3L_FAST_LERP_QUALITY;\
    s##DepthFLS.stepScaled = ((p2##PointSS->z << S3L_FAST_LERP_QUALITY) -\
      s##DepthFLS.valueScaled) / (s##Dy != 0 ? s##Dy : 1);
#else
  #define initDepthFLS(s,p1,p2) ;
#endif

  /* init side for the algorithm, params:
     s - which side (l or r)
     p1 - point from (t, l or r)
     p2 - point to (t, l or r)
     down - whether the side coordinate goes top-down or vice versa */
  #define initSide(s,p1,p2,down)\
    s##X = p1##PointSS->x;\
    s##Dx = p2##PointSS->x - p1##PointSS->x;\
    s##Dy = p2##PointSS->y - p1##PointSS->y;\
    initDepthFLS(s,p1,p2)\
    s##SideFLS.stepScaled = (S3L_FRACTIONS_PER_UNIT << S3L_FAST_LERP_QUALITY)\
                      / (s##Dy != 0 ? s##Dy : 1);\
    s##SideFLS.valueScaled = 0;\
    if (!down)\
    {\
      s##SideFLS.valueScaled =\
        S3L_FRACTIONS_PER_UNIT << S3L_FAST_LERP_QUALITY;\
      s##SideFLS.stepScaled *= -1;\
    }\
    s##Inc = s##Dx >= 0 ? 1 : -1;\
    if (s##Dx < 0)\
      {s##Err = 0;     s##ErrCmp = 0;}\
    else\
      {s##Err = s##Dy; s##ErrCmp = 1;}\
    s##ErrAdd = S3L_abs(s##Dx);\
    s##ErrSub = s##Dy != 0 ? s##Dy : 1; /* don't allow 0, could lead to an
                                           infinite substracting loop */

  #define stepSide(s)\
    while (s##Err - s##Dy >= s##ErrCmp)\
    {\
      s##X += s##Inc;\
      s##Err -= s##ErrSub;\
    }\
    s##Err += s##ErrAdd;

  initSide(r,t,r,1)
  initSide(l,t,l,1)

#if S3L_PERSPECTIVE_CORRECTION
  /* PC is done by linearly interpolating reciprocals from which the corrected
     velues can be computed. See
     http://www.lysator.liu.se/~mikaelk/doc/perspectivetexture/ */

  #if S3L_PERSPECTIVE_CORRECTION == 1
    #define Z_RECIP_NUMERATOR\
      (S3L_FRACTIONS_PER_UNIT * S3L_FRACTIONS_PER_UNIT * S3L_FRACTIONS_PER_UNIT)
  #elif S3L_PERSPECTIVE_CORRECTION == 2
    #define Z_RECIP_NUMERATOR\
      (S3L_FRACTIONS_PER_UNIT * S3L_FRACTIONS_PER_UNIT)
  #endif
  /* ^ This numerator is a number by which we divide values for the
     reciprocals. For PC == 2 it has to be lower because linear interpolation
     scaling would make it overflow -- this results in lower depth precision
     in bigger distance for PC == 2. */

  S3L_Unit
    tPointRecipZ, lPointRecipZ, rPointRecipZ, /* Reciprocals of the depth of 
                                                 each triangle point. */
    lRecip0, lRecip1, rRecip0, rRecip1;       /* Helper variables for swapping
                                                 the above after split. */

  tPointRecipZ = Z_RECIP_NUMERATOR / S3L_nonZero(tPointSS->z);
  lPointRecipZ = Z_RECIP_NUMERATOR / S3L_nonZero(lPointSS->z);
  rPointRecipZ = Z_RECIP_NUMERATOR / S3L_nonZero(rPointSS->z);

  lRecip0 = tPointRecipZ;
  lRecip1 = lPointRecipZ;
  rRecip0 = tPointRecipZ;
  rRecip1 = rPointRecipZ;

  #define manageSplitPerspective(b0,b1)\
    b1##Recip0 = b0##PointRecipZ;\
    b1##Recip1 = b1##PointRecipZ;\
    b0##Recip0 = b0##PointRecipZ;\
    b0##Recip1 = tPointRecipZ;
#else
  #define manageSplitPerspective(b0,b1) ;
#endif

  // clip to the screen in y dimension:

  endY = S3L_min(endY,S3L_RESOLUTION_Y);

  /* Clipping above the screen (y < 0) can't be easily done here, will be
     handled inside the loop. */

  while (currentY < endY)   /* draw the triangle from top to bottom -- the
                               bottom-most row is left out because, following
                               from the rasterization rules (see start of the
                               file), it is to never be rasterized. */
  {
    if (currentY == splitY) // reached a vertical split of the triangle?
    {
      #define manageSplit(b0,b1,s0,s1)\
        S3L_Unit *tmp = barycentric##b0;\
        barycentric##b0 = barycentric##b1;\
        barycentric##b1 = tmp;\
        s0##SideFLS.valueScaled = (S3L_FRACTIONS_PER_UNIT\
           << S3L_FAST_LERP_QUALITY) - s0##SideFLS.valueScaled;\
        s0##SideFLS.stepScaled *= -1;\
        manageSplitPerspective(s0,s1)

      if (splitOnLeft)
      {
        initSide(l,l,r,0);
        manageSplit(0,2,r,l)
      }
      else
      {
        initSide(r,r,l,0);
        manageSplit(1,2,l,r)
      }
    }

    stepSide(r)
    stepSide(l)

    if (currentY >= 0) /* clipping of pixels whose y < 0 (can't be easily done
                          outside the loop because of the Bresenham-like
                          algorithm steps) */
    { 
      p.y = currentY;

      // draw the horizontal line

#if !S3L_FLAT
      S3L_Unit rowLength = S3L_nonZero(rX - lX - 1); // prevent zero div

  #if S3L_PERSPECTIVE_CORRECTION
      S3L_Unit lOverZ, lRecipZ, rOverZ, rRecipZ, lT, rT;

      lT = S3L_getFastLerpValue(lSideFLS);
      rT = S3L_getFastLerpValue(rSideFLS);

      lOverZ  = S3L_interpolateByUnitFrom0(lRecip1,lT);
      lRecipZ = S3L_interpolateByUnit(lRecip0,lRecip1,lT);

      rOverZ  = S3L_interpolateByUnitFrom0(rRecip1,rT);
      rRecipZ = S3L_interpolateByUnit(rRecip0,rRecip1,rT);
  #else
      S3L_FastLerpState b0FLS, b1FLS;

    #if S3L_COMPUTE_LERP_DEPTH
      S3L_FastLerpState  depthFLS;

      depthFLS.valueScaled = lDepthFLS.valueScaled;
      depthFLS.stepScaled =
        (rDepthFLS.valueScaled - lDepthFLS.valueScaled) / rowLength;
    #endif

      b0FLS.valueScaled = 0;
      b1FLS.valueScaled = lSideFLS.valueScaled;

      b0FLS.stepScaled = rSideFLS.valueScaled / rowLength;
      b1FLS.stepScaled = -1 * lSideFLS.valueScaled / rowLength;
  #endif
#endif

      // clip to the screen in x dimension:

      S3L_ScreenCoord rXClipped = S3L_min(rX,S3L_RESOLUTION_X),
                      lXClipped = lX;

      if (lXClipped < 0)
      {
        lXClipped = 0;

#if !S3L_PERSPECTIVE_CORRECTION && !S3L_FLAT
        b0FLS.valueScaled -= lX * b0FLS.stepScaled;
        b1FLS.valueScaled -= lX * b1FLS.stepScaled;

  #if S3L_COMPUTE_LERP_DEPTH
        depthFLS.valueScaled -= lX * depthFLS.stepScaled;
  #endif
#endif
      }

#if S3L_PERSPECTIVE_CORRECTION
      S3L_ScreenCoord i = lXClipped - lX;  /* helper var to save one
                                              substraction in the inner
                                              loop */
#endif

#if S3L_PERSPECTIVE_CORRECTION == 2
      S3L_FastLerpState
        depthPC, // interpolates depth between row segments
        b0PC,    // interpolates barycentric0 between row segments 
        b1PC;    // interpolates barycentric1 between row segments

      /* ^ These interpolate values between row segments (lines of pixels
           of S3L_PC_APPROX_LENGTH length). After each row segment perspective
           correction is recomputed. */

      depthPC.valueScaled = 
        (Z_RECIP_NUMERATOR / 
        S3L_nonZero(S3L_interpolate(lRecipZ,rRecipZ,i,rowLength)))
        << S3L_FAST_LERP_QUALITY;

       b0PC.valueScaled = 
           ( 
             S3L_interpolateFrom0(rOverZ,i,rowLength)
             * depthPC.valueScaled
           ) / (Z_RECIP_NUMERATOR / S3L_FRACTIONS_PER_UNIT);

       b1PC.valueScaled =
           ( 
             (lOverZ - S3L_interpolateFrom0(lOverZ,i,rowLength))
             * depthPC.valueScaled
           ) / (Z_RECIP_NUMERATOR / S3L_FRACTIONS_PER_UNIT);

      int8_t rowCount = S3L_PC_APPROX_LENGTH;
#endif

#if S3L_Z_BUFFER
      uint32_t zBufferIndex = p.y * S3L_RESOLUTION_X + lXClipped;
#endif

      // draw the row -- inner loop:

      for (S3L_ScreenCoord x = lXClipped; x < rXClipped; ++x)
      {
        int8_t testsPassed = 1;

#if S3L_STENCIL_BUFFER
        if (!S3L_stencilTest(x,p.y))
          testsPassed = 0;
#endif
        p.x = x;

#if S3L_COMPUTE_DEPTH
  #if S3L_PERSPECTIVE_CORRECTION == 1
        p.depth = Z_RECIP_NUMERATOR /
          S3L_nonZero(S3L_interpolate(lRecipZ,rRecipZ,i,rowLength));
  #elif S3L_PERSPECTIVE_CORRECTION == 2
        if (rowCount >= S3L_PC_APPROX_LENGTH)
        {
          // init the linear interpolation to the next PC correct value

          rowCount = 0;

          S3L_Unit nextI = i + S3L_PC_APPROX_LENGTH;

          if (nextI < rowLength)
          {
            S3L_Unit nextDepthScaled =
              (
              Z_RECIP_NUMERATOR /
              S3L_nonZero(S3L_interpolate(lRecipZ,rRecipZ,nextI,rowLength))
              ) << S3L_FAST_LERP_QUALITY;

            depthPC.stepScaled =
              (nextDepthScaled - depthPC.valueScaled) / S3L_PC_APPROX_LENGTH;

            S3L_Unit nextValue = 
             ( 
               S3L_interpolateFrom0(rOverZ,nextI,rowLength)
               * nextDepthScaled
             ) / (Z_RECIP_NUMERATOR / S3L_FRACTIONS_PER_UNIT);

            b0PC.stepScaled =
              (nextValue - b0PC.valueScaled) / S3L_PC_APPROX_LENGTH;

            nextValue = 
             ( 
               (lOverZ - S3L_interpolateFrom0(lOverZ,nextI,rowLength))
               * nextDepthScaled
             ) / (Z_RECIP_NUMERATOR / S3L_FRACTIONS_PER_UNIT);

            b1PC.stepScaled =
              (nextValue - b1PC.valueScaled) / S3L_PC_APPROX_LENGTH;
          }
          else
          {
            /* A special case where we'd be interpolating outside the triangle.
               It seems like a valid approach at first, but it creates a bug
               in a case when the rasaterized triangle is near screen 0 and can
               actually never reach the extrapolated screen position. So we
               have to clamp to the actual end of the triangle here. */

            S3L_Unit maxI = S3L_nonZero(rowLength - i);

            S3L_Unit nextDepthScaled =
              (
              Z_RECIP_NUMERATOR /
              S3L_nonZero(rRecipZ)
              ) << S3L_FAST_LERP_QUALITY;

            depthPC.stepScaled =
              (nextDepthScaled - depthPC.valueScaled) / maxI;

            S3L_Unit nextValue = 
             ( 
               rOverZ
               * nextDepthScaled
             ) / (Z_RECIP_NUMERATOR / S3L_FRACTIONS_PER_UNIT);

            b0PC.stepScaled =
              (nextValue - b0PC.valueScaled) / maxI;

            b1PC.stepScaled =
              -1 * b1PC.valueScaled / maxI;
          }
        }

        p.depth = S3L_getFastLerpValue(depthPC);
  #else
        p.depth = S3L_getFastLerpValue(depthFLS);
        S3L_stepFastLerp(depthFLS);
  #endif
#else   // !S3L_COMPUTE_DEPTH
        p.depth = (tPointSS->z + lPointSS->z + rPointSS->z) / 3;
#endif

#if S3L_Z_BUFFER
        p.previousZ = S3L_zBuffer[zBufferIndex];

        zBufferIndex++;

        if (!S3L_zTest(p.x,p.y,p.depth))
          testsPassed = 0;        
#endif

        if (testsPassed)
        {
#if !S3L_FLAT
  #if S3L_PERSPECTIVE_CORRECTION == 0
          *barycentric0 = S3L_getFastLerpValue(b0FLS);
          *barycentric1 = S3L_getFastLerpValue(b1FLS);
  #elif S3L_PERSPECTIVE_CORRECTION == 1
          *barycentric0 =
           ( 
             S3L_interpolateFrom0(rOverZ,i,rowLength)
             * p.depth
           ) / (Z_RECIP_NUMERATOR / S3L_FRACTIONS_PER_UNIT);

          *barycentric1 =
           ( 
             (lOverZ - S3L_interpolateFrom0(lOverZ,i,rowLength))
             * p.depth
           ) / (Z_RECIP_NUMERATOR / S3L_FRACTIONS_PER_UNIT);
  #elif S3L_PERSPECTIVE_CORRECTION == 2
          *barycentric0 = S3L_getFastLerpValue(b0PC);
          *barycentric1 = S3L_getFastLerpValue(b1PC);
  #endif

          *barycentric2 =
            S3L_FRACTIONS_PER_UNIT - *barycentric0 - *barycentric1;
#endif
          S3L_PIXEL_FUNCTION(&p);
        } // tests passed

#if !S3L_FLAT
  #if S3L_PERSPECTIVE_CORRECTION
          i++;
    #if S3L_PERSPECTIVE_CORRECTION == 2
          rowCount++;
     
          S3L_stepFastLerp(depthPC);
          S3L_stepFastLerp(b0PC);
          S3L_stepFastLerp(b1PC);
    #endif
  #else
          S3L_stepFastLerp(b0FLS);
          S3L_stepFastLerp(b1FLS);
  #endif
#endif
      } // inner loop
    } // y clipping

#if !S3L_FLAT
    S3L_stepFastLerp(lSideFLS);
    S3L_stepFastLerp(rSideFLS);

  #if S3L_COMPUTE_LERP_DEPTH
    S3L_stepFastLerp(lDepthFLS);
    S3L_stepFastLerp(rDepthFLS);
  #endif
#endif

    ++currentY;
  } // row drawing

  #undef manageSplit
  #undef initPC
  #undef initSide
  #undef stepSide
  #undef Z_RECIP_NUMERATOR 
}

void S3L_rotate2DPoint(S3L_Unit *x, S3L_Unit *y, S3L_Unit angle)
{
  if (angle < S3L_SIN_TABLE_UNIT_STEP)
    return; // no visible rotation

  S3L_Unit angleSin = S3L_sin(angle);
  S3L_Unit angleCos = S3L_cos(angle);

  S3L_Unit xBackup = *x;

  *x =
    (angleCos * (*x)) / S3L_FRACTIONS_PER_UNIT -
    (angleSin * (*y)) / S3L_FRACTIONS_PER_UNIT;

  *y =
    (angleSin * xBackup) / S3L_FRACTIONS_PER_UNIT +
    (angleCos * (*y)) / S3L_FRACTIONS_PER_UNIT;
}

void S3L_makeWorldMatrix(S3L_Transform3D worldTransform, S3L_Mat4 *m)
{
  S3L_makeScaleMatrix(
    worldTransform.scale.x,
    worldTransform.scale.y,
    worldTransform.scale.z,
    m
  );

  S3L_Mat4 t;

  S3L_makeRotationMatrixZXY(
    worldTransform.rotation.x,
    worldTransform.rotation.y,
    worldTransform.rotation.z,
    &t);

  S3L_mat4Xmat4(m,&t);

  S3L_makeTranslationMat(
    worldTransform.translation.x,
    worldTransform.translation.y,
    worldTransform.translation.z,
    &t);

  S3L_mat4Xmat4(m,&t);
}

void S3L_transposeMat4(S3L_Mat4 *m)
{
  S3L_Unit tmp;

  for (uint8_t y = 0; y < 3; ++y)
    for (uint8_t x = 1 + y; x < 4; ++x)
    {
      tmp = (*m)[x][y];
      (*m)[x][y] = (*m)[y][x];
      (*m)[y][x] = tmp;
    }
}

void S3L_makeCameraMatrix(S3L_Transform3D cameraTransform, S3L_Mat4 *m)
{
  S3L_makeTranslationMat(
    -1 * cameraTransform.translation.x,
    -1 * cameraTransform.translation.y,
    -1 * cameraTransform.translation.z,
    m);

  S3L_Mat4 r;

  S3L_makeRotationMatrixZXY(
    cameraTransform.rotation.x,
    cameraTransform.rotation.y,
    cameraTransform.rotation.z,
    &r);

  S3L_transposeMat4(&r); // transposing creates an inverse transform

  S3L_mat4Xmat4(m,&r);
}

int8_t S3L_triangleWinding(
  S3L_ScreenCoord x0,
  S3L_ScreenCoord y0, 
  S3L_ScreenCoord x1,
  S3L_ScreenCoord y1,
  S3L_ScreenCoord x2,
  S3L_ScreenCoord y2)
{
  int32_t winding =
    (y1 - y0) * (x2 - x1) - (x1 - x0) * (y2 - y1);
    // ^ cross product for points with z == 0

  return winding > 0 ? 1 : (winding < 0 ? -1 : 0);
}

/**
  Checks if given triangle (in Screen Space) is at least partially visible,
  i.e. returns false if the triangle is either completely outside the frustum
  (left, right, top, bottom, near) or is invisible due to backface culling.
*/
static inline int8_t S3L_triangleIsVisible(
  S3L_Vec4 p0,
  S3L_Vec4 p1,
  S3L_Vec4 p2,
  uint8_t backfaceCulling)
{
  #define clipTest(c,cmp,v)\
    (p0.c cmp (v) && p1.c cmp (v) && p2.c cmp (v))

  if ( // outside frustum?
#if S3L_STRICT_NEAR_CULLING
      p0.z <= S3L_NEAR || p1.z <= S3L_NEAR || p2.z <= S3L_NEAR ||
      // ^ partially in front of NEAR?
#else
      clipTest(z,<=,S3L_NEAR) || // completely in front of NEAR?
#endif
      clipTest(x,<,0) ||
      clipTest(x,>=,S3L_RESOLUTION_X) ||
      clipTest(y,<,0) ||
      clipTest(y,>,S3L_RESOLUTION_Y)
    )
    return 0;

  #undef clipTest

  if (backfaceCulling != 0)
  {
    int8_t winding =
      S3L_triangleWinding(p0.x,p0.y,p1.x,p1.y,p2.x,p2.y);

    if ((backfaceCulling == 1 && winding > 0) ||
        (backfaceCulling == 2 && winding < 0))
      return 0;
  }

  return 1;
}

#if S3L_SORT != 0
typedef struct
{
  uint8_t modelIndex;
  S3L_Index triangleIndex;
  uint16_t sortValue;
} _S3L_TriangleToSort;

_S3L_TriangleToSort S3L_sortArray[S3L_MAX_TRIANGES_DRAWN];
uint16_t S3L_sortArrayLength;
#endif

void _S3L_projectVertex(
  const S3L_Model3D *model,
  S3L_Index triangleIndex,
  uint8_t vertex,
  S3L_Mat4 *projectionMatrix, 
  S3L_Vec4 *result,
  S3L_Unit focalLength)
{
  uint32_t vertexIndex = model->triangles[triangleIndex * 3 + vertex] * 3;

  result->x = model->vertices[vertexIndex];
  result->y = model->vertices[vertexIndex + 1];
  result->z = model->vertices[vertexIndex + 2];
  result->w = S3L_FRACTIONS_PER_UNIT; // for translation 
 
  S3L_vec3Xmat4(result,projectionMatrix);

  result->w = result->z;
  /* We'll keep the non-clamped z in w for sorting. */ 

  result->z = result->z >= S3L_NEAR ? result->z : S3L_NEAR;
  /* ^ This firstly prevents zero division in the follwoing z-divide and
    secondly "pushes" vertices that are in front of near a little bit forward,
    which makes them behave a bit better. If all three vertices end up exactly
    on NEAR, the triangle will be culled. */ 

  S3L_perspectiveDivide(result,focalLength);
      
  S3L_ScreenCoord sX, sY;
      
  S3L_mapProjectionPlaneToScreen(*result,&sX,&sY);
   
  result->x = sX;
  result->y = sY;
}

void S3L_drawScene(S3L_Scene scene)
{
  S3L_Mat4 matFinal, matCamera;
  S3L_Vec4 transformed0, transformed1, transformed2;
  const S3L_Model3D *model;
  S3L_Index modelIndex, triangleIndex;

  S3L_makeCameraMatrix(scene.camera.transform,&matCamera);

#if S3L_SORT != 0
  uint16_t previousModel = 0;
  S3L_sortArrayLength = 0;
#endif

  for (modelIndex = 0; modelIndex < scene.modelCount; ++modelIndex)
  {
    if (!scene.models[modelIndex].config.visible)
      continue;

#if S3L_SORT != 0
    if (S3L_sortArrayLength >= S3L_MAX_TRIANGES_DRAWN)
      break;

    previousModel = modelIndex;
#endif

    if (scene.models[modelIndex].customTransformMatrix == 0)
      S3L_makeWorldMatrix(scene.models[modelIndex].transform,&matFinal);
    else
    {
      S3L_Mat4 *m = scene.models[modelIndex].customTransformMatrix;

      for (int8_t j = 0; j < 4; ++j)
        for (int8_t i = 0; i < 4; ++i)
           matFinal[i][j] = (*m)[i][j];
    }

    S3L_mat4Xmat4(&matFinal,&matCamera);

    S3L_Index triangleCount = scene.models[modelIndex].triangleCount;

    triangleIndex = 0;
    
    while (triangleIndex < triangleCount)
    {
      model = &(scene.models[modelIndex]);

      /* Some kind of cache could be used in theory to not project perviously
         already projected vertices, but after some testing this was abandoned,
         no gain was seen. */

      _S3L_projectVertex(model,triangleIndex,0,&matFinal,
        &transformed0,scene.camera.focalLength);

      _S3L_projectVertex(model,triangleIndex,1,&matFinal,
        &transformed1,scene.camera.focalLength);

      _S3L_projectVertex(model,triangleIndex,2,&matFinal,
        &transformed2,scene.camera.focalLength);

      if (S3L_triangleIsVisible(transformed0,transformed1,transformed2,
         model->config.backfaceCulling))
      {
#if S3L_SORT == 0
        // without sorting draw right away
        S3L_drawTriangle(transformed0,transformed1,transformed2,modelIndex,
          triangleIndex);
#else
        if (S3L_sortArrayLength >= S3L_MAX_TRIANGES_DRAWN)
          break;

        // with sorting add to a sort list
        S3L_sortArray[S3L_sortArrayLength].modelIndex = modelIndex;
        S3L_sortArray[S3L_sortArrayLength].triangleIndex = triangleIndex;
        S3L_sortArray[S3L_sortArrayLength].sortValue = 
          S3L_zeroClamp(transformed0.w + transformed1.w + transformed2.w) >> 2;
        /* ^ 
           The w component here stores non-clamped z.
 
           As a simple approximation we sort by the triangle center point,
           which is a mean coordinate -- we don't actually have to divide by 3
           (or anything), that is unnecessary for sorting! We shift by 2 just
           as a fast operation to prevent overflow of the sum over uint_16t. */

        S3L_sortArrayLength++;
#endif
      }

      triangleIndex++;
    }
  }

#if S3L_SORT != 0

  #if S3L_SORT == 1
    #define cmp <
  #else
    #define cmp >
  #endif

  /* Sort the triangles. We use insertion sort, because it has many advantages,
  especially for smaller arrays (better than bubble sort, in-place, stable,
  simple, ...). */

  for (int16_t i = 1; i < S3L_sortArrayLength; ++i)
  {
    _S3L_TriangleToSort tmp = S3L_sortArray[i];
 
    int16_t j = i - 1;

    while (j >= 0 && S3L_sortArray[j].sortValue cmp tmp.sortValue)
    {
      S3L_sortArray[j + 1] = S3L_sortArray[j];
      j--;
    }

    S3L_sortArray[j + 1] = tmp;
  }

  #undef cmp

  for (S3L_Index i = 0; i < S3L_sortArrayLength; ++i)
  {
    modelIndex = S3L_sortArray[i].modelIndex;
    triangleIndex = S3L_sortArray[i].triangleIndex;

    model = &(scene.models[modelIndex]);

    if (modelIndex != previousModel)
    {
      // only recompute the matrix when the model has changed
      S3L_makeWorldMatrix(model->transform,&matFinal);
      S3L_mat4Xmat4(&matFinal,&matCamera);
      previousModel = modelIndex;
    }

    /* Here we project the points again, which is redundant and slow as they've
       already been projected above, but saving the projected points would
       require a lot of memory, which for small resolutions could be even
       worse than z-bufer. So this seems to be the best way memory-wise. */
    
    _S3L_projectVertex(model,triangleIndex,0,&matFinal,
      &transformed0,scene.camera.focalLength);

    _S3L_projectVertex(model,triangleIndex,1,&matFinal,
      &transformed1,scene.camera.focalLength);

    _S3L_projectVertex(model,triangleIndex,2,&matFinal,
      &transformed2,scene.camera.focalLength);

    S3L_drawTriangle(transformed0,transformed1,transformed2,modelIndex,
      triangleIndex);
  }
#endif
}

#endif // guard
test.c
/**
  Some basic tests for small3dlib.

  author: Miloslav Ciz
  license: CC0 1.0
*/

#include <stdio.h>
#include <string.h>
#include <math.h>

#define S3L_PIXEL_FUNCTION pixelFunc
#define S3L_RESOLUTION_X 64
#define S3L_RESOLUTION_Y 40

#define S3L_SORT 1

#include "../small3dlib.h"

#define TEST_BUFFER_W 16
#define TEST_BUFFER_H 16

const char expectedRender[S3L_RESOLUTION_X * S3L_RESOLUTION_Y + 1] =
  "...................54433221100.................................."
  "...................55443221100.................................."
  "...................6554432211..................................."
  "...................65544332....................................."
  "...................665544......................................."
  "..........AAA......7655........................................."
  "..........BAAACE...76..........................................."
  "..........CABAABDEG..........................................ddd"
  ".........DBABAAABCDFGH...............................eeeeeeeeddd"
  ".........DBABBAAABCDEGH.....................fffffffeeeeeeeeeeddd"
  ".........EDBACBAAABCDEFG............gggggffffffffffeeeeeeeeeeddd"
  "........FECBACCBBAAABDEG....hhhggggggggggffffffffffeeeeeeeeeeddd"
  "........GFDCBADCBBAihhhhhhhhhhggggggggggffffffffffeeeeeeeeeeeddd"
  "........HFECBADCCBBahhhhhhhhhhggggggggggffffffffffeeeeeeeeeeeddd"
  ".......IGFECBADDCCBaahhhhhhhhhggggggggggffffffffffeeeeeeeeeeeddd"
  "........HGEDCBAEDCCaaahhhhhhhhggggggggggfffffffffffeeeeeeeeeeddd"
  "........AGFDCBAEDDCaaaahhhhhhhgggggggggggffffffffffeeeeeeeeeeddd"
  "........BAFECBAEEDDaaaaahhhhhhhggggggggggffffffffffeeeeeeeeeeddd"
  "........BAAFDCBAFEEaaaaaahhhhhhggggggggggffffffffffeeeeeeeeeeddd"
  ".........BAAECBAFFEbaaaaahhhhhggggggggggffffffffffeeeeeeeeeeeddd"
  ".........CBAADCBAGFbbaaaaahhhhggggggggggffffffffffeeeeeeeeeeeddd"
  ".........CCBAACBAGFbbbaaaaahhhggggggggggfffffffffffeeeeeeeeeeddd"
  ".........DCBBAACAGGbbbbaaaaahhgggggggggggffffffffffeeeeeeeeeeddd"
  "..........DCCBAABAHbbbbbaaaaahhggggggggggffffffffffeeeeeeeeeeddd"
  "..........DDCBBAAAHbbbbbaaaaaahggggggggggffffffffffeeeeeeeeeeddd"
  "..........EDDCBBAAIcbbbbbaaaaaaggggggggggffffffffffeeeeeeeeeeddd"
  "..........EEDDCCBAHccbbbbbaaaaagggggggggffffffffffeeeeeeeeeeeddd"
  "...........FEDDCBGFcccbbbbbaaaaaggggggggfffffffffffeeeeeeeeeeddd"
  "...........FEEDCFEDccccbbbbbaaaaaggggggggffffffffffeeeeeeeeeeddd"
  "...........GFEEDEDCcccccbbbbbaaaaagggggggffffffffffeeeeeeeeeeddd"
  "...........GFFEDCBAcccccbbbbbaaaaaaggggggffffffffffeeeeeeeeeeddd"
  "............GFCBAACdcccccbbbbbaaaaaagggggffffffffffeeeeeeeeeeddd"
  "............HGBABAAddcccccbbbbbaaaaaggggffffffffffeeeeeeeeeeeddd"
  "............HAAA...dddcccccbbbbbaaaaagggfffffffffffeeeeeeeeeeddd"
  "...................ddddcccccbbbbbaaaaagggffffffffffeeeeeeeeeeddd"
  "...................dddddcccccbbbbbaaaaaggffffffffffeeeeeeeeeeddd"
  "...................dddddcccccbbbbbaaaaaagffffffffffeeeeeeeeeeddd"
  "...................edddddcccccbbbbbaaaaaaffffffffffeeeeeeeeeeddd"
  "...................eedddddcccccbbbbbaaaaaafffffffffeeeeeeeeeeddd"
  "...................eeedddddcccccbbbbbaaaaafffffffffeeeeeeeeeeddd";

uint8_t testRaster[TEST_BUFFER_W * TEST_BUFFER_H];
uint8_t testScreen[S3L_RESOLUTION_X * S3L_RESOLUTION_Y];
uint8_t renderingMode = 0;

void pixelFunc(S3L_PixelInfo *p)
{
  if (renderingMode == 0)
    testRaster[p->y * TEST_BUFFER_W + p->x] += 1;
    else
  {
    char c = 'x';
 
    switch (p->modelIndex)
    {
      case 0: c = 'a'; break;
      case 1: c = 'A'; break;
      case 2: c = '0'; break;
      default: break;
    }

    c += ((p->barycentric[0] * 8) / S3L_FRACTIONS_PER_UNIT);

    testScreen[p->y * S3L_RESOLUTION_X + p->x] = c;
  }
}

int testTriangleRasterization(
  S3L_ScreenCoord x0,
  S3L_ScreenCoord y0,
  S3L_ScreenCoord x1,
  S3L_ScreenCoord y1,
  S3L_ScreenCoord x2,
  S3L_ScreenCoord y2,
  uint8_t *expectedPixels
  )
{
  printf("  --- testing tringle rasterization [%d,%d] [%d,%d] [%d,%d] (|: expected, -: rasterized) ----\n",x0,y0,x1,y1,x2,y2);

  memset(testRaster,0,TEST_BUFFER_W * TEST_BUFFER_H);

  S3L_Vec4 p0, p1, p2;

  S3L_setVec4(&p0,x0,y0,1000,0);
  S3L_setVec4(&p1,x1,y1,1000,0);
  S3L_setVec4(&p2,x2,y2,1000,0);

  S3L_drawTriangle(p0,p1,p2,0,0);
  
  printf("     0123456789ABCDEF\n");

  uint16_t numErrors = 0;

  for (uint8_t y = 0; y < TEST_BUFFER_H; ++y)
  {
    printf("  %d",y);
    
    if (y < 10)
      printf(" ");

    for (uint8_t x = 0; x < TEST_BUFFER_W; ++x)
    {
      uint8_t expected = expectedPixels[y * TEST_BUFFER_W + x];
      uint8_t rasterized = testRaster[y * TEST_BUFFER_W + x];

      char c =
        expected ?
          (rasterized ? '+' : '|')
          :
          (rasterized ? '-' : ' ');

      if (c == '-' || c == '|')
        numErrors++;

      printf("%c",c);
    }
  
    printf("\n");
  }
    
  printf("  errors: %d\n\n",numErrors);

  return numErrors;
}

int testRasterization(void)
{
  printf("\n=== TESTING RASTERIZATION ===\n");
  
  uint16_t numErrors = 0;
  
  uint8_t pixelsEmpty[TEST_BUFFER_W * TEST_BUFFER_H];
  memset(pixelsEmpty,0,TEST_BUFFER_W * TEST_BUFFER_H);

  numErrors += testTriangleRasterization(5,3, 3,3, 9,3, pixelsEmpty);
  numErrors += testTriangleRasterization(9,4, 9,0, 9,9, pixelsEmpty);
  numErrors += testTriangleRasterization(9,9, 6,6, 3,3, pixelsEmpty);
  numErrors += testTriangleRasterization(0,6, 3,3, 6,0, pixelsEmpty);
  numErrors += testTriangleRasterization(7,7, 7,7, 7,7, pixelsEmpty);

  uint8_t pixels1[TEST_BUFFER_W * TEST_BUFFER_H] =
  {
  // 0 1 2 3 4 5 6 7 8 9 A B C D E F
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 0
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 1
     0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0, // 2
     0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0, // 3
     0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0, // 4
     0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0, // 5
     0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0, // 6
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 7
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 8
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 9
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // A
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // B
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // C
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // D
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // E
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  // F
  }; 

  numErrors += testTriangleRasterization(4,1, 1,6, 9,7, pixels1);

  uint8_t pixels2[TEST_BUFFER_W * TEST_BUFFER_H] =
  {
  // 0 1 2 3 4 5 6 7 8 9 A B C D E F
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 0
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 1
     0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0, // 2
     0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0, // 3
     0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0, // 4
     0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0, // 5
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 6
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 7
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 8
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 9
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // A
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // B
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // C
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // D
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // E
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  // F
  }; 

  numErrors += testTriangleRasterization(7,1, 1,2, 4,6, pixels2);

  uint8_t pixels3[TEST_BUFFER_W * TEST_BUFFER_H] =
  {
  // 0 1 2 3 4 5 6 7 8 9 A B C D E F
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 0
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 1
     0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0, // 2
     0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0, // 3
     0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0, // 4
     0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0, // 5
     0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0, // 6
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 7
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 8
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 9
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // A
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // B
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // C
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // D
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // E
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  // F
  }; 

  numErrors += testTriangleRasterization(2,1, 1,3, 6,9, pixels3);

  uint8_t pixels4[TEST_BUFFER_W * TEST_BUFFER_H] =
  {
  // 0 1 2 3 4 5 6 7 8 9 A B C D E F
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 0
     0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 1
     0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0, // 2
     0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0, // 3
     0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0, // 4
     0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0, // 5
     0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0, // 6
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 7
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 8
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 9
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // A
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // B
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // C
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // D
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // E
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  // F
  }; 

  numErrors += testTriangleRasterization(4,8, 4,2, 0,0, pixels4);

  uint8_t pixels5[TEST_BUFFER_W * TEST_BUFFER_H] =
  {
  // 0 1 2 3 4 5 6 7 8 9 A B C D E F
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 0
     0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0, // 1
     0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0, // 2
     0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0, // 3
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 4
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 5
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 6
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 7
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 8
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 9
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // A
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // B
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // C
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // D
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // E
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  // F
  }; 

  numErrors += testTriangleRasterization(6,2, 2,4, 0,0, pixels5);

  uint8_t pixels6[TEST_BUFFER_W * TEST_BUFFER_H] =
  {
  // 0 1 2 3 4 5 6 7 8 9 A B C D E F
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 0
     0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0, // 1
     1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0, // 2
     0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0, // 3
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 4
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 5
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 6
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 7
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 8
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 9
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // A
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // B
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // C
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // D
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // E
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  // F
  }; 

  numErrors += testTriangleRasterization(0,2, 6,0, 4,4, pixels6);

  printf("cover test (each pixel should be covered exactly once):\n\n");

  S3L_ScreenCoord coords[] =
  {
    0,0,
    6,0,       
    13,0,     
    15,0,
    14,1,
    11,2,
    3,3,
    11,4,
    14,5,
    0,6,
    6,6,
    13,8,
    8,9,
    3,12,       
    9,12,
    11,13,
    9,14,
    0,15,                          
    15,15
  };

  memset(testRaster,0,TEST_BUFFER_W * TEST_BUFFER_H);

  #define dt(i1,i2,i3)\
  {\
    S3L_Vec4 p0, p1, p2;\
    S3L_setVec4(&p0,coords[2*i1],coords[2*i1 + 1],1000,0);\
    S3L_setVec4(&p1,coords[2*i2],coords[2*i2+1],1000,0);\
    S3L_setVec4(&p2,coords[2*i3],coords[2*i3+1],1000,0);\
    S3L_drawTriangle(p0,p1,p2,0,0);\
  }

  dt(0,1,6)    // 0
  dt(1,2,5)    // 1
  dt(2,4,5)    // 2
  dt(2,3,4)    // 3
  dt(0,6,9)    // 4
  dt(1,10,6)   // 5
  dt(1,5,10)   // 6
  dt(5,4,8)    // 7
  dt(4,3,8)    // 8
  dt(9,6,10)   // 9
  dt(10,5,12)  // 10
  dt(5,7,12)   // 11
  dt(5,7,11)   // 12
  dt(5,8,11)   // 13
  dt(8,3,18)   // 14
  dt(9,10,13)  // 15
  dt(10,12,13) // 16
  dt(12,7,11)  // 17
  dt(11,8,18)  // 18
  dt(9,13,17)  // 19
  dt(13,12,14) // 20
  dt(12,11,14) // 21
  dt(11,14,15) // 22
  dt(15,11,18) // 23
  dt(13,14,16) // 24
  dt(14,15,16) // 25
  dt(17,13,16) // 26
  dt(16,15,18) // 27
  dt(16,17,18) // 28

  // extra empty triangles
  dt(12,12,12);
  dt(9,10,10);
  dt(1,10,10);
  dt(9,6,1);
  dt(0,6,10);

  #undef dt

  uint16_t numErrors2 = 0;
 
  for (uint8_t y = 0; y < TEST_BUFFER_H - 1; ++y)
  {                                    // ^ complete left and bottom aren't 
    printf("  ");                      // supposed to be rasterized

    for (uint8_t x = 0; x < TEST_BUFFER_W - 1; ++x)
    {
      uint8_t count = testRaster[y * TEST_BUFFER_W + x];
     
      printf("%d",count);
      
      if (count != 1)
        numErrors2++;
    }
 
    printf("\n");
  }

  printf("  errors: %d\n",numErrors2);

  numErrors += numErrors2;

  printf("total rasterization errors: %d\n",numErrors);

  return numErrors;
}

static inline double absVal(double a)
{
  return a >= 0.0 ? a : (-1 * a);
}

double vec3Len(S3L_Vec4 v)
{
  return sqrt(
    ((double) v.x) * ((double) v.x) +
    ((double) v.y) * ((double) v.y) +
    ((double) v.z) * ((double) v.z));
}

int testGeneral(void)
{
  printf("\n=== TESTING GENERAL ===\n");

  printf("testing vector normalization precision...\n");

  S3L_Unit m = 100 * S3L_FRACTIONS_PER_UNIT;
  S3L_Unit tolerance = 0.1 * S3L_FRACTIONS_PER_UNIT;

  uint32_t errors0 = 0;
  uint32_t errors1 = 0;

  for (S3L_Unit x = -1 * m; x < m; x += 3 * (absVal(x) / 64 + 1))
    for (S3L_Unit y = -1 * m; y < m; y += 3 * (absVal(y) / 32 + 1))
      for (S3L_Unit z = -1 * m; z < m; z += 5 * (absVal(z) / 64 + 1))
      {
        S3L_Vec4 v;

        S3L_setVec4(&v,x,y,z,0);
        S3L_normalizeVec3Fast(&v);

        double l0 = vec3Len(v);
        double e0 = absVal(l0 - S3L_FRACTIONS_PER_UNIT);

        S3L_setVec4(&v,x,y,z,0);
        S3L_normalizeVec3(&v);

        double l1 = vec3Len(v);
        double e1 = absVal(l1 - S3L_FRACTIONS_PER_UNIT);

        if (e0 > tolerance)
          errors0++;

        if (e1 > tolerance)
        {
          errors1++;

          printf("%f\n",l1);
          S3L_logVec4(v);
        }
      }

  printf("wrong normalization with unsafe function: %d\nwrong normalizations with safe function: %d\n",errors0,errors1);

  return errors1;
}

S3L_Unit cubeVertices[] = { S3L_CUBE_VERTICES(S3L_FRACTIONS_PER_UNIT) };
S3L_Index cubeTriangles[] = { S3L_CUBE_TRIANGLES };
S3L_Unit triangleVertices[] = { -512, 0, 512, 402, 0, 200, 0, 600, 0 };
S3L_Index triangleTriangles[] = { 0, 1, 2 };

S3L_Model3D cubeModel;
S3L_Model3D triangleModel;
S3L_Model3D models[4];
S3L_Scene scene;

int testRender(void) 
{
  printf("\n=== TESTING RENDER ===\n");

  memset(testScreen,'.',S3L_RESOLUTION_X * S3L_RESOLUTION_Y);

  S3L_initModel3D(cubeVertices,S3L_CUBE_VERTEX_COUNT,cubeTriangles,S3L_CUBE_TRIANGLE_COUNT,&cubeModel); 
  S3L_initModel3D(triangleVertices,3,triangleTriangles,1,&triangleModel); 

  models[0] = cubeModel;
  models[0].transform.translation.z -= S3L_FRACTIONS_PER_UNIT;

  models[1] = cubeModel;
  models[1].transform.translation.x -= S3L_FRACTIONS_PER_UNIT * 2;
  models[1].transform.translation.y = S3L_FRACTIONS_PER_UNIT / 2;
  models[1].transform.scale.y = S3L_FRACTIONS_PER_UNIT * 2;
  models[1].transform.rotation.x = 200;
  models[1].transform.rotation.y = 100;

  models[2] = triangleModel;
  models[2].transform.translation.x = -1000;
  models[2].transform.translation.y = 1000;

  models[3] = triangleModel;
  models[3].transform.translation.x = -1500;
  models[3].transform.translation.y = 1200;
  models[3].transform.rotation.x = S3L_FRACTIONS_PER_UNIT / 2; // turn away, test BF culling

  S3L_initScene(models,4,&scene);

  scene.camera.transform.translation.z = -2 * S3L_FRACTIONS_PER_UNIT;
  scene.camera.transform.translation.y = S3L_FRACTIONS_PER_UNIT / 3;
  scene.camera.transform.rotation.y = 30;

  renderingMode = 1;

  S3L_newFrame(); 
  S3L_drawScene(scene);

  int errors = 0;

  for (uint32_t i = 0; i < (S3L_RESOLUTION_X * S3L_RESOLUTION_Y); ++i)
  {
    if ((i % S3L_RESOLUTION_X) == 0)
      printf("  \n");

    printf("%c",testScreen[i]);

    if (testScreen[i] != expectedRender[i])
      errors += 1;
  } 

  return errors;
}

int main(void)
{
  printf("testing small3dlib\n\n");

  S3L_Mat4 m, m2;
  S3L_Vec4 v;

  S3L_initMat4(&m);
  S3L_logMat4(m);

  S3L_initVec4(&v);

  S3L_logVec4(v);
 
  S3L_vec4Xmat4(&v,&m); 
  S3L_logVec4(v);

  S3L_makeTranslationMat(100,200,300,&m2);
  S3L_logMat4(m2);

  S3L_mat4Xmat4(&m,&m2);
  S3L_logMat4(m);

  uint32_t totalErrors = 0;

  totalErrors += testGeneral();
  totalErrors += testRasterization();
  totalErrors += testRender();

  printf("\n\n===== DONE =====\ntotal errors: %d\n",totalErrors);

  return 0;
}

obj2array.py
# Python tool to convert a 3D model from the text obj format to C arrays to be
# used with small3dlib.
#
# by drummyfish
# released under CC0 1.0.

import sys

def printHelp():
  print("Convert 3D model in OBJ format (text, triangulated) to C array for small3dlib.")
  print("usage:\n")
  print("  python obj2array.py [-c -sX -uY -vZ -n] file\n")
  print("  -c     compact format (off by default)")
  print("  -t     use direct instead of indexed UV coords (off by default)")
  print("  -h     include header guards (for model per file)")
  print("  -m     include a material array (per-triangle)")
  print("  -nS    use the name S for the model (defaut: \"model\")")
  print("  -sX    scale the model by X (default: 512)")
  print("  -uY    scale the U texture coord by Y (default: 512)")
  print("  -vZ    scale the V texture coord by Z (default: 512)")
  print("");
  print("by Miloslav \"drummyfish\" Ciz")
  print("released under CC0 1.0")

if len(sys.argv) < 2:
  printHelp()
  quit()

FILENAME = ""
VERTEX_SCALE = 512
U_SCALE = 512
V_SCALE = 512
NAME = "model"
GUARDS = False
COMPACT = False
INDEXED_UVS = True
MATERIALS = False

for s in sys.argv:
  if s == "-c":
    COMPACT = True
  elif s == "-t":
    INDEXED_UVS = False
  elif s == "-h":
    GUARDS = True
  elif s == "-m":
    MATERIALS = True
  elif s[:2] == "-s":
    VERTEX_SCALE = int(s[2:])
  elif s[:2] == "-u":
    U_SCALE = int(s[2:])
  elif s[:2] == "-v":
    V_SCALE = int(s[2:])
  elif s[:2] == "-n":
    NAME = s[2:]
  else:
    FILENAME = s

objFile = open(FILENAME)

vertices = []
uvs = []
triangles = []
triangleUVs = []
materials = []
materialNames = []

currentMatrial = 0

def getMaterialIndex(materialName):
  try:
    return materialNames.index(materialName)
  except Exception:
    materialNames.append(materialName)
    return len(materialNames) - 1

# parse the file:

for line in objFile:
  if line[:2] == "v ":
    coords = line[2:].split()
    vertex = [float(coords[i]) for i in range(3)]
    vertex[2] *= -1
    vertices.append(vertex)
  elif line[:3] == "vt ":
    coords = line[3:].split()
    vertex = [float(coords[i]) for i in range(2)]
    vertex[1] = 1.0 - vertex[1]
    uvs.append(vertex)
  elif line[:2] == "f ":
    indices = line[2:].split()

    if len(indices) != 3:
      raise(Exception("The model is not triangulated!"))

    t = []
    u = []
 
    for i in indices:
      components = i.split("/")
      t.append(int(components[0]) - 1)
      u.append(int(components[1]) - 1)

    triangles.append(t)
    triangleUVs.append(u)
    materials.append([currentMatrial])
  elif line[:7] == "usemtl ":
    currentMatrial = getMaterialIndex(line[7:])

# print the result:

def arrayString(name, array, components, scales, align, short, dataType, sizeStr):
  result = "const " + dataType + " " + name + "[" + sizeStr + "] = {\n"

  if COMPACT:
    lineLen = 0
    first = True
    n = 0

    for v in array:
      for c in v:
        item = ""

        if first:
          first = False
        else:
          result += ","
          lineLen += 1

          if lineLen >= 80:
            result += "\n"
            lineLen = 0

        num = c * scales[n % len(scales)]

        if short:
          item += str(num)
        else:
          item += ("" if num >= 0 else "-") + "0x%x" % abs(num)

        if lineLen + len(item) >= 80:
          result += "\n"
          lineLen = 0
       
        result += item
        lineLen += len(item)
        n += 1

    result += "};\n"

  else: # non-compact
    n = 0
    endIndex = len(array) - 1

    for v in array:
      line = "  " + ", ".join([str(int(v[c] * scales[c % len(scales)])).rjust(align) for c in range(components)])

      if n < endIndex:
        line += ","

      line = line.ljust((components + 2) * (align + 1)) + "// " + str(n * components) + "\n"
      result += line
      n += 1

    result += "}; // " + name + "\n"

  return result

result = ""

if GUARDS:
  print("#ifndef " + NAME.upper() + "_MODEL_H")
  print("#define " + NAME.upper() + "_MODEL_H\n")

print("#define " + NAME.upper() + "_VERTEX_COUNT " + str(len(vertices)))
print(arrayString(NAME + "Vertices",vertices,3,[VERTEX_SCALE],5,False,"S3L_Unit",NAME.upper() + "_VERTEX_COUNT * 3"))

print("#define " + NAME.upper() + "_TRIANGLE_COUNT " + str(len(triangles)))
print(arrayString(NAME + "TriangleIndices",triangles,3,[1],5,True,"S3L_Index",NAME.upper() + "_TRIANGLE_COUNT * 3"))

if MATERIALS:
  print(arrayString(NAME + "Materials",materials,1,[1],5,True,"uint8_t",NAME.upper() + "_TRIANGLE_COUNT"))

if INDEXED_UVS:
  print("#define " + NAME.upper() + "_UV_COUNT " + str(len(uvs)))
  print(arrayString(NAME + "UVs",uvs,2,[U_SCALE,V_SCALE],5,False,"S3L_Unit",NAME.upper() + "_UV_COUNT * 2"))
  print("#define " + NAME.upper() + "_UV_INDEX_COUNT " + str(len(triangleUVs)))
  print(arrayString(NAME + "UVIndices",triangleUVs,3,[1],5,True,"S3L_Index",NAME.upper() + "_UV_INDEX_COUNT * 3"))
else:
  uvs2 = []
  for item in triangleUVs:
    uvs2.append([
      uvs[item[0]][0],
      uvs[item[0]][1],
      uvs[item[1]][0],
      uvs[item[1]][1],
      uvs[item[2]][0],
      uvs[item[2]][1]])

  print("#define " + NAME.upper() + "_DIRECT_UV_COUNT " + str(len(uvs2)))
  print(arrayString(NAME + "DirectUVs",uvs2,6,[U_SCALE,V_SCALE],5,False,"S3L_Unit",NAME.upper() + "_DIRECT_UV_COUNT * 6"))

print("S3L_Model3D " + NAME + "Model;\n")

print("void " + NAME + "ModelInit()")
print("{")
print("  S3L_initModel3D(")
print("    " + NAME + "Vertices,")
print("    " + NAME.upper() + "_VERTEX_COUNT,")
print("    " + NAME + "TriangleIndices,")
print("    " + NAME.upper() + "_TRIANGLE_COUNT,")
print("    &" + NAME + "Model);")
print("}")

if GUARDS:
  print("\n#endif // guard")

Steamer Duck
# -*- coding: utf-8 -*-

## A duck game.
#
#  Miloslav 'tastyfish' Číž, 2015, FIT VUT Brno
#  For Python 2.7.
#  released under CC0

import pygame
import sys
import math
import random
import os

# time of the last frame in milliseconds
frame_time = 0.0

# after how many frames the player state will be updated (this is
# only a graphics thing)

#-----------------------------------------------------------------------

def text_to_fixed_width(text, width):
  if len(text) > width:
    return text[:width]

  return text + " " * (width - len(text))

#-----------------------------------------------------------------------

## Prepares image after loading for its use.
#
#  @param image image to be prepared (pygame.Surface)
#  @param transparent_color color that should be transparent, if not
#         given, no color will be transparent (pygame.Color)
#  @param transparency_mask image to be used as a transparency map, it
#         should be the same size as the image and should be gray scale,
#         0 meaning fully transparent, 255 fully non-transparent
#         (pygame.Surface)
#  @return prepared image

def prepare_image(image, transparent_color = None, transparency_mask = None):
  result = pygame.Surface.convert(image)

  if transparency_mask != None:
    result = pygame.Surface.convert_alpha(result)

    for y in range(image.get_height()):
      for x in range(image.get_width()):
        color = image.get_at((x,y))
        alpha = transparency_mask.get_at((x,y))

        color.a = alpha.r
        result.set_at((x,y),color)

  elif transparent_color != None:
    result = pygame.Surface.convert_alpha(result)

    for y in range(image.get_height()):
      for x in range(image.get_width()):
        color = image.get_at((x,y))

        if color == transparent_color:
          color.a = 0
          result.set_at((x,y),color)

  return result

#-----------------------------------------------------------------------

class MapGridObject:
  OBJECT_TILE = 0
  OBJECT_FINISH = 1
  OBJECT_TRAMPOLINE = 2
  OBJECT_COIN = 3
  OBJECT_EGG = 4
  OBJECT_ENEMY_FLYING = 5
  OBJECT_ENEMY_GROUND = 6
  OBJECT_PLAYER = 7
  OBJECT_SPIKES = 8

  ## Checks if the argument is a tile.
  #
  #  @return True if what is a tile, False otherwise

  @staticmethod
  def is_tile(what):
    return what != None and (what.object_type == MapGridObject.OBJECT_TILE or what.object_type == MapGridObject.OBJECT_TRAMPOLINE)

  ## Makes an instance of MapGridObject based on provided string.
  #
  #  @param object_string string representing the object
  #  @return MapGridObject instance or None (if the string represented
  #          no object)

  @staticmethod
  def get_instance_from_string(object_string):
    if object_string == ".":
      return None

    result = MapGridObject()

    if object_string[0] == "X":
      result.object_type = MapGridObject.OBJECT_FINISH
    elif object_string[0] == "E":
      result.object_type = MapGridObject.OBJECT_EGG
    elif object_string[0] == "C":
      result.object_type = MapGridObject.OBJECT_COIN
    elif object_string[0] == "P":
      result.object_type = MapGridObject.OBJECT_PLAYER
    elif object_string[0] == "T":
      result.object_type = MapGridObject.OBJECT_TRAMPOLINE
    elif object_string[0] == "S":
      result.object_type = MapGridObject.OBJECT_SPIKES
    elif object_string[0] == "F":
      result.object_type = MapGridObject.OBJECT_ENEMY_FLYING
      result.enemy_id = int(object_string[2:])
    elif object_string[0] == "G":
      result.object_type = MapGridObject.OBJECT_ENEMY_GROUND
      result.enemy_id = int(object_string[2:])
    else:    # tile
      result.object_type = MapGridObject.OBJECT_TILE
      helper_list = object_string.split(";")
      result.tile_id = int(helper_list[0])
      result.tile_variant = int(helper_list[1])

    return result

  def __init_attributes(self):
    self.object_type = MapGridObject.OBJECT_TILE
    self.tile_id = 0
    self.tile_variant = 1
    self.enemy_id = 0

  def __str__(self):
    if self.object_type == MapGridObject.OBJECT_TILE:
      return "t"
    if self.object_type == MapGridObject.OBJECT_COIN:
      return "C"
    if self.object_type == MapGridObject.OBJECT_EGG:
      return "E"
    if self.object_type == MapGridObject.OBJECT_PLAYER:
      return "P"
    if self.object_type == MapGridObject.OBJECT_ENEMY_FLYING:
      return "F"
    if self.object_type == MapGridObject.OBJECT_ENEMY_GROUND:
      return "G"
    if self.object_type == MapGridObject.OBJECT_FINISH:
      return "F"
    return "?"

  def __init__(self):
    self.__init_attributes()
    return

#-----------------------------------------------------------------------

class Level:

  STATE_PLAYING = 0
  STATE_WON = 1
  STATE_LOST = 2

  ## Loads the level from given file.
  #
  #  @param filename file to be loaded

  def load_from_file(self,filename):
    self.filename = filename

    with open(filename) as input_file:
      content = input_file.readlines()

    for i in range(len(content)):    # get rid of newlines and spaces
      content[i] = ((content[i])[:-1]).rstrip()

    line_number = 0

    while line_number < len(content):
      if content[line_number] == "name:":
        line_number += 1
        self.name = content[line_number]
      elif content[line_number] == "background:":
        line_number += 1
        self.background_name = content[line_number]
        line_number += 1
        self.background_color = pygame.Color(content[line_number])
      elif content[line_number].rstrip() == "tiles:":
        while True:
          line_number += 1
          if line_number >= len(content) or len(content[line_number]) == 0:
            break

          helper_list = content[line_number].split()
          self.tiles.append((int(helper_list[0]),helper_list[1],int(helper_list[2])))

      elif content[line_number] == "outside:":
        line_number += 1
        self.outside_tile = MapGridObject()
        self.outside_tile.object_type = MapGridObject.OBJECT_TILE
        self.outside_tile.tile_id = int(content[line_number])
        self.outside_tile.tile_variant = 1

      elif content[line_number] == "scores:":
        line_number += 1

        while True:
          if line_number >= len(content):
            break

          split_line = content[line_number].split()

          if len(split_line) != 3:
            break

          self.scores.append((split_line[0],int(split_line[1]),int(split_line[2])))
          line_number += 1

        line_number -= 1

        self._sort_scores()

      elif content[line_number] == "map:":
        line_number += 1
        helper_list = content[line_number].split()  # map size
        self.width = int(helper_list[0])
        self.height = int(helper_list[1])
        self.map_array = [[None] * self.height for item in range(self.width)]
        pos_y = 0

        while True:              # load the map grid
          line_number += 1

          if line_number >= len(content) or len(content[line_number]) == 0:
            break

          helper_list = content[line_number].split()

          for pos_x in range(len(helper_list)):

            helper_object = MapGridObject.get_instance_from_string(helper_list[pos_x])

            if helper_object == None:
              self.map_array[pos_x][pos_y] = helper_object
            elif helper_object.object_type == MapGridObject.OBJECT_PLAYER:
              self.player = Player(self)
              self.player.position_x = pos_x + 0.5
              self.player.position_y = pos_y + 0.5
            elif helper_object.object_type == MapGridObject.OBJECT_ENEMY_FLYING:
              self.enemies.append(Enemy(self,Enemy.ENEMY_FLYING))
              self.enemies[-1].position_x = pos_x + 0.5
              self.enemies[-1].position_y = pos_y + 0.5
            elif helper_object.object_type == MapGridObject.OBJECT_ENEMY_GROUND:
              self.enemies.append(Enemy(self,Enemy.ENEMY_GROUND))
              self.enemies[-1].position_x = pos_x + 0.5
              self.enemies[-1].position_y = pos_y + 0.5
            else:
              if helper_object.object_type == MapGridObject.OBJECT_EGG:
                self.eggs_left += 1
              elif helper_object.object_type == MapGridObject.OBJECT_COIN:
                self.coins_total += 1

              self.map_array[pos_x][pos_y] = helper_object

          pos_y += 1

      line_number += 1

  ## Saves the scores into a file that's associated with the level
  #  (the one that's been passed to load_from_file method).

  def save_scores(self):
    if len(self.filename) == 0:
      return

    output_lines = []

    input_file = open(self.filename)

    for line in input_file:
      if line.lstrip().rstrip() == "scores:":
        break
      else:
        output_lines.append(line)

    input_file.close()

    output_file = open(self.filename,"w")

    for line in output_lines:
      output_file.write(line)

    output_file.write("scores:\n")

    for score in self.scores:
      output_file.write(score[0] + " " + str(score[1]) + " " + str(score[2]) + "\n")

    output_file.close()

  ## Says to add a new score entry. The entry will be added if it will
  #  be among the top scores.
  #
  #  @param name player name (string)
  #  @param time time in milliseconds (int)
  #  @param score player score

  def add_score(self, name, time, score):
    if len(self.scores) < 20:   # record 20 highest scores
      self.scores.append((name,score,time))
    else:
      minimum_index = 0
      i = 0

      while len(self.scores):
        if self.scores[i][1] < self.scores[minimum_index][1]:
          minimum_index = i

        i += 1

      if self.scores[minimum_index][1] < score:
        del self.scores[minimum_index]
        self.scores.append((name,score,time))
        self._sort_scores()

  def _sort_scores(self):
    self.scores.sort(key = lambda item: item[1],reverse = True)

  ## Checks the game state and updates it acoordingly, for example if
  #  a player is standing on an egg, they will take it.

  def update(self):
    player_tile_x = int(self.player.position_x)
    player_tile_y = int(self.player.position_y)

    self.time = pygame.time.get_ticks() - self._time_start

    object_at_player_tile = self.get_at(player_tile_x,player_tile_y)
    object_under_player_tile = self.get_at(player_tile_x,player_tile_y + 1)

    if object_at_player_tile != None:
      if object_at_player_tile.object_type == MapGridObject.OBJECT_COIN:
        self.sound_player.play_coin()
        self.map_array[player_tile_x][player_tile_y] = None
        self.coins_collected += 1
      elif object_at_player_tile.object_type == MapGridObject.OBJECT_EGG:
        self.sound_player.play_click()
        self.map_array[player_tile_x][player_tile_y] = None
        self.eggs_left -= 1
      elif object_at_player_tile.object_type == MapGridObject.OBJECT_FINISH:
        if self.eggs_left <= 0:
          self.state = Level.STATE_WON
          self.add_score(self.game.name,pygame.time.get_ticks() - self._time_start,self.score)
          self.save_scores()
          self.player.force_computer.velocity_vector[0] = 0
          self.sound_player.play_win()
      elif object_at_player_tile.object_type == MapGridObject.OBJECT_SPIKES:
        self.set_lost()
        return

    if object_under_player_tile != None and object_under_player_tile.object_type == MapGridObject.OBJECT_TRAMPOLINE and not self.player.is_in_air():
      self.player.force_computer.velocity_vector[1] = -10
      self.sound_player.play_trampoline()

    # compute the score:

    self.score = int(20000000.0 / (pygame.time.get_ticks() - self._time_start + 20000)) + self.coins_collected * 200

    # check colissions of player with enemies:

    for enemy in self.enemies:
      if self.player.collides(enemy):
        self.set_lost()

  ## Sets the game state to lost and takes appropriate actions.

  def set_lost(self):
    if self.state == Level.STATE_LOST:
      return

    self.player.last_quack_time = -99999 # to allow the player to make quack
    self.player.quack()

    self.state = Level.STATE_LOST
    self.player.solid = False
    self.player.force_computer.velocity_vector[0] = -1
    self.player.force_computer.velocity_vector[1] = -4
    self.player.force_computer.acceleration_vector[0] = 0
    self.player.force_computer.ground_friction = 0

  def __init_attributes(self):
    ## this will contain the name of the file associated with the level
    self.filename = ""
    ## game to which the level belongs
    self.game = None
    ## the level name
    self.name = ""
    ## current score
    self.score = 0
    ## holds the level scores, the items of the list are tuples
    #  (name, score, time in ms)
    self.scores = []
    ## state of the game
    self.state = Level.STATE_PLAYING
    ## total number of coins in the level, this doesn not decrease as
    #  the player takes them
    self.coins_total = 0
    ## how many coins the player has collected in the level so far
    self.coins_collected = 0
    ## how many eggs are there left in the level
    self.eggs_left = 0
    ## the level background name
    self.background_name = ""
    ## background color (pygame.Color)
    self.background_color = None
    ## list of tile types - dicts in format [id (int), name (str), number of variants (int)]
    self.tiles = []
    ## map width in tiles
    self.width = 0
    ## map height in tiles
    self.height = 0
    ## 2D list of map grid objects representing the map, each item can
    #  be None (representing nothing) or a MapGridObject
    self.map_array = None
    ## contains a MapGridObject representing a tile with which the area
    #  outside of the level is filled
    self.outside_tile = None
    ## the player object
    self.player = None
    ## contains enemies
    self.enemies = []
    ## plays the sounds in the game
    self.sound_player = None
    ## gravity force
    self.gravity = 4.7
    ## time from the level start in miliseconds
    self.time = 0
    ## time at which the level was created
    self._time_start = pygame.time.get_ticks()

  ## Gets the MapGridObject at given position in the map with map
  #  boundary check.
  #
  #  @param x x position
  #  @param y y position
  #  @return MapGridObject at given position (can be also None), if the
  #          position provided is outside the map area, the
  #          MapGridObject representing the outside tile is returned

  def get_at(self, x, y):
    if x < 0 or x >= self.width or y < 0 or y >= self.height:
      return self.outside_tile

    return self.map_array[x][y]

  def __init__(self, game):
    self.__init_attributes()
    self.sound_player = game.sound_player
    self.game = game

#-----------------------------------------------------------------------

## Represents an object that has a position and a rectangular shape. The
#  object can be moved with collision detections.

class Movable(object):
  def __init_attributes(self):
    ## x position of the center in tiles (float)
    self.position_x = 0.0
    ## y position of the center in tiles (float)
    self.position_y = 0.0
    ## object width in tiles (float)
    self.width = 0.4
    ## object height in tiles (float)
    self.height = 0.8
    ## reference to a level in which the object is placed (for colision
    #  detection)
    self.level = None
    ## says if collisions are applied when moving
    self.solid = True

  ## Check if the object collides with another object.
  #
  #  @param with_what object to check the collision with (Movable)
  #  @return True if the objects collide, otherwise False

  def collides(self, with_what):
    if ((self.position_x < with_what.position_x and
         self.position_x < with_what.position_x + with_what.width and
         self.position_x + self.width < with_what.position_x and
         self.position_x + self.width < with_what.position_x + with_what.width)
         or
         (self.position_x > with_what.position_x and
         self.position_x > with_what.position_x + with_what.width and
         self.position_x + self.width > with_what.position_x and
         self.position_x + self.width > with_what.position_x + with_what.width)):
      return False

    if ((self.position_y < with_what.position_y and
         self.position_y < with_what.position_y + with_what.height and
         self.position_y + self.height < with_what.position_y and
         self.position_y + self.height < with_what.position_y + with_what.height)
         or
         (self.position_y > with_what.position_y and
         self.position_y > with_what.position_y + with_what.height and
         self.position_y + self.height > with_what.position_y and
         self.position_y + self.height > with_what.position_y + with_what.height)):
      return False

    return True

  ## Checks if the object is in the air (i.e. there is no tile right
  #  below it)
  #
  #  @return True if the object is in the air, False otherwise

  def is_in_air(self):
    distance_to_ground = 99999

    lower_border = self.position_y + self.height / 2.0
    tile_y = int(lower_border) + 1

    if MapGridObject.is_tile(self.level.get_at(int(self.position_x),tile_y)):
      distance_to_ground = tile_y - lower_border

    return distance_to_ground > 0.1

  ## Moves the object by given position difference with colission
  #  detections.
  #
  #  @param dx position difference in x, in tiles (float)
  #  @param dy position difference in y, in tiles (float)

  def move_by(self, dx, dy):
    if not self.solid:
      self.position_x += dx
      self.position_y += dy
      return

    half_width = self.width / 2.0
    half_height = self.height / 2.0

    # occupied cells in format (x1,y1,x2,y2)
    occupied_cells = (int(self.position_x - half_width),int(self.position_y - half_height),int(self.position_x + half_width),int(self.position_y + half_height))

    # distances to nearest obstacles:
    distance_x = 0
    distance_y = 0

    if dx > 0:
      minimum = 65536

      for i in range(occupied_cells[1],occupied_cells[3] + 1):
        value = 65536

        for j in range(occupied_cells[2] + 1,occupied_cells[2] + 3):  # checks the following two cells
          if MapGridObject.is_tile(self.level.get_at(j,i)):
            value = j
            break

        if value < minimum:
          minimum = value

      distance_x = minimum - (self.position_x + half_width)
    elif dx < 0:
      maximum = -2048

      for i in range(occupied_cells[1],occupied_cells[3] + 1):
        value = -2048

        for j in range(occupied_cells[0] - 1,occupied_cells[0] - 3,-1):
          if MapGridObject.is_tile(self.level.get_at(j,i)):
            value = j
            break

        if value > maximum:
          maximum = value

      distance_x = (maximum + 1) - (self.position_x - half_width)

    if dy > 0:
      minimum = 65536

      for i in range(occupied_cells[0],occupied_cells[2] + 1):
        value = 65536

        for j in range(occupied_cells[3] + 1,occupied_cells[3] + 3):  # checks the following two cells
          if MapGridObject.is_tile(self.level.get_at(i,j)):
            value = j
            break

        if value < minimum:
          minimum = value

      distance_y = minimum - (self.position_y + half_height)
    elif dy < 0:
      maximum = -2048

      for i in range(occupied_cells[0],occupied_cells[2] + 1):
        value = -2048

        for j in range(occupied_cells[1] - 1,occupied_cells[1] - 3,-1):
          if MapGridObject.is_tile(self.level.get_at(i,j)):
            value = j
            break

        if value > maximum:
          maximum = value

      distance_y = (maximum + 1) - (self.position_y - half_height)

    if abs(distance_x) > abs(dx):
      self.position_x += dx

    if abs(distance_y) > abs(dy):
      self.position_y += dy

  def __init__(self, level):
    self.__init_attributes()
    self.level = level
    return

#-----------------------------------------------------------------------

class Player(Movable):
  PLAYER_STATE_STANDING = 0
  PLAYER_STATE_WALKING = 1
  PLAYER_STATE_JUMPING_UP = 2
  PLAYER_STATE_JUMPING_DOWN = 3
  QUACK_COOLDOWN = 5000       # quack cooldown time in milliseconds
  QUACK_DURATION = 2500       # for how long the quack immobilises the enemies

  def __init_attributes(self):
    ## basic player state
    self.state = Player.PLAYER_STATE_STANDING
    ## whether the player is facing right or left
    self.facing_right = True
    ## whether the player is flapping its wings
    self.flapping_wings = False
    self.last_quack_time = -999999
    ## force computer of the player
    self.force_computer = ForceComputer(self)

  def jump(self):
    self.force_computer.velocity_vector[1] = -3.7

  ## Makes the player quack and takes appropriate actions (tells the
  #  level about it etc).

  def quack(self):
    if pygame.time.get_ticks() < self.last_quack_time + Player.QUACK_COOLDOWN:
      return

    self.last_quack_time = pygame.time.get_ticks()
    self.level.sound_player.play_quack()

  def __init__(self, level):
    super(Player,self).__init__(level)
    self.__init_attributes()
    self.force_computer.acceleration_vector[0] = self.level.gravity     # set the gravity
    self.force_computer.acceleration_vector[1] = 0


#-----------------------------------------------------------------------

class Enemy(Movable):
  ENEMY_FLYING = 0
  ENEMY_GROUND = 1

  ## Makes the enemy move accoording to its AI. The step length is
  #  computed out of a global
  #  variable frame_time.

  def ai_move(self):
    self.force_computer.execute_step()

    if pygame.time.get_ticks() < self.level.player.last_quack_time + Player.QUACK_DURATION:  # quack is active => monsters don't move
      self.force_computer.velocity_vector[0] = 0

      if self.enemy_type == Enemy.ENEMY_FLYING:
        self.force_computer.velocity_vector[1] = 0

      return

    if pygame.time.get_ticks() >= self.next_direction_change:
      self.next_direction_change = pygame.time.get_ticks() + random.randint(500,2000)
      self.__recompute_direction()

  ## Private method, recomputes the direction of movement to a new
  #  direction and remembers it as a velocity vector in force computer.

  def __recompute_direction(self):
    self.force_computer.velocity_vector[0] = 1.0 - random.random() * 2.0
    self.force_computer.velocity_vector[1] = 1.0 - random.random() * 2.0

  def __init__(self, level, enemy_type = ENEMY_GROUND):
    super(Enemy,self).__init__(level)
    self.enemy_type = enemy_type

    self.force_computer = ForceComputer(self)

    if self.enemy_type == Enemy.ENEMY_GROUND:  # apply gravity to the ground robot
      self.force_computer.acceleration_vector[0] = 0
      self.force_computer.acceleration_vector[1] = level.gravity

    self.force_computer.ground_friction = 0

    ## time of next direction change
    self.next_direction_change = 0

    self.enemy_type = enemy_type
    return

#-----------------------------------------------------------------------

## Tile top layer image container.

class TileTopImageContainer:
  def __init__(self):
    ## full image
    self.image = None
    ## subimage - left
    self.left = None
    ## subimage - center
    self.center = None
    ## subimage - right
    self.right = None

#-----------------------------------------------------------------------

## Character (player, enemy, ...) image container.

class CharacterImageContainer:
  def __init__(self):
    self.standing = []
    self.moving_right = []
    self.moving_left = []
    self.jumping = []
    self.special = []

#-----------------------------------------------------------------------

class SoundPlayer:

  ## Initialises the sound player.
  #
  #  @param allow whether the sound is allowed or not (boolean)

  def __init__(self, allow):
    self.allowed = allow

    if not self.allowed:
      return

    pygame.mixer.init()

    if not pygame.mixer.get_init:
      return

    self.sound_quack = pygame.mixer.Sound("resources/quack.wav")
    self.sound_trampoline = pygame.mixer.Sound("resources/trampoline.wav")
    self.sound_coin = pygame.mixer.Sound("resources/coin.wav")
    self.sound_click = pygame.mixer.Sound("resources/click.wav")
    self.sound_flap = pygame.mixer.Sound("resources/flapping.wav")
    self.sound_win = pygame.mixer.Sound("resources/win.wav")

    pygame.mixer.music.load("resources/loyalty_freak_music_you_know_why.wav")
    pygame.mixer.music.set_volume(0.5)
    pygame.mixer.music.play()

  def play_quack(self):
    if self.allowed:
      self.sound_quack.play()

  def play_trampoline(self):
    if self.allowed:
      self.sound_trampoline.play()

  def play_coin(self):
    if self.allowed:
      self.sound_coin.play()

  def play_click(self):
    if self.allowed:
      self.sound_click.play()

  def play_flap(self):
    if self.allowed:
      self.sound_flap.play()

  def play_win(self):
    if self.allowed:
      self.sound_win.play()

#-----------------------------------------------------------------------

class Renderer:
  TILE_WIDTH = 200
  TILE_HEIGHT = 200
  TOP_LAYER_OFFSET = 10
  TOP_LAYER_LEFT_WIDTH = 23
  QUACK_LENGTH = 350

  def __init_attributes(self):
    ## normal sized font
    self.font_normal = pygame.font.Font("resources/Overhaul.ttf",28)
    ## small sized font
    self.font_small = pygame.font.Font("resources/Overhaul.ttf",20)
    ## the text color
    self.font_color = (100,50,0)
    ## reference to a level being rendered
    self._level = None
    ## screen width in pixel
    self.screen_width = 640
    ## screen height in pixel
    self.screen_height = 480
    ## screen width in tiles (rounded up)
    self.screen_width_tiles = 1
    ## screen height in tiles (rounded up)
    self.screen_height_tiles = 1
    ## camera top left corner x offset from the origin in pixels
    self._camera_x = 0
    ## camera top left corner y offset from the origin in pixels
    self._camera_y = 0
    ## contains images of tiles indexed by tile id, each item is a list
    #  where each item contains an image of one tile variant starting
    #  from 1, index 0 contains a TileTopImageContainer
    self.tile_images = {}
    ## contains the level background image
    self.background_image = None
    ## contains prerendered image of high score text
    self.scores_image = None
    arrow_mask = pygame.image.load("resources/arrow_mask.bmp")
    self.arrow_image = prepare_image(pygame.image.load("resources/arrow.bmp"),transparency_mask = arrow_mask)
    ## contains flying enemy images
    self.enemy_flying_images = []
    enemy_flying_mask = pygame.image.load("resources/robot_flying_1_mask.bmp")
    self.enemy_flying_images.append(prepare_image(pygame.image.load("resources/robot_flying_1.bmp"),transparency_mask = enemy_flying_mask))
    enemy_flying_mask = pygame.image.load("resources/robot_flying_2_mask.bmp")
    self.enemy_flying_images.append(prepare_image(pygame.image.load("resources/robot_flying_2.bmp"),transparency_mask = enemy_flying_mask))
    enemy_flying_mask = pygame.image.load("resources/robot_flying_3_mask.bmp")
    self.enemy_flying_images.append(prepare_image(pygame.image.load("resources/robot_flying_3.bmp"),transparency_mask = enemy_flying_mask))
    ## contains ground enemy images
    self.enemy_ground_images = []
    enemy_ground_mask = pygame.image.load("resources/robot_ground_stand_mask.bmp")
    self.enemy_ground_images.append(prepare_image(pygame.image.load("resources/robot_ground_stand.bmp"),transparency_mask = enemy_ground_mask))
    enemy_ground_mask = pygame.image.load("resources/robot_ground_right_mask.bmp")
    self.enemy_ground_images.append(prepare_image(pygame.image.load("resources/robot_ground_right.bmp"),transparency_mask = enemy_ground_mask))
    enemy_ground_mask = pygame.image.load("resources/robot_ground_left_mask.bmp")
    self.enemy_ground_images.append(prepare_image(pygame.image.load("resources/robot_ground_left.bmp"),transparency_mask = enemy_ground_mask))
    ## contains teleport image
    teleport_mask = pygame.image.load("resources/teleport_mask.bmp")
    self.teleport_inactive_image = prepare_image(pygame.image.load("resources/teleport_1.bmp"),transparency_mask = teleport_mask)
    self.teleport_active_image = prepare_image(pygame.image.load("resources/teleport_2.bmp"),transparency_mask = teleport_mask)
    self.logo_image = prepare_image(pygame.image.load("resources/logo.bmp"))
    ## contains coin animation images
    self.coin_images = []

    score_bar_mask = pygame.image.load("resources/score_bar_mask.bmp")
    self.score_bar_image = prepare_image(pygame.image.load("resources/score_bar.bmp"),transparency_mask = score_bar_mask)

    for i in range(1,7):
      coin_mask = pygame.image.load("resources/coin_" + str(i) + "_mask.bmp")
      self.coin_images.append(prepare_image(pygame.image.load("resources/coin_" + str(i) + ".bmp"),transparency_mask = coin_mask))

    egg_mask = pygame.image.load("resources/egg_mask.bmp")
    ## contains egg image
    self.egg_image = prepare_image(pygame.image.load("resources/egg.bmp"),transparency_mask = egg_mask)

    ## how many times the background should be repeated in x direction
    self.background_repeat_times = 1
    ## Says which part of the map array is visible in format
    #  (x1,y1,x2,y2)
    self.visible_tile_area = (0,0,0,0)

    spikes_mask = pygame.image.load("resources/spikes_mask.bmp")
    ## contains the spikes image
    self.spikes_image = prepare_image(pygame.image.load("resources/spikes.bmp"),transparency_mask = spikes_mask)
    ## contains the trampoline image
    self.trampoline_image = prepare_image(pygame.image.load("resources/trampoline.bmp"))

    ## contains images of the player (the duck)
    self.player_images = CharacterImageContainer()

    self.player_images.standing.append(prepare_image(pygame.image.load("resources/duck_right_stand.bmp"),transparency_mask = pygame.image.load("resources/duck_right_stand_mask.bmp")))
    self.player_images.standing.append(pygame.transform.flip(self.player_images.standing[0],True,False))

    for i in range(1,7):
      self.player_images.moving_right.append(prepare_image(pygame.image.load("resources/duck_right_walk_" + str(i) + ".bmp"),transparency_mask = pygame.image.load("resources/duck_right_walk_" + str(i) + "_mask.bmp")))
      self.player_images.moving_left.append(pygame.transform.flip(self.player_images.moving_right[-1],True,False))

    self.player_images.jumping.append(prepare_image(pygame.image.load("resources/duck_right_jump_up_1.bmp"),transparency_mask = pygame.image.load("resources/duck_right_jump_up_1_mask.bmp")))
    self.player_images.jumping.append(prepare_image(pygame.image.load("resources/duck_right_jump_up_2.bmp"),transparency_mask = pygame.image.load("resources/duck_right_jump_up_2_mask.bmp")))
    self.player_images.jumping.append(prepare_image(pygame.image.load("resources/duck_right_jump_down_1.bmp"),transparency_mask = pygame.image.load("resources/duck_right_jump_down_1_mask.bmp")))
    self.player_images.jumping.append(prepare_image(pygame.image.load("resources/duck_right_jump_down_2.bmp"),transparency_mask = pygame.image.load("resources/duck_right_jump_down_2_mask.bmp")))
    self.player_images.jumping.append(pygame.transform.flip(self.player_images.jumping[0],True,False))
    self.player_images.jumping.append(pygame.transform.flip(self.player_images.jumping[1],True,False))
    self.player_images.jumping.append(pygame.transform.flip(self.player_images.jumping[2],True,False))
    self.player_images.jumping.append(pygame.transform.flip(self.player_images.jumping[3],True,False))

    self.player_images.special.append(prepare_image(pygame.image.load("resources/duck_right_quack.bmp"),transparency_mask = pygame.image.load("resources/duck_right_quack_mask.bmp")))
    self.player_images.special.append(pygame.transform.flip(self.player_images.special[0],True,False))

  ## Converts number of milliseconds to a string in format:
  #  ss:m.
  #
  #  @param value number of milliseconds
  #  @return string in format described above

  def __milliseconds_to_time(self, value):
    seconds = int(value / 1000)
    tenths = int((value % 1000) / 100)

    return str(seconds) + ":" + str(tenths)

  ## Sets the level to be rendered.
  #
  #  @param level Level object

  def set_level(self, level):
    self._level = level

    # load the level background image:
    self.background_image = prepare_image(pygame.image.load("resources/background_" + self._level.background_name + ".bmp"))

    self.background_repeat_times = int(math.ceil(self.screen_width / float(self.background_image.get_width())))

    # load the tile images:
    for tile in level.tiles:
      self.tile_images[tile[0]] = []

      # tile top:
      top_mask = pygame.image.load(("resources/tile_" + tile[1] + "_top_mask.bmp"))
      top_image = prepare_image(pygame.image.load(("resources/tile_" + tile[1] + "_top.bmp")),transparency_mask = top_mask)

      self.tile_images[tile[0]].append(TileTopImageContainer())

      self.tile_images[tile[0]][0].image = top_image
      self.tile_images[tile[0]][0].left = top_image.subsurface(pygame.Rect(0,0,23,56)) # left
      self.tile_images[tile[0]][0].center = top_image.subsurface(pygame.Rect(24,0,201,56)) # center
      self.tile_images[tile[0]][0].right = top_image.subsurface(pygame.Rect(225,0,21,56)) # right

      # tile variants:
      for variant_number in range(tile[2]):
        self.tile_images[tile[0]].append(prepare_image(pygame.image.load("resources/tile_" + tile[1] + "_" + str(variant_number + 1) + ".bmp")))

    # make the score image:

    self.scores_image = prepare_image(pygame.Surface((250,200)),pygame.Color(0,0,0))
    text_image = self.font_normal.render("top scores:",1,self.font_color)
    self.scores_image.blit(text_image,(0,0))

    for i in range(min(3,len(self._level.scores))):
      text_image = self.font_small.render(text_to_fixed_width(self._level.scores[i][0],10) + " " + text_to_fixed_width(str(self._level.scores[i][1]),6) + " " + text_to_fixed_width(self.__milliseconds_to_time(self._level.scores[i][2]),6),1,self.font_color)
      self.scores_image.blit(text_image,(0,30 + (i + 1) * 20))

  ## Private method, checks if the tile at given position in the level
  #  has a top layer (i.e. there is no other tile above it) and what
  #  type.
  #
  #  @param x x position of the tile
  #  @param y y position of the tile
  #  @return a tree item tuple with boolean values (left, center, right)

  def __get_top_layer(self, x, y):
    center = not MapGridObject.is_tile(self._level.get_at(x, y - 1))
    left = not MapGridObject.is_tile(self._level.get_at(x, y - 1)) and not MapGridObject.is_tile(self._level.get_at(x - 1, y)) and not MapGridObject.is_tile(self._level.get_at(x - 1, y - 1))
    right = not MapGridObject.is_tile(self._level.get_at(x, y - 1)) and not MapGridObject.is_tile(self._level.get_at(x + 1, y)) and not MapGridObject.is_tile(self._level.get_at(x + 1, y - 1))

    return (left,center,right)

  ## Private method, computes the screen pixel coordinates out of given
  #  map square coordinates (float) taking camera position into account.
  #
  #  @param x x map position in tiles (double)
  #  @param y y map position in tiles (double)
  #  @return (x,y) tuple of pixel screen coordinates

  def __map_position_to_screen_position(self, x, y):
    return (x * Renderer.TILE_WIDTH - self._camera_x,y * Renderer.TILE_HEIGHT - self._camera_y)

  ## Renders given menu.
  #
  #  @param menu menu screen to be rendered (Menu)
  #  @return image (Surface) with the menu rendered

  def render_menu(self, menu):
    result = pygame.Surface((self.screen_width,self.screen_height))
    result.fill((255,255,255))

    result.blit(self.logo_image,(self.screen_width / 2 - self.logo_image.get_width() / 2,self.screen_height / 2 - self.logo_image.get_height() / 2))

    i = 0

    while i < len(menu.items):
      text_image = self.font_normal.render(menu.items[i],1,(0,0,0))
      result.blit(text_image,(100,100 + i * 40))

      if i == menu.selected_item:
        result.blit(self.arrow_image,(50,95 + i * 40))

      i += 1

    i = 0

    while i < len(menu.text_lines):
      text_image = self.font_small.render(menu.text_lines[i],1,(0,0,0))
      result.blit(text_image,(100,self.screen_height / 2 + i * 30))
      i += 1

    return result

  ## Renders the level (without GUI).
  #
  #  @return image with rendered level (pygame.Surface)

  def render_level(self):
    result = pygame.Surface((self.screen_width,self.screen_height))
    result.fill(self._level.background_color)

    animation_frame = int(pygame.time.get_ticks() / 64)

    # draw the background image:

    for i in range(self.background_repeat_times):
      result.blit(self.background_image,(i * self.background_image.get_width(),0))

    # draw the tiles and map object:
    for j in range(self.visible_tile_area[1],self.visible_tile_area[3]):  # render only visible area
      for i in range(self.visible_tile_area[0],self.visible_tile_area[2]):
        map_grid_object = self._level.get_at(i,j)

        if map_grid_object == None:
          continue
        else:
          x = i * Renderer.TILE_WIDTH - self._camera_x
          y = j * Renderer.TILE_HEIGHT - self._camera_y

          if map_grid_object.object_type == MapGridObject.OBJECT_TILE:
            result.blit(self.tile_images[map_grid_object.tile_id][map_grid_object.tile_variant],(x,y))

            top_layer = self.__get_top_layer(i,j)

            if top_layer[0]:   # left
              result.blit(self.tile_images[map_grid_object.tile_id][0].left,(x - Renderer.TOP_LAYER_LEFT_WIDTH,y - Renderer.TOP_LAYER_OFFSET))

            if top_layer[1]:   # center
              result.blit(self.tile_images[map_grid_object.tile_id][0].center,(x,y - Renderer.TOP_LAYER_OFFSET))

            if top_layer[2]:   # right
              result.blit(self.tile_images[map_grid_object.tile_id][0].right,(x + Renderer.TILE_WIDTH,y - Renderer.TOP_LAYER_OFFSET))

          elif map_grid_object.object_type == MapGridObject.OBJECT_SPIKES:
            result.blit(self.spikes_image,(x,y))
          elif map_grid_object.object_type == MapGridObject.OBJECT_EGG:
            result.blit(self.egg_image,(x + 50,y + 50))
          elif map_grid_object.object_type == MapGridObject.OBJECT_COIN:
            result.blit(self.coin_images[animation_frame % len(self.coin_images)],(x + 20,y))
          elif map_grid_object.object_type == MapGridObject.OBJECT_TRAMPOLINE:
            result.blit(self.trampoline_image,(x,y))
          elif map_grid_object.object_type == MapGridObject.OBJECT_FINISH:
            if self._level.eggs_left > 0:
              result.blit(self.teleport_inactive_image,(x,y))
            else:
              result.blit(self.teleport_active_image,(x,y))

    # draw the player:

    player_position = self.__map_position_to_screen_position(self._level.player.position_x,self._level.player.position_y)

    player_image = self.player_images.standing[0]

    if self._level.player.flapping_wings:
      flapping_animation_frame = animation_frame % 2
    else:
      flapping_animation_frame = 0

    if pygame.time.get_ticks() < self._level.player.last_quack_time + Renderer.QUACK_LENGTH:
      if self._level.player.facing_right:
        player_image = self.player_images.special[0]
      else:
        player_image = self.player_images.special[1]
    elif self._level.player.state == Player.PLAYER_STATE_STANDING:
      if self._level.player.facing_right:
        player_image = self.player_images.standing[0]
      else:
        player_image = self.player_images.standing[1]
    elif self._level.player.state == Player.PLAYER_STATE_WALKING:
      if self._level.player.facing_right:
        player_image = self.player_images.moving_right[animation_frame % len(self.player_images.moving_right)]
      else:
        player_image = self.player_images.moving_left[animation_frame % len(self.player_images.moving_right)]
    elif self._level.player.state == Player.PLAYER_STATE_JUMPING_UP:
      if self._level.player.facing_right:
        player_image = self.player_images.jumping[flapping_animation_frame]
      else:
        player_image = self.player_images.jumping[4 + flapping_animation_frame]
    elif self._level.player.state == Player.PLAYER_STATE_JUMPING_DOWN:
      if self._level.player.facing_right:
        player_image = self.player_images.jumping[3 - flapping_animation_frame]
      else:
        player_image = self.player_images.jumping[7 - flapping_animation_frame]

    result.blit(player_image,(player_position[0] - player_image.get_width() / 2,player_position[1] - player_image.get_height() / 2))

    # draw the enemies:

    for enemy in self._level.enemies:
      enemy_position = self.__map_position_to_screen_position(enemy.position_x,enemy.position_y)

      if enemy.enemy_type == Enemy.ENEMY_GROUND:
        if enemy.force_computer.velocity_vector[0] > 0.5:
          enemy_image = self.enemy_ground_images[1]
        elif enemy.force_computer.velocity_vector[0] < -0.5:
          enemy_image = self.enemy_ground_images[2]
        else:
          enemy_image = self.enemy_ground_images[0]
      else:
        enemy_image = self.enemy_flying_images[animation_frame % 3]

      result.blit(enemy_image,(enemy_position[0] - enemy_image.get_width() / 2,enemy_position[1] - enemy_image.get_height() / 2))

    # draw the GUI:

    line_height = 30

   # result.blit(self.score_bar_image,(22,20))
    text_image = self.font_normal.render("time: " + self.__milliseconds_to_time(self._level.time),1,self.font_color)
    result.blit(text_image,(50,50))
    text_image = self.font_normal.render("score: " + str(self._level.score),1,self.font_color)
    result.blit(text_image,(50,50 + line_height))
    result.blit(self.scores_image,(self.screen_width - 300,50))

    if self._level.state == Level.STATE_LOST:
      text_image = self.font_normal.render("you lost",1,(255,0,0))
      result.blit(text_image,(self.screen_width / 2 - text_image.get_width() / 2,self.screen_height / 2 - text_image.get_height() / 2))
    elif self._level.state == Level.STATE_WON:
      text_image = self.font_normal.render("you won",1,(0,255,0))
      result.blit(text_image,(self.screen_width / 2 - text_image.get_width() / 2,self.screen_height / 2 - text_image.get_height() / 2))

    return result

  ## Sets the camera center position.
  #
  #  @param camera_x x coordinate in pixels
  #  @param camera_y y coordinate in pixels

  def set_camera_position(self, camera_x, camera_y):
    self._camera_x = camera_x - self.screen_width / 2
    self._camera_y = camera_y - self.screen_width / 2

    helper_x = int(self._camera_x / Renderer.TILE_WIDTH)
    helper_y = int(self._camera_y / Renderer.TILE_HEIGHT)

    self.visible_tile_area = (helper_x,helper_y,helper_x + self.screen_width_tiles,helper_y + self.screen_height_tiles)

  def __init__(self, screen_width, screen_height):
    self.__init_attributes()
    self.screen_width = screen_width
    self.screen_height = screen_height
    self.screen_width_tiles = int(math.ceil(self.screen_width / Renderer.TILE_WIDTH)) + 2
    self.screen_height_tiles = int(math.ceil(self.screen_height / Renderer.TILE_HEIGHT)) + 2
    return

#-----------------------------------------------------------------------

## A decorator that moves given movable object acoording to forces it
#  computes.

class ForceComputer:
  def __init_attributes(self):
    ## reference to decorated object (Movable)
    self.decorated_object = None

    ## velocity in tiles per second
    self.velocity_vector = [0,0]

    ## acceleration in tiles per second squared
    self.acceleration_vector = [0,0]

    ## maximum speed that will be assigned int horizontal direction
    self.maximum_horizontal_speed = 3


    ## says how much of the horizontal speed will be converted to
    #  acceleration in opposite direction
    self.ground_friction = 5

  ## Applies the forces to the decorated object and computes new forces.
  #

  def execute_step(self):
    if frame_time == 0:    # we don't want to be diving by zero
      return

    seconds = frame_time / 1000.0

    object_position = (self.decorated_object.position_x,self.decorated_object.position_y)
    self.decorated_object.move_by(self.velocity_vector[0] * seconds,self.velocity_vector[1] * seconds)
    object_position2 = (self.decorated_object.position_x,self.decorated_object.position_y)

    self.velocity_vector = [(object_position2[0] - object_position[0]) / seconds,(object_position2[1] - object_position[1]) / seconds]

    self.velocity_vector[0] += (self.acceleration_vector[0] - self.velocity_vector[0] * self.ground_friction) * seconds
    self.velocity_vector[1] += self.acceleration_vector[1] * seconds

  def __init__(self, decorated_object):
    self.__init_attributes()
    self.decorated_object = decorated_object

#-----------------------------------------------------------------------

## Represents a menu screen.

class Menu:
  def __init__(self):
    ## list of menu items
    self.items = []
    ## index of the selected item
    self.selected_item = 0
    ## optional text to be displayed in the menu
    self.text_lines = []

  def cursor_up(self):
    self.selected_item = max(self.selected_item - 1,0)

  def cursor_down(self):
    self.selected_item = min(self.selected_item + 1,len(self.items) - 1)

#-----------------------------------------------------------------------

class Config:
  def __init__(self, filename):
    self.sound = True
    self.fullscreen = False
    self.name = "player"

    try:
      lines = [line.strip() for line in open(filename)]

      for line in lines:
        line_split = line.split(":")
        line_split[0] = line_split[0].lstrip().rstrip()
        line_split[1] = line_split[1].lstrip().rstrip()

        if line_split[0] == "sound":
          self.sound = line_split[1] == "yes"
        elif line_split[0] == "fullscreen":
          self.fullscreen = line_split[1] == "yes"
        elif line_split[0] == "name":
          self.sound = line_split[1]

    except Exception:    # make a new config file
      output_file = open(filename,'w')
      output_file.write("name: player\nfullscreen: no\nsound: yes\n")
      output_file.close()

#-----------------------------------------------------------------------

## The main game class handling the inpu management, calling renderer,
#  the main game loop etc.

class Game:
  STATE_MENU_MAIN = 0
  STATE_MENU_ABOUT = 1
  STATE_MENU_PLAY = 2
  STATE_IN_GAME = 3
  VERSION = "2.0"

  FLYING_FORCE = 2    # what number is substracted from gravity when flapping the ducks wings

  UPDATE_STATE_AFTER_FRAMES = 7

  ## Initialises a new game.
  #
  #  @param name player name (string)
  #  @param fullscreen whether the game will be in fullscreen or not (boolean)
  #  @param sounds whether sounds and music will be played

  def __init__(self, name, fullscreen, sound):
    ## the player's name
    self.name = name
    self.fullscreen = fullscreen
    self.sound = sound
    self.state = Game.STATE_MENU_MAIN
    screen_width = 1024
    screen_height = 640

    if sound:
      pygame.mixer.pre_init(22050,-16,2,512)   # smaller size of the buffer (512) prevents the audio from lagging

    pygame.init()

    os.environ['SDL_VIDEO_WINDOW_POS'] = "%d,%d" % (100,50)  # set the screen position

    if self.fullscreen:
      fullscreen_size = (pygame.display.list_modes())[0]

      if fullscreen_size != -1:
        screen_width = fullscreen_size[0]
        screen_height = fullscreen_size[1]

      self.screen = pygame.display.set_mode((screen_width,screen_height),pygame.FULLSCREEN)
    else:
      self.screen = pygame.display.set_mode((screen_width,screen_height))

    pygame.display.set_caption("steamer duck")
    pygame.mouse.set_visible(False)
    self.sound_player = SoundPlayer(sound)
    self.level = None
    self.renderer = Renderer(screen_width,screen_height)
    self.key_up = False
    self.key_down = False
    self.key_left = False
    self.key_right = False
    self.key_space = False
    self.key_ctrl = False
    self.key_return = False
    self.key_escape = False
    self.player_state_update_counter = 0    # the player state will be updated once every n frames,
                                            # this will prevent the "jerky" sprite changing
    self.menu_main = Menu()
    self.menu_main.items.append("new game")
    self.menu_main.items.append("about")
    self.menu_main.items.append("exit")

    self.menu_about = Menu()
    self.menu_about.items.append("back")
    self.menu_about.text_lines.append("Miloslav Ciz, 2015")
    self.menu_about.text_lines.append("version " + Game.VERSION)
    self.menu_about.text_lines.append("powered by Python + Pygame")
    self.menu_about.text_lines.append("your name is set to: " + self.name)

    self.menu_about.text_lines.append("")
    self.menu_about.text_lines.append("arrows = move")
    self.menu_about.text_lines.append("ctrl = quack")
    self.menu_about.text_lines.append("space = flap wings")
    self.menu_about.text_lines.append("get all eggs and get to the teleport")

    self.menu_play = Menu()
    self.menu_play.items.append("level 1")
    self.menu_play.items.append("level 2")
    self.menu_play.items.append("level 3")
    self.menu_play.items.append("level 4")
    self.menu_play.items.append("level 5")
    self.menu_play.items.append("level 6")
    self.menu_play.items.append("level 7")
    self.menu_play.items.append("level 8")
    self.menu_play.items.append("back")

  ## Runs the game.

  def run(self):
    global frame_time
    rendered_frame = None
    done = False
    wait = False     # whether the waiting is going on when the game is over
    flapping_player = False
    wait_until = 0
    cheat = False
    cheat_buffer = [0,0]

    while not done:
      time_start = pygame.time.get_ticks()

      for event in pygame.event.get():
        if event.type == pygame.QUIT: sys.exit()

        if event.type == pygame.KEYDOWN:
          if event.key == pygame.K_RIGHT:
            self.key_right = True
          elif event.key == pygame.K_UP:
            self.key_up = True
          elif event.key == pygame.K_LEFT:
            self.key_left = True
          elif event.key == pygame.K_DOWN:
            self.key_down = True
          elif event.key == pygame.K_SPACE:
            self.key_space = True
          elif event.key == pygame.K_RCTRL or event.key == pygame.K_LCTRL:
            self.key_ctrl = True
          elif event.key == pygame.K_RETURN:
            self.key_return = True
          elif event.key == pygame.K_ESCAPE:
            self.key_escape = True
          elif event.key == pygame.K_KP4:
            cheat_buffer[0] = cheat_buffer[1]
            cheat_buffer[1] = 4
          elif event.key == pygame.K_KP2:
            cheat_buffer[0] = cheat_buffer[1]
            cheat_buffer[1] = 2
            if cheat_buffer[0] == 4 and cheat_buffer[1] == 2:
              self.sound_player.play_win()
              cheat = True
        elif event.type == pygame.KEYUP:
          if event.key == pygame.K_RIGHT:
            self.key_right = False
          elif event.key == pygame.K_LEFT:
            self.key_left = False
          elif event.key == pygame.K_UP:
            self.key_up = False
          elif event.key == pygame.K_DOWN:
            self.key_down = False
          elif event.key == pygame.K_SPACE:
            self.key_space = False
          elif event.key == pygame.K_RCTRL or event.key == pygame.K_LCTRL:
            self.key_ctrl = False
          elif event.key == pygame.K_RETURN:
            self.key_return = False
          elif event.key == pygame.K_ESCAPE:
            self.key_escape = False

      if self.state == Game.STATE_IN_GAME:
        if self.key_escape:
          self.state = Game.STATE_MENU_MAIN

        if self.level.state == Level.STATE_PLAYING:
          if self.key_up:
            if not self.level.player.state in [Player.PLAYER_STATE_JUMPING_UP, Player.PLAYER_STATE_JUMPING_DOWN] and not self.level.player.is_in_air():
              self.level.player.jump()

          if self.key_right and not self.key_left:
            self.level.player.force_computer.acceleration_vector[0] = 40 if cheat else 20.0
          elif self.key_left and not self.key_right:
            self.level.player.force_computer.acceleration_vector[0] = -40 if cheat else -20.0
          else:
            self.level.player.force_computer.acceleration_vector[0] = 0

          if self.key_ctrl:
            self.level.player.quack()

          if self.key_space:
            if not flapping_played:
              self.level.sound_player.play_flap()
              flapping_played = True

            self.level.player.flapping_wings = True
          else:
            flapping_played = False
            self.level.player.flapping_wings = False


          if self.level.player.flapping_wings:
            self.level.player.force_computer.acceleration_vector[1] = self.level.gravity - Game.FLYING_FORCE
          else:
            self.level.player.force_computer.acceleration_vector[1] = self.level.gravity

          self.level.update()
        else:
          if not wait:
            wait_until = pygame.time.get_ticks() + 3000 # wait 2 seconds
            wait = True
          elif pygame.time.get_ticks() >= wait_until:
            wait = False
            self.state = Game.STATE_MENU_MAIN

        for enemy in self.level.enemies:
          enemy.ai_move()

        self.level.player.force_computer.execute_step()

        if self.level.state != Level.STATE_LOST:     # follow the player only if he's not lost
          self.renderer.set_camera_position(int(self.level.player.position_x * Renderer.TILE_WIDTH),int(self.level.player.position_y * Renderer.TILE_HEIGHT) + 200)

        self.player_state_update_counter = (self.player_state_update_counter + 1) % Game.UPDATE_STATE_AFTER_FRAMES

        if self.player_state_update_counter == 0:
          if self.level.player.force_computer.velocity_vector[1] > 0.1:
            self.level.player.state = Player.PLAYER_STATE_JUMPING_DOWN
          elif self.level.player.force_computer.velocity_vector[1] < -0.1:
            self.level.player.state = Player.PLAYER_STATE_JUMPING_UP
          else:
            if self.level.player.force_computer.velocity_vector[0] > 0.1 or self.level.player.force_computer.velocity_vector[0] < -0.1:
              self.level.player.state = Player.PLAYER_STATE_WALKING
            else:
              self.level.player.state = Player.PLAYER_STATE_STANDING

          if self.level.player.force_computer.acceleration_vector[0] > 0.1:
            self.level.player.facing_right = True
          elif self.level.player.force_computer.acceleration_vector[0] < -0.1:
            self.level.player.facing_right = False

        self.screen.blit(self.renderer.render_level(),(0,0))
        pygame.display.flip()
      elif self.state == Game.STATE_MENU_MAIN:
        if self.key_up:
          self.menu_main.cursor_up()
          self.key_up = False

        if self.key_down:
          self.menu_main.cursor_down()
          self.key_down = False

        if self.key_return:
          if self.menu_main.selected_item == 0:
            self.state = Game.STATE_MENU_PLAY
          elif self.menu_main.selected_item == 1:
            self.state = Game.STATE_MENU_ABOUT
          elif self.menu_main.selected_item == 2:
            done = True

          self.key_return = False

        self.screen.blit(self.renderer.render_menu(self.menu_main),(0,0))
        pygame.display.flip()
      elif self.state == Game.STATE_MENU_ABOUT:
        if self.key_return:
          self.state = Game.STATE_MENU_MAIN
          self.key_return = False

        self.screen.blit(self.renderer.render_menu(self.menu_about),(0,0))
        pygame.display.flip()
      elif self.state == Game.STATE_MENU_PLAY:
        if self.key_up:
          self.menu_play.cursor_up()
          self.key_up = False

        if self.key_down:
          self.menu_play.cursor_down()
          self.key_down = False

        if self.key_return:
          if self.menu_play.selected_item == 8:
            self.state = Game.STATE_MENU_MAIN
          else:
            level_name = "level" + str(self.menu_play.selected_item + 1) + ".lvl"
            self.level = Level(self)
            self.level.load_from_file("resources/" + level_name)
            self.renderer.set_level(self.level)
            self.state = Game.STATE_IN_GAME

          self.key_return = False

        self.screen.blit(self.renderer.render_menu(self.menu_play),(0,0))
        pygame.display.flip()

      frame_time = pygame.time.get_ticks() - time_start

#-----------------------------------------------------------------------

config = Config("config.txt")
game = Game(config.name,config.fullscreen,config.sound)
game.run()

MicroTD
/**
  @file   microtd.ino
  @author Miloslav Ciz
  @brief  tower defense game for Arduboy

  MicroTD - Tower Defense Game for Arduboy

  version: 1.4

  Miloslav "drummyfish" Ciz, 2018, license: CC0 (public domain)

  This file can be compiled both with Arduino IDE for the final release, or
  with gcc (or maybe even other compiler) for quick debug/tests on the PC.
*/

#ifdef ARDUINO
  #include <stdint.h>
  #include <Arduboy2.h>
#else
  // for the PC
  #include <iostream>
  #include <string>
  #include <string.h>
  #include <cstdint>
  using namespace std;

  #define PROGMEM 

  #define A_BUTTON             0
  #define B_BUTTON             1
  #define UP_BUTTON            2
  #define RIGHT_BUTTON         3
  #define LEFT_BUTTON          4
  #define DOWN_BUTTON          5

  #define min(x,y) ((x) < (y) ? (x) : (y))
  #define max(x,y) ((x) > (y) ? (x) : (y))
#endif

#define DISPLAY_WIDTH          128
#define DISPLAY_HEIGHT         64
#define FRAMERATE              60

#define DIRECTION_N            0
#define DIRECTION_E            1
#define DIRECTION_S            2
#define DIRECTION_W            3

#define B_DIRECTION_N          0b00000000
#define B_DIRECTION_E          0b01000000
#define B_DIRECTION_S          0b10000000
#define B_DIRECTION_W          0b11000000

#define GAME_SPEEDUP           5   ///< How many times the game can be sped up.

#define MAX_SEGMENTS           10  ///< Max number of segments per creep path.
#define MAX_PATHS              2   ///< Max number of paths per game map.

#define TILE_EMPTY             0   ///< Empty tile, towers can be built here.
#define TILE_CREEP_START       1   ///< Creeps spawn here.
#define TILE_CREEP_EXIT        2   ///< Creeps exit here.
#define TILE_PATH_NS           3   ///< path: ║
#define TILE_PATH_WE           4   ///< path: ═
#define TILE_PATH_NE           5   ///< path: ╚
#define TILE_PATH_SE           6   ///< path: ╔
#define TILE_PATH_NW           7   ///< path: ╝
#define TILE_PATH_SW           8   ///< path: ╗
#define TILE_PATH_NES          9   ///< path: ╠
#define TILE_PATH_ESW          10  ///< path: ╦
#define TILE_PATH_NSW          11  ///< path: ╣
#define TILE_PATH_NEW          12  ///< path: ╩
#define TILE_PATH_NESW         13  ///< path: ╬
#define TILE_TOWER             14  ///< Tile with tower on it.

#define TILE_WIDTH             8   ///< Tile width in pixels.
#define TILE_HEIGHT            8   ///< Tile height in pixels.
#define TILE_WIDTH_HALF        (TILE_WIDTH / 2)
#define TILE_HEIGHT_HALF       (TILE_HEIGHT / 2)

#define TILE_PIXELS            (TILE_WIDTH * TILE_HEIGHT)
#define TILE_SIZE              (TILE_PIXELS / 8)

#define TILES_X                (DISPLAY_WIDTH  / TILE_WIDTH)
#define TILES_Y                (DISPLAY_HEIGHT / TILE_HEIGHT)
#define TILES_TOTAL            (TILES_X * TILES_Y)

#define CREEP_WIDTH            8
#define CREEP_HEIGHT           8
#define CREEP_PIXELS           (CREEP_WIDTH * CREEP_HEIGHT)
#define CREEP_SIZE             (CREEP_PIXELS / 8)

#define CREEP_SPIDER           0
#define CREEP_LIZARD           1
#define CREEP_SNAKE            2
#define CREEP_WOLF             3   ///< Freeze is less effective.
#define CREEP_BAT              4   ///< Immune to cannon.
#define CREEP_ENT              5
#define CREEP_SPIDER_BIG       6   ///< Spawns two small spiders when killed.
#define CREEP_GHOST            7   ///< Immune to physical attack.
#define CREEP_OGRE             8
#define CREEP_DINO             9
#define CREEP_DEMON            10  ///< Only attackable by fire/water.
#define CREEPS_TOTAL           11

#define TOWER_GUARD            0
#define TOWER_CANNON           1
#define TOWER_ICE              2
#define TOWER_ELECTRO          3
#define TOWER_SNIPER           4
#define TOWER_MAGIC            5
#define TOWER_WATER            6
#define TOWER_FIRE             7
#define TOWERS_TOTAL           8

#define UPGRADE_DAMAGE         0
#define UPGRADE_SPEED          1
#define UPGRADE_RANGE          2
#define UPGRADE_SHOCK          3   ///< Chance to freeze.
#define UPGRADE_SPEED_AURA     4

#define SPLASH_RANGE           12

#define WAVE_BASE_REWARD       5

#define UPGRADE_RANGE_FRACTION_INCREASE  4  /**< Fractional increase (+ 1/x) of
                                                 range by upgrade. */
#define UPGRADE_DAMAGE_FRACTION_INCREASE 2  /**< Fractional increase (+ 1/x) of
                                                 damage by upgrade. */

#define BUTTON_REPEAT_DELAY    20 ///< Initial button repeat delay, in frames.
#define BUTTON_REPEAT_PERIOD   6  ///< Button repeat period in frames.

#define CHEAT_NONE             0
#define CHEAT_MONEY            1

#define STATE_MENU             0  ///< In main menu.
#define STATE_PLAYING_MENU     1  ///< In game, game menu open.
#define STATE_PLAYING_BUILDING 2  ///< In game, building stage.
#define STATE_PLAYING_WAVE     3  ///< In game, wave in progress.
#define STATE_CONFIRM          4  ///< Confirming chosen action.
#define STATE_GAME_OVER        5  ///< Game over.

#define ITEM_STATE_AVAILABLE   0  ///< Game menu item state: available.
#define ITEM_STATE_UNAVAILABLE 1  ///< Game menu item state: unavailable.
#define ITEM_STATE_NULL        2  ///< Game menu item state: no item.

#define LOGO_X                 51
#define LOGO_Y                 5

#define GAME_MENU_UPGRADE1     8
#define GAME_MENU_UPGRADE2     9
#define GAME_MENU_DESTROY      10
#define GAME_MENU_NEXT_WAVE    11
#define GAME_MENU_QUIT         12

#define MAX_CREEPS             50  ///< Maximum number of creeps in one round.

#define INFOBAR_Y              1

#define TARGET_NONE            255 ///< No target for a tower.

#define MAIN_MENU_ITEMS        6

#define SOUND_PUT              0
#define SOUND_FALL             1
#define SOUND_BAD              2
#define SOUND_LOST             3

#define EEPROM_START           202 ///< Random address to record data to.
#define EEPROM_VALID_VALUE     95  ///< Random value to confirm data validity.

#define MAPS_TOTAL             5   ///< Total number of playable maps.

#define getter(dataType,memberVar)\
  dataType get##memberVar() const\
  { return m##memberVar; }

#define setter(dataType,memberVar)\
  void set##memberVar(dataType v)\
  { m##memberVar = v; }

#define getterSetter(dataType,memberVar)\
  getter(dataType,memberVar)\
  setter(dataType,memberVar)

#define absDiff(a,b) (a > b ? a - b : b - a)   ///< Absolute difference.

typedef uint8_t Direction;
typedef uint8_t TileType;
typedef uint8_t IndexPointer; ///< Array index, used instead of pointers (smaller)
typedef uint8_t GameState;
typedef uint8_t MenuItemState;

#ifdef ARDUINO
BeepPin1 beep1;

void playSound(IndexPointer sound)
{
  switch (sound)
  {
    case SOUND_PUT:
      beep1.tone(beep1.freq(532),2);
      break;

    case SOUND_FALL:
      beep1.tone(beep1.freq(293),2);
      break;

    case SOUND_BAD:
      beep1.tone(beep1.freq(185),5);
      break;

    case SOUND_LOST:
      beep1.tone(beep1.freq(110),15);
      break;

    default:
      break;
  }
}
#else
void playSound(IndexPointer sound)
{
  cout << "playing sound: " << sound << endl;
}
#endif

// A function is a simple way to store strings in PROGMEM :)
void getUpgradeName(IndexPointer upgrade, char *dst)
{
  dst[0] = '+';

  switch (upgrade)
  {
    case UPGRADE_DAMAGE:
      dst[1] = 'd'; dst[2] = 'm'; dst[3] = 'g'; dst[4] = 0;
      break;

    case UPGRADE_SPEED:
      dst[1] = 's'; dst[2] = 'p'; dst[3] = 'd'; dst[4] = 0;
      break;

    case UPGRADE_RANGE:
      dst[1] = 'r'; dst[2] = 'n'; dst[3] = 'g'; dst[4] = 0;
      break;

    case UPGRADE_SHOCK:
      dst[0] = 's'; dst[1] = 'h'; dst[2] = 'o'; dst[3] = 'c';
      dst[4] = 'k'; dst[5] = 0;
      break;

    case UPGRADE_SPEED_AURA:
      dst[0] = 's'; dst[1] = 'p'; dst[2] = 'd'; dst[3] = ' ';
      dst[4] = 'a'; dst[5] = 'u'; dst[6] = 'r'; dst[7] = 'a';
      dst[8] = 0;
      break;

    default:
      dst[0] = 0;
      break;
  }
}

/// 8 x 8 dithering pattern.
const uint8_t PROGMEM ditherImage[] =
{
0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55
};

/// 15 x 5 wave decoration image.
const uint8_t PROGMEM waveImage[] =
{
0x19, 0x1c, 0x1c, 0x1c, 0x1c, 0x19,
0x13, 0x13, 0x07, 0x07, 0x07, 0x07,
0x13, 0x13, 0x19 
};

/// 25 x 18 logo image
const uint8_t PROGMEM logoImage[] =
{
0xf7, 0x63, 0xb7, 0x5f, 0x5b, 0x41, 0x40, 0x41, 0x5b, 0x5f, 0x58, 0x41, 0x40,
0x41, 0x58, 0x5f, 0x5b, 0x41, 0x40, 0x41, 0x5b, 0x5f, 0xaf, 0x47, 0xef, 0x80,
0x55, 0x80, 0x3e, 0x7f, 0x41, 0x6f, 0x6f, 0x71, 0x7f, 0x3e, 0x00, 0x03, 0x01,
0x7f, 0x01, 0x03, 0x00, 0x7f, 0x41, 0x63, 0x3e, 0x80, 0x7f, 0x80, 0x03, 0x03,
0x02, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00,
0x01, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x02, 0x03, 0x03
};

/// 8 x 8 map tiles, correspond to TILE_x tile types (NOT including TILE_TOWER)
const uint8_t PROGMEM tileImages[] =
{
#if 0 // change to 0/1 for an alternate tileset!
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, // TILE_EMPTY 
0xff, 0x83, 0xc1, 0xe1, 0xe1, 0xc1, 0x83, 0xff, // TILE_CREEP_START
0xff, 0x83, 0xf9, 0xfd, 0xfd, 0xf9, 0x83, 0xff, // TILE_CREEP_EXIT
0xaa, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x55, // TILE_PATH_NS
0xfe, 0x7f, 0xfe, 0x7f, 0xfe, 0x7f, 0xfe, 0x7f, // TILE_PATH_WE  
0xaa, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, // TILE_PATH_NE  
0xaa, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfe, 0x7f, // TILE_PATH_SE  
0xfe, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x55, // TILE_PATH_NW  
0xfe, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfe, 0x55, // TILE_PATH_SW  
0xaa, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, // TILE_PATH_NES 
0xfe, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfe, 0x7f, // TILE_PATH_ESW 
0xfe, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x55, // TILE_PATH_NSW 
0xfe, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, // TILE_PATH_NEW 
0xfe, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f  // TILE_PATH_NESW
#else
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, // TILE_EMPTY 
0xff, 0x83, 0xc1, 0xe1, 0xe1, 0xc1, 0x83, 0xff, // TILE_CREEP_START
0xff, 0x83, 0xf9, 0xfd, 0xfd, 0xf9, 0x83, 0xff, // TILE_CREEP_EXIT
0xff, 0xff, 0xff, 0xaa, 0x55, 0xff, 0xff, 0xff, // TILE_PATH_NS
0xf7, 0xef, 0xf7, 0xef, 0xf7, 0xef, 0xf7, 0xef, // TILE_PATH_WE  
0xff, 0xff, 0xff, 0xfa, 0xf5, 0xeb, 0xf7, 0xef, // TILE_PATH_NE  
0xff, 0xff, 0xff, 0xbf, 0x5f, 0xaf, 0xd7, 0xef, // TILE_PATH_SE  
0xf7, 0xeb, 0xf5, 0xfa, 0xfd, 0xff, 0xff, 0xff, // TILE_PATH_NW  
0xf7, 0xef, 0xd7, 0xaf, 0x5f, 0xff, 0xff, 0xff, // TILE_PATH_SW  
0xff, 0xff, 0xff, 0xaa, 0x55, 0xef, 0xf7, 0xef, // TILE_PATH_NES 
0xf7, 0xef, 0xf7, 0xaf, 0x57, 0xef, 0xf7, 0xef, // TILE_PATH_ESW 
0xf7, 0xef, 0xf7, 0xaa, 0x55, 0xff, 0xff, 0xff, // TILE_PATH_NSW 
0xf7, 0xef, 0xf7, 0xea, 0xf5, 0xef, 0xf7, 0xef, // TILE_PATH_NEW 
0xf7, 0xef, 0xf7, 0xaa, 0x55, 0xef, 0xf7, 0xef  // TILE_PATH_NESW
#endif
};

/// 8 x 8 creep images, correspond to CREEP_x constants.
const uint8_t PROGMEM creepSprites[] =
{
8,8,  // width, height
0x00, 0x00, 0x00, 0x54, 0x00, 0x7c, 0x00, 0x38, // CREEP_SPIDER 
0x00, 0x38, 0x00, 0x7c, 0x00, 0x54, 0x00, 0x00, 
0x00, 0x0e, 0x00, 0x58, 0x00, 0x70, 0x00, 0x30, // CREEP_LIZARD
0x00, 0x38, 0x00, 0x78, 0x00, 0x58, 0x00, 0x10, 
0x00, 0x00, 0x00, 0x4c, 0x00, 0x5e, 0x00, 0x57, // CREEP_SNAKE
0x02, 0x57, 0x00, 0x77, 0x00, 0x22, 0x00, 0x00, 
0x00, 0x06, 0x00, 0x6c, 0x00, 0x38, 0x00, 0x18, // CREEP_WOLF
0x00, 0x1c, 0x00, 0x7e, 0x04, 0x4e, 0x00, 0x0c, 
0x00, 0x04, 0x00, 0x1e, 0x00, 0x7c, 0x00, 0x38, // CREEP_BAT 
0x00, 0x38, 0x00, 0x7c, 0x00, 0x1e, 0x00, 0x04, 
0x00, 0x10, 0x00, 0x98, 0x00, 0xcb, 0x00, 0x7f, // CREEP_ENT
0x00, 0x7f, 0x00, 0xcb, 0x00, 0x98, 0x00, 0x10, 
0x00, 0x92, 0x00, 0xd6, 0x00, 0x7c, 0x00, 0x7e, // CREEP_SPIDER_BIG
0x00, 0x7e, 0x00, 0x7c, 0x00, 0xd6, 0x00, 0x92, 
0x00, 0x0c, 0x00, 0x78, 0x00, 0x3e, 0x04, 0x7f, // CREEP_GHOST
0x04, 0x7f, 0x00, 0x3e, 0x00, 0x78, 0x00, 0x0c, 
0x00, 0x07, 0x00, 0x8c, 0x00, 0xfc, 0x00, 0x3f, // CREEP_OGRE
0x00, 0x3f, 0x00, 0xfc, 0x00, 0x8c, 0x00, 0x18, 
0x00, 0x0f, 0x00, 0x5c, 0x00, 0xf8, 0x00, 0xbc, // CREEP_DEMON
0x00, 0x7f, 0x04, 0xdf, 0x00, 0x8e, 0x00, 0x0c, 
0x00, 0x33, 0x00, 0x9a, 0x00, 0xff, 0x04, 0x7f, // CREEP_DEMON
0x04, 0x7f, 0x00, 0xff, 0x00, 0x9a, 0x00, 0x33
};

/// 8 x 8 tower images.
const uint8_t PROGMEM towerSmallImages[] = 
{
0xff, 0xe7, 0x83, 0x81, 0x81, 0x83, 0xe7, 0xff, // TOWER_GUARD full  
0xff, 0xe7, 0x8b, 0x8d, 0x8d, 0x8b, 0xe7, 0xff, // TOWER_GUARD upgrade 1
0xff, 0xe7, 0x83, 0xb1, 0xb1, 0x83, 0xe7, 0xff, // TOWER_GUARD upgrade 2
0xff, 0x99, 0x81, 0x81, 0x81, 0x81, 0x99, 0xff, // TOWER_CANNON full
0xff, 0x99, 0x85, 0x8d, 0x8d, 0x85, 0x99, 0xff, // TOWER_CANNON upgrade 1
0xff, 0x99, 0xa1, 0xb1, 0xb1, 0xa1, 0x99, 0xff, // TOWER_CANNON upgrade 2 
0xff, 0x8f, 0x83, 0x81, 0x81, 0x83, 0x8f, 0xff, // TOWER_ICE full
0xff, 0x8f, 0x83, 0x8d, 0x8d, 0x83, 0x8f, 0xff, // TOWER_ICE upgrade 1
0xff, 0x8f, 0xb3, 0xb1, 0xb1, 0xb3, 0x8f, 0xff, // TOWER_ICE upgrade 2
0xff, 0x93, 0x81, 0x83, 0x83, 0x81, 0x93, 0xff, // TOWER_ELECTRO full
0xff, 0x93, 0x8d, 0x8b, 0x8b, 0x8d, 0x93, 0xff, // TOWER_ELECTRO upgrade 1
0xff, 0x93, 0xa1, 0xb3, 0xb3, 0xa1, 0x93, 0xff, // TOWER_ELECTRO upgrade 2
0xff, 0xf1, 0x81, 0x83, 0x83, 0x81, 0xf1, 0xff, // TOWER_SNIPER full
0xff, 0xf1, 0x8d, 0x8b, 0x8b, 0x8d, 0xf1, 0xff, // TOWER_SNIPER upgrade 1
0xff, 0xf1, 0x81, 0xb3, 0xb3, 0x81, 0xf1, 0xff, // TOWER_SNIPER upgrade 2
0xff, 0xeb, 0x81, 0x81, 0x81, 0x81, 0xeb, 0xff, // TOWER_MAGIC full
0xff, 0xeb, 0x85, 0x8d, 0x8d, 0x85, 0xeb, 0xff, // TOWER_MAGIC upgrade 1
0xff, 0xeb, 0x91, 0xb1, 0xb1, 0x91, 0xeb, 0xff  // TOWER_MAGIC upgrade 2
};

/// 16 x 16 tower images.
const uint8_t PROGMEM towerBigSprites[] = 
{
16,16, // width, height
0xff, 0xff, 0x3f, 0x3f, 0x87, 0x93, 0xb9, 0xe5, // TOWER_WATER
0xe5, 0xb9, 0x93, 0x87, 0x3f, 0x3f, 0xff, 0xff, 
0xff, 0xff, 0xff, 0x8e, 0x96, 0xb0, 0x96, 0xbf,
0xbf, 0x96, 0xb0, 0x96, 0x8e, 0xff, 0xff, 0xff, 
0xff, 0xff, 0x3f, 0xbf, 0x87, 0x83, 0x81, 0x99, // TOWER_WATER upgraded
0x99, 0x81, 0x83, 0x87, 0xbf, 0x3f, 0xff, 0xff, 
0xff, 0xff, 0xff, 0x8e, 0xa6, 0x80, 0xa0, 0x80,
0x80, 0xa0, 0x80, 0xa6, 0x8e, 0xff, 0xff, 0xff, 
0xff, 0xff, 0xff, 0xe3, 0xc9, 0x1d, 0x73, 0xe7, // TOWER_FIRE
0xe7, 0x73, 0x1d, 0xc9, 0xe3, 0xff, 0xff, 0xff, 
0xff, 0xff, 0xfb, 0x91, 0xa4, 0xb4, 0x95, 0xbf,
0xbf, 0x95, 0xb4, 0xa4, 0x91, 0xfb, 0xff, 0xff, 
0xff, 0xff, 0xff, 0xe3, 0xc9, 0x19, 0x33, 0x07, // TOWER_FIRE upgraded
0x07, 0x33, 0x19, 0xc9, 0xe3, 0xff, 0xff, 0xff, 
0xff, 0xff, 0xfb, 0x95, 0xa4, 0x84, 0xa4, 0x8e,
0x8e, 0xa4, 0x84, 0xa4, 0x95, 0xfb, 0xff, 0xff
};

/// Menu item 8 x 8 icons.
const uint8_t PROGMEM menuIcons[] =
{
0xff, 0xc3, 0x99, 0xe5, 0xe5, 0x99, 0xc3, 0xff, // water tower 
0xff, 0xc1, 0x99, 0xf3, 0xf3, 0x99, 0xc1, 0xff, // fire tower
0xff, 0xff, 0xfb, 0xf9, 0xfb, 0xef, 0x87, 0xff, // upgrade 1
0xff, 0xfb, 0xf9, 0xfb, 0xff, 0x97, 0xa7, 0xff, // upgrade 2
0xff, 0xbb, 0x93, 0xc7, 0xc7, 0x93, 0xbb, 0xff, // destroy tower
0xff, 0xff, 0xff, 0x81, 0xc3, 0xe7, 0xff, 0xff, // next wave
0xff, 0xc3, 0x99, 0xb5, 0xad, 0x99, 0xc3, 0xff  // quit to menu
};

uint16_t sqrtInt(uint16_t value)
{
  uint16_t result = 0;

  uint16_t a  = value;
  uint16_t b = 1u << 14;

  while (b > a)
    b >>= 2;

  while (b != 0)
  {
    if (a >= result + b)
    {
      a -= result + b;
      result = result +  2 * b;
    }

    b >>= 2;
    result >>= 1;
  }

  return result;
}

void getXYIncrement(Direction direction, char *xIncr, char *yIncr)
{
  *xIncr = 0;
  *yIncr = 0;

  switch (direction)
  {
    case DIRECTION_N: *yIncr = -1; break;
    case DIRECTION_E: *xIncr = 1;  break;
    case DIRECTION_S: *yIncr = 1;  break;
    case DIRECTION_W: *xIncr = -1; break;
    default: break;
  }
}

inline uint8_t interpolateBytes(uint8_t v1, uint8_t v2, uint8_t percentage)
{
  int16_t d = v2 - v1;
  return v1 + (d * percentage) / 100;
}

struct BytePosition
{
  uint8_t mX;
  uint8_t mY;

  BytePosition(uint8_t x=0, uint8_t y=0): mX(x), mY(y)
  {
  }

  BytePosition left()
  {
    return BytePosition(mX - 1,mY);
  }

  BytePosition up()
  {
    return BytePosition(mX,mY - 1);
  }

  BytePosition right()
  {
    return BytePosition(mX + 1,mY);
  }

  BytePosition down()
  {
    return BytePosition(mX,mY + 1);
  }
};

/// Checks if Euclidean distance between two points is greater than a limit.
bool distanceIsGreater(struct BytePosition p1, struct BytePosition p2,
  uint8_t limit)
{
  uint16_t dx = absDiff(p1.mX,p2.mX);
  uint16_t dy = absDiff(p1.mY,p2.mY);

  if (dx > limit || dy > limit)
    return true;

  // now compute the actual distance

  return sqrtInt(dx * dx + dy * dy) > limit;
}

class PathSegment
{
protected:
  uint8_t mData;

public:
  PathSegment(Direction direction=DIRECTION_N, uint8_t length=1)
  {
    mData = direction << 6 | (length & 0b00111111);
  }

  Direction getDirection()
  {
    return (mData & 0b11000000) >> 6;
  }

  uint8_t getLength()
  {
    return mData & 0b00111111;
  }
};

class CreepPath
{
protected:
  BytePosition mStart; ///< Where the path starts.
  uint8_t mNumSegments;   ///< Number of segments in mSegments.
  uint16_t mNumTiles;  ///< Length of the path in tiles.

  PathSegment mSegments[MAX_SEGMENTS];

public:
  CreepPath()
  {
    mStart.mX = 0;
    mStart.mY = 0;
    mNumSegments = 0;
    mNumTiles = 0;
  }

  /** For given position along the path (in pixels) returns a pixel position
      on the mPlayground. */
  BytePosition getPositionAlong(int16_t position) const
  {
    BytePosition result;

    result = getStart();
    result.mX = result.mX * TILE_WIDTH + TILE_WIDTH_HALF;
    result.mY = result.mY * TILE_HEIGHT + TILE_HEIGHT_HALF;
    
    uint8_t segment = 0;
    char incrX, incrY;

    if (position < 0)
      return result;

    while (true)      // keep substracting segments
    {
      PathSegment s = getSegment(segment);

      getXYIncrement(s.getDirection(),&incrX,&incrY);

      uint8_t length = s.getLength();

      int16_t diff = position - length * TILE_WIDTH;

      if (diff < 0) 
      {
        while (true)  // keep substracting tiles
        {
          diff = position - TILE_WIDTH;

          if (diff < 0)
          {
            result.mX += incrX * position;
            result.mY += incrY * position;
            break;
          }
          else
          {
            position = diff;
            result.mX += incrX * TILE_WIDTH;
            result.mY += incrY * TILE_HEIGHT;
          }
        }

        break;
      }
      else
      {
        result.mX += length * incrX * TILE_WIDTH;
        result.mY += length * incrY * TILE_HEIGHT;
        position = diff;
        segment++;
      }
    }

    return result;
  }

  void addSegment(PathSegment segment)
  {
    if (mNumSegments >= MAX_SEGMENTS)
      return;

    mSegments[mNumSegments] = segment;
    mNumTiles += segment.getLength();
    mNumSegments++;
  }

  PathSegment getSegment(uint8_t index) const
  {
    return mSegments[index < MAX_SEGMENTS ? index : MAX_SEGMENTS - 1];
  }

  getterSetter(BytePosition, Start)
  getter(uint16_t,     NumTiles)    ///< Returns the path length in tiles.
  getter(uint8_t,         NumSegments)
};

/// Represents a creep type.
struct CreepType
{
  uint8_t mSprite;    ///< Sprite number in the creep sprite sheet.
  uint8_t mMaxHealth;
  uint8_t mSpeed;     ///< Frequency of movement (lower => faster!).
  uint8_t mReward;    ///< Money for killing, also lives taken for exiting.

  CreepType(uint8_t sprite=0, uint8_t hp=1, uint8_t speed=1, uint8_t reward=1):
    mSprite(sprite), mMaxHealth(hp), mSpeed(speed), mReward(reward)
  {
  }
};

const CreepType creepTypes[CREEPS_TOTAL] =
{
// sprite            hp   spd reward
  {CREEP_SPIDER,     7,   2,  1},
  {CREEP_LIZARD,     8,   1,  1},
  {CREEP_SNAKE,      12,  2,  1},
  {CREEP_WOLF,       20,  2,  1},
  {CREEP_BAT,        13,  1,  1},
  {CREEP_ENT,        43,  4,  2},
  {CREEP_SPIDER_BIG, 20,  2,  2},
  {CREEP_GHOST,      30,  3,  2},
  {CREEP_OGRE,       58,  2,  3},
  {CREEP_DINO,       63,  1,  3},
  {CREEP_DEMON,      63,  1,  3}
};

/// Represents a concrete spawned creep
class CreepInstance
{
protected:
  IndexPointer     mTypeFreeze;    /**< Stores two values in a single uint8_t:
                                        - upper 4 bits: freeze counter
                                        - lower 4 bits: creep type index
                                   */

  uint8_t             mHealthLives;   /**< Stores two values in a single uint8_t:
                                        - upper 2 bits: lives (respawns)
                                        - lower 6 bits: health (hit point)
                                   */

  IndexPointer     mPath;     ///< Path this creep follows.   
  int16_t          mPosition; /**< Position along the path, in pixels. Can be
                               negative, which means the creep is waiting
                               to be spawned (e.g. -10 => will be spawned
                               after travelling 10 pixels. */

public:
  CreepInstance(IndexPointer type=0, IndexPointer path=0, int16_t position=0,
    uint8_t lives=1):
      mPath(path),
      mPosition(position)
    {
      setHealthLives(creepTypes[type].mMaxHealth,lives);
      setTypeFreeze(type,0);
    }

  bool isAlive()
  {
    return getHealth() > 0;
  }

  bool exited(const CreepPath *paths)
  {
    return mPosition >= ((int16_t) paths[mPath].getNumTiles()) * TILE_WIDTH;
  }

  bool entered()
  {
    return mPosition >= 0;
  }

  void update(uint16_t frameNumber)
  {
    if (isAlive() && frameNumber % (getSpeed() * 2) == 0)
      mPosition += 1;

    if (frameNumber % 3 == 0)
    {
      uint8_t freezeCounter = getFreezeCounter();

      if (freezeCounter > 0)
        setTypeFreeze(getTypeIndex(),freezeCounter - 1);
    }
  }

  uint8_t getSpeed()
  {
    return getType().mSpeed + (getFreezeCounter() == 0 ? 0 : 15);
  }

  void setTypeFreeze(IndexPointer creepType, uint8_t freezeCounter)
  {
    mTypeFreeze = (creepType & 0b00001111) |
      ((freezeCounter & 0b00001111) << 4);
  }

  BytePosition getPixelPosition(const CreepPath *paths)
  {
    return paths[mPath].getPositionAlong(mPosition);
  }

  void kill()
  {
    playSound(SOUND_FALL);

    if (getLives() == 0 || getTypeIndex() == CREEP_SPIDER_BIG)
    {                   // ^ big spiders have to be killed to spawn small ones
      setHealthLives(0,0);
    }
    else
    {
      // respawn
      setHealthLives(getType().mMaxHealth,getLives() - 1);
      mPosition = -10;
    }
  }

  /// Makes the creep take a hit, returns true if killed.
  bool hit(uint8_t damage, bool freeze)
  {
    uint8_t currentHealth = getHealth();

    if (damage >= currentHealth)
    {
      kill();
      return true;
    }

    setHealthLives(currentHealth - damage,getLives());

    if (freeze)
      setTypeFreeze(getTypeIndex(),getTypeIndex() == CREEP_WOLF ? 7 : 15);

    return false;
  }

  void setHealthLives(uint8_t health, uint8_t lives)
  {
    mHealthLives = (health & 0b00111111) | ((lives & 0b00111111) << 6);
  }

  const CreepType getType()
  {
    return creepTypes[getTypeIndex()];
  }

  IndexPointer getTypeIndex()
  {
    return mTypeFreeze & 0b00001111;
  }

  bool isFrozen()
  {
    return getFreezeCounter() > 0;
  }

  IndexPointer getFreezeCounter()
  {
    return (mTypeFreeze & 0b11110000) >> 4;
  }

  uint8_t getHealth()
  {
    return mHealthLives & 0b00111111;
  }

  uint8_t getLives()
  {
    return (mHealthLives & 0b11000000) >> 6;
  }

  getterSetter(IndexPointer,      Path)
  getterSetter(int16_t,           Position)
};

struct TowerType
{
  uint8_t mSprite;
  uint8_t mRange;       ///< Base range, in pixels.
  uint8_t mAttackSpeed; ///< Base attack speed (frequency, lower = faster)
  uint8_t mDamage;
  uint8_t mPrice;       ///< How much to build.
  IndexPointer mUpgrades[2];

  BytePosition getCenter(BytePosition tilePosition)
  {
    BytePosition result;
    
    result.mX = tilePosition.mX * TILE_WIDTH + TILE_WIDTH_HALF;
    result.mY = tilePosition.mY * TILE_HEIGHT + TILE_HEIGHT_HALF;

    if (isBig())
    {
      result.mX -= TILE_WIDTH;
      result.mY -= TILE_HEIGHT;
    }

    return result;
  }

  uint8_t getUpgrageCost()
  {
    return (mPrice * 2) / 3;
  }

  bool isBig()
  {
    return mSprite == TOWER_WATER || mSprite == TOWER_FIRE;
  }
};

const TowerType towerTypes[TOWERS_TOTAL] =
{
// sprite         rng spd dmg price  upgrade 1       upgrade 2
  {TOWER_GUARD,   30, 6,  2,  8,    {UPGRADE_RANGE,  UPGRADE_SPEED}},
  {TOWER_CANNON,  27, 8,  2,  8,    {UPGRADE_RANGE,  UPGRADE_DAMAGE}},
  {TOWER_ICE,     26, 7,  0,  17,   {UPGRADE_SPEED,  UPGRADE_RANGE}},
  {TOWER_ELECTRO, 35, 8,  4,  30,   {UPGRADE_DAMAGE, UPGRADE_SHOCK}},
  {TOWER_SNIPER,  60, 5,  3,  45,   {UPGRADE_SPEED,  UPGRADE_RANGE}},
  {TOWER_MAGIC,   25, 8,  2,  60,   {UPGRADE_DAMAGE, UPGRADE_SPEED_AURA}},
  {TOWER_WATER,   40, 4,  7,  100,  {UPGRADE_RANGE,  UPGRADE_SPEED}},
  {TOWER_FIRE,    38, 6,  8,  100,  {UPGRADE_RANGE,  UPGRADE_DAMAGE}}
};

/// Concrete instance of a tower.
class TowerInstance
{
protected:
  uint8_t             mData;           /**< Holds multiple data in a single uint8_t:
                                         - lower 3 bits: tower type (index)
                                         - upper 2 bits: upgrade info
                                         - remaining 3 bits: attack progress
                                    */
  IndexPointer     mTarget;         ///< Currently targeted creep, or 255

  /// Helper function for handling the creep hit.
  void hitCreep(CreepInstance *c, uint16_t *money, bool splash=false)
  {
    if (!canAttack(c->getTypeIndex()))
      return;

    if (c->hit(getDamage() / (splash ? 2 : 1), (getTypeIndex() == TOWER_ICE) ||
      (hasUpgraded(UPGRADE_SHOCK) && (rand() % 3) == 0)))
    {
      *money += c->getType().mReward;
      mTarget = TARGET_NONE;
    }

    if (getTypeIndex() == TOWER_WATER && (rand() % 10 == 0))
      c->setPosition(c->getPosition() - 10); // wave - knock back
  }

public:
  bool canAttack(IndexPointer creepType)
  {
    IndexPointer ti = getTypeIndex();

    if (creepType == CREEP_GHOST &&
        (ti == TOWER_GUARD || ti == TOWER_CANNON || ti == TOWER_SNIPER))
      return false; // ghosts are immune to physical attack

    if (creepType == CREEP_BAT && ti == TOWER_CANNON)
      return false; // bats are immune to cannon

    if (creepType == CREEP_DEMON && ti != TOWER_WATER && ti != TOWER_FIRE)
      return false; // demons are immune to everything else

    return true;
  }

  void update(CreepInstance *creepArray, uint8_t creepArraySize,
    const CreepPath *creepPaths, BytePosition tile, uint16_t frame,
    uint16_t *money)
  {
    BytePosition selfPosition = getCenter(tile);
   
    uint8_t range = getRange();

    if (mTarget == TARGET_NONE)  // no target => look for a new one
    {
      for (uint8_t i = 0; i < creepArraySize; ++i)
      {
        CreepInstance c = creepArray[i];

        if (!c.entered() || !c.isAlive() || !canAttack(c.getTypeIndex()))
          continue;

        BytePosition p = c.getPixelPosition(creepPaths);
        
        if (!distanceIsGreater(p,selfPosition,range))
        {
          mTarget = i;
          setAttackProgress(0);

          playSound(SOUND_PUT); // shooting sound

          if ((getTypeIndex() != TOWER_ICE) || !creepArray[mTarget].isFrozen())
          { // ^ ice tower keeps on looking for unfrozen targets
            break;
          }
        }
      }
    }
    else
    {
      // has target => check if still valid

      CreepInstance c = creepArray[mTarget];

      if (!c.isAlive() || !c.entered())
      {
        mTarget = TARGET_NONE;
      }
      else if (frame % getAttackSpeed() == 0)
      {
        setAttackProgress(getAttackProgress() + 1);

        if (getAttackProgress() == 0) // attack finished
        {
          hitCreep(&creepArray[mTarget],money);

          if (getTypeIndex() == TOWER_CANNON || getTypeIndex() == TOWER_FIRE)
          {
            // do splash damage

            BytePosition p = creepArray[mTarget].getPixelPosition(creepPaths);

            for (uint8_t i = 0; i < creepArraySize; ++i)
            {
              if (i == mTarget)
                continue;

              CreepInstance *c = &creepArray[i];

              if (c->isAlive() &&
               c->entered() &&
                 !distanceIsGreater(c->getPixelPosition(creepPaths),p,
                 SPLASH_RANGE))
              {
                hitCreep(c,money,true);
              }
            }
          }
          else if (getTypeIndex() == TOWER_ICE)
            mTarget = TARGET_NONE;
            // ^ ice tower will always look for a new target to freeze

          if (mTarget != TARGET_NONE)
          {
            // check if still in range         
            BytePosition p = c.getPixelPosition(creepPaths);
            
            if (distanceIsGreater(p,selfPosition,getRange()) || !c.entered())
              mTarget = TARGET_NONE;      // may have respawned ^
            else
              playSound(SOUND_PUT); // shooting sound
          }
        }
      }
    }
  }

  TowerInstance(const IndexPointer type=0): mTarget(TARGET_NONE)  
  {
    mData = type & 0b00000111;
  }

  /// Gets the tower center position in pixels.
  BytePosition getCenter(BytePosition tilePosition)
  {
    return getType().getCenter(tilePosition);
  }

  /// Sets given upgrade (0 or 1).
  void upgrade(uint8_t upgradeNumber)
  {
    mData |= (upgradeNumber == 0) ? 0b10000000 : 0b01000000;
  }

  bool upgraded(uint8_t upgradeNumber)
  {
    return mData & ((upgradeNumber == 0) ? 0b10000000 : 0b01000000);
  }

  TowerType getType()
  {
    return towerTypes[mData & getTypeIndex()];
  }

  IndexPointer getTypeIndex()
  {
    return mData & 0b00000111;
  }

  void setAttackProgress(uint8_t value)
  {
    mData = (mData & 0b11000111) | ((value & 0b00000111) << 3);
  }

  uint8_t getAttackProgress()
  {
    return (mData & 0b00111000) >> 3;
  }

  void clearTarget()
  {
    mTarget = TARGET_NONE;
  }
 
  bool hasUpgraded(IndexPointer upgradeType)
  {
    TowerType tt = getType();

    return 
      (tt.mUpgrades[0] == upgradeType && upgraded(0)) ||
      (tt.mUpgrades[1] == upgradeType && upgraded(1));
  }

  uint8_t getRange()
  {
    uint8_t r = getType().mRange;

    return r +
      (hasUpgraded(UPGRADE_RANGE) ? r / UPGRADE_RANGE_FRACTION_INCREASE : 0);
  }

  uint8_t getDamage()
  {
    uint8_t d = getType().mDamage;

    return d +
      (hasUpgraded(UPGRADE_DAMAGE) ? d / UPGRADE_DAMAGE_FRACTION_INCREASE : 0);
  }

  uint8_t getAttackSpeed()
  {
    uint8_t s = getType().mAttackSpeed;

    return s -
      (hasUpgraded(UPGRADE_SPEED) ? 2 : 0);
  }

  getter(IndexPointer, Target)
};

/// One tile on the mPlayground.
struct Tile
{
  TileType      mType;
  TowerInstance mTower; /// Only for type == TILE_TOWER.

  Tile(TileType type=TILE_EMPTY, TowerInstance tower=TowerInstance(0)):
    mType(type), mTower(tower)
  {
  }

  bool hasBigTower()
  {
    return mType == TILE_TOWER && mTower.getType().isBig();
  }
};

class Spawner; // forward decl

class GameMap
{
protected:
  CreepPath   mPaths[MAX_PATHS];
  uint8_t        mNumPaths;
  Spawner    *mSpawner;

  uint8_t        mStartLives;
  uint8_t        mStartMoney;

public:
  GameMap(): mNumPaths(0), mSpawner(0), mStartLives(20), mStartMoney(10)
  {
  }

  void setStartValues(uint8_t startLives, uint8_t startMoney)
  {
    mStartLives = startLives;
    mStartMoney = startMoney;
  }

  void addPath(CreepPath path)
  {
    if (mNumPaths >= MAX_PATHS)
      return;

    mPaths[mNumPaths] = path;
    mNumPaths++;
  }

  void clear()
  {
    mNumPaths = 0;
  }
 
  const CreepPath *getPath(uint8_t index) const
  {
    return &(mPaths[index < MAX_PATHS ? index : MAX_PATHS - 1]);
  }

  getter(uint8_t, StartLives)
  getter(uint8_t, StartMoney)
  getter(uint8_t, NumPaths)
  getter(const CreepPath *, Paths)
  getterSetter(Spawner *, Spawner)
};

/** Spawns creeps, is meant to be subclassed to implement the concrete spawn
    methods. */
class Spawner
{
protected:
  bool addCreep(CreepInstance c, CreepInstance *array, uint16_t *count)
  {
    if (*count >= MAX_CREEPS)
      return false;

    array[*count] = c;
    (*count)++;

    return true;
  }

  /// Helper function to cycle creeps in given range of levels.
  IndexPointer cycleCreeps(uint8_t index, IndexPointer levelFrom,
    IndexPointer levelTo)
  {
    levelFrom = min(CREEPS_TOTAL -1,levelFrom);
    levelTo   = min(CREEPS_TOTAL -1,levelTo);

    return levelFrom + (index % (levelTo - levelFrom + 1));
  }

  void cyclingSpawn(
    uint8_t total,           // total number of creeps to spawn
    uint8_t levelFrom,       // minimum level of a creep
    uint8_t levelTo,         // maximum level of a creep
    uint8_t maxLives,        // maximum number of lives for a creep
    uint8_t positionOffset,  // gaps between creeps
    uint8_t groupSize,       // affects additional gaps and creep lives
    const GameMap *gameMap, CreepInstance *creepArray, uint16_t *creepCount)
  {
    total = min(MAX_CREEPS,total);
    int16_t position = -positionOffset;

    for (uint8_t i = 0; i < total; ++i)
    {
      if (i % groupSize == 0)
        position -= positionOffset;

      CreepInstance c = CreepInstance(
        cycleCreeps(i,levelFrom,levelTo),
        i % gameMap->getNumPaths(),
        position,
        i % groupSize == 0 ? min(3,maxLives) : 0);

      position -= positionOffset;

      addCreep(c,creepArray,creepCount);
    }
  }

public:
  /// Spawns creeps into given array.
  virtual void spawnCreeps(uint16_t roundNumber, const GameMap *gameMap,
    CreepInstance *creepArray, uint16_t *creepCount)=0;
};

/// Spawner for maps 0 and 1.
class Spawner01: public Spawner
{
public:
  virtual void spawnCreeps(uint16_t roundNumber, const GameMap *gameMap,
    CreepInstance *creepArray, uint16_t *creepCount) override
  {
    cyclingSpawn
    (
      1 + roundNumber,  // number of creeps
      roundNumber / 4,  // level from
      roundNumber < 15 ? min(CREEP_DINO - 1,roundNumber) : roundNumber, // l to
      roundNumber / 5,  // max lives
      10,               // position offset
      5,                // group size
      gameMap, creepArray, creepCount
    );
  }
};

class Spawner2: public Spawner
{
public:
  virtual void spawnCreeps(uint16_t roundNumber, const GameMap *gameMap,
    CreepInstance *creepArray, uint16_t *creepCount) override
  {
    uint8_t path1Total = min(1 + roundNumber,(MAX_CREEPS * 2) / 3);
    int16_t position = -10;

    for (uint8_t i = 0; i < path1Total; ++i)
    {
      CreepInstance c = CreepInstance(
        cycleCreeps(i,roundNumber / 3,(roundNumber * 2) / 3),
        0,
        position,
        i % 3 == 0 ? min(3,roundNumber / 7) : 0);

      position -= 10;

      addCreep(c,creepArray,creepCount);

      if (gameMap->getNumPaths() > 1 && i % 2 == 0)
      {
        c.setPath(1);
        addCreep(c,creepArray,creepCount);
      }
    }
  }
};

class Spawner3: public Spawner
{
public:
  virtual void spawnCreeps(uint16_t roundNumber, const GameMap *gameMap,
    CreepInstance *creepArray, uint16_t *creepCount) override
  {
    cyclingSpawn
    (
      3 + roundNumber *  2,      // number of creeps
      roundNumber / 3,           // level from
      (roundNumber * 4) / 5,     // level to
      roundNumber / 8,           // max lives
      7,                         // position offset
      4,                         // group size
      gameMap, creepArray, creepCount
    );
  }
};

class Spawner4: public Spawner
{
public:
  virtual void spawnCreeps(uint16_t roundNumber, const GameMap *gameMap,
    CreepInstance *creepArray, uint16_t *creepCount) override
  {
    cyclingSpawn
    (
      8 + roundNumber * 2,       // number of creeps
      roundNumber / 3,           // level from
      2 + (roundNumber * 4) / 5, // level to
      roundNumber / 8,           // max lives
      10,                        // position offset
      4,                         // group size
      gameMap, creepArray, creepCount
    );
  }
};

/// Represents the currently loaded map that's being played.
class PlayGround
{
protected:
  Tile mTiles[TILES_TOTAL];

  uint16_t index(uint8_t x, uint8_t y)
  {
    return ((uint16_t) x) + ((uint16_t) y) * TILES_X;
  }

  /// Creates an appropriate path tile when paths cross etc.
  TileType makePathTile(Direction curDir, Direction prevDir, TileType curTile)
  {
    #define helperExpr(d1,d2,t1,t2,t3,t4,t5,t6,n) \
      (curDir == DIRECTION_##d1 || prevDir == DIRECTION_##d2 || \
       curTile == TILE_PATH_##t1 || \
       curTile == TILE_PATH_##t2 || \
       curTile == TILE_PATH_##t3 || \
       curTile == TILE_PATH_##t4 || \
       curTile == TILE_PATH_##t5 || \
       curTile == TILE_PATH_##t6 || \
       curTile == TILE_PATH_NESW    \
       ? n : 0)

    uint8_t tileFeatures = 
      helperExpr(N,S,NS,NE,NW,NEW,NSW,NEW,8) | // N
      helperExpr(E,W,WE,NE,SE,NES,ESW,NEW,4) | // E
      helperExpr(S,N,NS,SE,SW,NES,NSW,ESW,2) | // S
      helperExpr(W,E,WE,NW,SW,ESW,NSW,NEW,1);  // W

    #undef helperExpr

    switch (tileFeatures)
    {     // NESW
      case 0b0011: return TILE_PATH_SW;   break;
      case 0b0101: return TILE_PATH_WE;   break;
      case 0b0110: return TILE_PATH_SE;   break;
      case 0b0111: return TILE_PATH_ESW;  break;
      case 0b1001: return TILE_PATH_NW;   break;
      case 0b1010: return TILE_PATH_NS;   break;
      case 0b1011: return TILE_PATH_NSW;  break;
      case 0b1100: return TILE_PATH_NE;   break;
      case 0b1101: return TILE_PATH_NEW;  break;
      case 0b1110: return TILE_PATH_NES;  break;
      case 0b1111: return TILE_PATH_NESW; break;

      // these shouldn't happen:
      case 0b1000:
      case 0b0100:
      case 0b0000:
      case 0b0001:
      case 0b0010:
      default:
        return TILE_EMPTY; break;
    }
  }

public:
  PlayGround()
  {
    clear();
  }

  /// Initializes self based on given map.
  void loadMap(const GameMap *gameMap)
  {
    clear();

    // draw the paths on the mPlayground
    for (uint8_t i = 0; i < gameMap->getNumPaths(); ++i)
    {
      const CreepPath *p = gameMap->getPath(i);
      BytePosition pos   = p->getStart();

      char xIncr, yIncr;
      bool first = true;
      TileType previousDirection;

      for (uint8_t j = 0; j < p->getNumSegments(); ++j)
      {
        PathSegment s = p->getSegment(j);
        
        getXYIncrement(s.getDirection(),&xIncr,&yIncr);

        if (first)
        {
          previousDirection = s.getDirection();
          first = false;
        }

        for (uint8_t k = 0; k < s.getLength(); ++k)  
        {
          TileType newTile =
            makePathTile(s.getDirection(),previousDirection,
            getTile(pos)->mType);

          setTile(pos,newTile);
          previousDirection = s.getDirection();

          pos.mX += xIncr;
          pos.mY += yIncr;
        }
      }

      setTile(p->getStart(),Tile(TILE_CREEP_START)); 
      setTile(pos,Tile(TILE_CREEP_EXIT));
    }
  }

  void clear()
  {
    for (uint8_t i = 0; i < TILES_TOTAL; ++i)
      mTiles[i] = Tile(TILE_EMPTY);
  }

  Tile *getTile(BytePosition position)
  {
    return &(mTiles[index(position.mX,position.mY)]);
  }

  void setTile(BytePosition position, Tile tile)
  {
    mTiles[index(position.mX,position.mY)] = tile;
  }
};

struct GameMenuItem
{
  MenuItemState  mState; ///< ITEM_STATE_x
  const uint8_t    *mIcon;  ///< Pointer to an icon image.
  uint8_t           mPrice;
  char           mText[32];
};

struct MainMenuItem
{
  MenuItemState mState;
  char          mText[16];
  char          mSubText[16];
};

/**
  Puts together other components to represent the whole game state. This is
  not a class but rather a struct in order for the main program functions to be
  able to access the game state without tons of setters/getters.
 */
struct Game
{
  GameState mState;

  GameMap mMap;

  Spawner01 mSpawner01;
  Spawner2  mSpawner2;
  Spawner3  mSpawner3;
  Spawner4  mSpawner4;

  uint8_t mCheat;
  uint8_t mMapNumber;

  PlayGround mPlayground;

  CreepInstance mCreepArray[MAX_CREEPS];
  uint16_t mCreepCount;

  uint16_t mFrame;

  uint16_t mMoney;
  uint16_t mLives;
  uint8_t     mRound;

  BytePosition mCursor;

  uint8_t mSelectedMenuItem;

  bool mSound;

  uint8_t mRecords[MAPS_TOTAL]; ///< Record round for each map.

  Game()
  {
    mState = STATE_MENU;
    mFrame = 0;
    mCreepCount = 0;
    mSelectedMenuItem = 0;
    mCheat = CHEAT_NONE;

    mSound = false;

    for (uint8_t i = 0; i < MAPS_TOTAL; ++i)
      mRecords[i] = 0;

    mMapNumber = 0;
  }

  /// Checks whether a record high-score has been achieved.
  bool isRecord()
  {
    return mRound > mRecords[mMapNumber];
  }

  /// Call when a specific button has been pressed.
  void buttonDown(uint8_t button)
  {
    switch (mState)
    {
      case STATE_PLAYING_BUILDING:
        if (button == A_BUTTON)
        {
          mState = STATE_PLAYING_MENU;

          // potentially adjust the cursor to a nearby big tower

          if (mCursor.mX < TILES_X - 1 && mCursor.mY < TILES_Y - 1)
          {
            if (mPlayground.getTile(mCursor.right())->hasBigTower())
              mCursor.mX += 1;
            else if (mPlayground.getTile(mCursor.down())->hasBigTower())
              mCursor.mY += 1;
            else if (mPlayground.getTile(
                mCursor.right().down())->hasBigTower())
              mCursor = mCursor.right().down();
          }
        }

      case STATE_PLAYING_WAVE:
        switch (button)
        {
          case DOWN_BUTTON:
            mCursor.mY = min(mCursor.mY + 1, TILES_Y - 1);
            break;

          case UP_BUTTON:
            mCursor.mY = mCursor.mY == 0 ? 0 : mCursor.mY - 1;
            break;

          case RIGHT_BUTTON:
            mCursor.mX = min(mCursor.mX + 1, TILES_X - 1);
            break;

          case LEFT_BUTTON:
            mCursor.mX = mCursor.mX == 0 ? 0 : mCursor.mX - 1;
            break;

          default:
            break;
        }

        break;

      case STATE_PLAYING_MENU:
        switch (button)
        {
          case A_BUTTON:
            gameMenuConfirm();
            break;          

          case B_BUTTON:
            mState = STATE_PLAYING_BUILDING;
            mSelectedMenuItem = 0;
            break;          

          case RIGHT_BUTTON:
            mSelectedMenuItem = (mSelectedMenuItem + 1) % 13;
            break;

          case LEFT_BUTTON:
            mSelectedMenuItem =
              mSelectedMenuItem == 0 ? 12 : mSelectedMenuItem - 1;
            break;
 
          default:
            break;
        }

        break;

      case STATE_MENU:
        switch (button)
        {
          case RIGHT_BUTTON:
            mSelectedMenuItem = (mSelectedMenuItem + 1) % MAIN_MENU_ITEMS;
            break;

          case LEFT_BUTTON:
            mSelectedMenuItem =
              mSelectedMenuItem == 0 ? (MAIN_MENU_ITEMS - 1) :
                mSelectedMenuItem - 1;
            break;

          case A_BUTTON:
            if (mSelectedMenuItem < MAPS_TOTAL)
            {
              // new map
              mCreepCount = 0;
              createMap(mSelectedMenuItem);
              mPlayground.loadMap(&mMap);
              mMapNumber = mSelectedMenuItem;
              mRound = 0;
              mMoney = mMap.getStartMoney();
              mLives = mMap.getStartLives();
              mCursor.mX = 8;
              mCursor.mY = 4;
              mSelectedMenuItem = 0;
              srand(0); // make the game deterministic

              mState = STATE_PLAYING_BUILDING;
            }
            else if (mSelectedMenuItem == MAPS_TOTAL)
              mSound = !mSound;

            break;

          default:
            break;
        }

        break;

      case STATE_CONFIRM:
        if (button == B_BUTTON)
        {
          mState = STATE_PLAYING_MENU;
        }
        else if (button == A_BUTTON)
        {
          if (mSelectedMenuItem == GAME_MENU_QUIT)
          {
            mState = STATE_MENU;
            mSelectedMenuItem = 0;
          }
          else if (mSelectedMenuItem == GAME_MENU_DESTROY)
          {
            Tile *tile = mPlayground.getTile(mCursor);
            mMoney += tile->mTower.getType().mPrice / 2;
            // ^ give back half the original price
            mPlayground.setTile(mCursor,Tile(TILE_EMPTY));
            playSound(SOUND_BAD);

            mState = STATE_PLAYING_BUILDING;
          }
        }

        break;

      case STATE_GAME_OVER:
        if (button == A_BUTTON || button == B_BUTTON)
        {
          if (isRecord())
            mRecords[mMapNumber] = mRound;

          mState = STATE_MENU;
          mSelectedMenuItem = 0;
        }  

        break;

      default:
        break;
    }
  }

  /// Call when in game menu and a confirm button was pressed.
  void gameMenuConfirm()
  {
    if (getGameMenuItem(mSelectedMenuItem).mState != ITEM_STATE_AVAILABLE)
      return;

    if (buildSelectedTower())
      return;

    switch (mSelectedMenuItem)
    {
      case GAME_MENU_UPGRADE1:
      case GAME_MENU_UPGRADE2:
      {
        Tile *tile = mPlayground.getTile(mCursor);
        uint8_t cost = tile->mTower.getType().getUpgrageCost();

        if (mMoney >= cost || mCheat == CHEAT_MONEY)
        {
          mPlayground.getTile(mCursor)->mTower.upgrade(
            (mSelectedMenuItem == GAME_MENU_UPGRADE1) ? 0 : 1);        

          mMoney -= cost;
        }

        break;
      }

      case GAME_MENU_DESTROY:
        mState = STATE_CONFIRM;
        break;

      case GAME_MENU_NEXT_WAVE:
        mMap.getSpawner()->spawnCreeps(mRound,&mMap,mCreepArray,&mCreepCount);
        mState = STATE_PLAYING_WAVE;
        mSelectedMenuItem = 0;
        break;

      case GAME_MENU_QUIT:
        mState = STATE_CONFIRM;
        break;

      default:
        break; 
    }
  }

  /** If possible, builds a tower currently selected in the menu at the
      cursor position, substracts money, exits menu and returns true
      (otherwise false). */
  bool buildSelectedTower()
  {
    if (mSelectedMenuItem >= 8)
      return false;                   // no tower selected

    if (getGameMenuItem(mSelectedMenuItem).mState == ITEM_STATE_UNAVAILABLE)
      return false;                   // can't build
 
    TowerType tt = towerTypes[mSelectedMenuItem];

    if (tt.mPrice > mMoney && mCheat != CHEAT_MONEY)
      return false;                   // not enough money

    // build the tower

    mMoney -= tt.mPrice;

    mPlayground.setTile(mCursor,Tile(TILE_TOWER,mSelectedMenuItem)); 
    mState = STATE_PLAYING_BUILDING;  // cancel menu
    mSelectedMenuItem = 0;

    playSound(SOUND_PUT);
  }

  MainMenuItem getMainMenuItem(uint8_t index)
  {
    MainMenuItem result;

    result.mText[0] = 0;
    result.mSubText[0] = 0;

    result.mState = ITEM_STATE_AVAILABLE;

    if (index < MAPS_TOTAL)
    {
      // saves memory by not saving strings into RAM
      result.mText[0] = ' ';
      result.mText[1] = ' ';
      result.mText[2] = 'm';
      result.mText[3] = 'a';
      result.mText[4] = 'p';
      result.mText[5] = ' ';
      result.mText[6] = '0' + index + 1;
      result.mText[7] = ' ';
      result.mText[8] = ' ';
      result.mText[9] = 0;

      result.mSubText[0] = 'b';
      result.mSubText[1] = 'e';
      result.mSubText[2] = 's';
      result.mSubText[3] = 't';
      result.mSubText[4] = ':';
      result.mSubText[5] = ' ';

      sprintf(&result.mSubText[6],"%d",mRecords[index]);
    }
    else if (index == MAPS_TOTAL)
    {
      result.mText[0] = ' ';
      result.mText[1] = 's';
      result.mText[2] = 'n';
      result.mText[3] = 'd';
      result.mText[4] = ':';
      result.mText[5] = ' ';
      result.mText[6] = 'o';
      result.mText[7] = mSound ? 'n' : 'f';
      result.mText[8] = mSound ? ' ' : 'f';
      result.mText[9] = 0;
    }
    else
    {
      result.mState = ITEM_STATE_NULL;
    }

    return result;
  }

  GameMenuItem getGameMenuItem(uint8_t index)
  {
    GameMenuItem result;

    if (index < 13)  // total items
    {
      result.mState = ITEM_STATE_AVAILABLE;
      result.mPrice = 0;

      Tile *tile = mPlayground.getTile(mCursor);

      TowerType tt = tile->mType == TILE_TOWER ? tile->mTower.getType() :
        towerTypes[0];

      if (index < 6) // small tower icons
        result.mIcon = towerSmallImages + index * TILE_SIZE * 3;
      else           // big towers + other icons
        result.mIcon = menuIcons + (index - 6) * TILE_SIZE;

      if (index < GAME_MENU_UPGRADE1) // towers
      {
        if (tile->mType != TILE_EMPTY)
        {
          // can't build on non-empty tiles
          result.mState = ITEM_STATE_UNAVAILABLE;
        }
        else if (index >= 6)
        {
          // big towers need more space
          
          result.mState =
            mCursor.mX > 0 && mCursor.mY > 0 &&
            mPlayground.getTile(mCursor.left())->mType == TILE_EMPTY &&
            mPlayground.getTile(mCursor.up())->mType == TILE_EMPTY &&
            mPlayground.getTile(mCursor.left().up())->mType == TILE_EMPTY
            ?
            ITEM_STATE_AVAILABLE : ITEM_STATE_UNAVAILABLE;
        }
      }

      if (index < GAME_MENU_UPGRADE1)             // towers
      {
        result.mPrice = towerTypes[index].mPrice;
      }
      else if (index < GAME_MENU_DESTROY)
      {
        if (tile->mTower.upgraded((index == GAME_MENU_UPGRADE1) ? 0 : 1))
        {
          result.mState = ITEM_STATE_UNAVAILABLE; // already upgraded
          result.mPrice = 0;
        }
        else // upgrades
        {
          if (tile->mType == TILE_TOWER)
            result.mPrice = tt.getUpgrageCost();
          else
          {
            result.mState = ITEM_STATE_UNAVAILABLE;
            result.mPrice = 0;
          }
        }
      }
      else
        result.mPrice = 0;

      if (index == GAME_MENU_DESTROY && tile->mType != TILE_TOWER)
        result.mState = ITEM_STATE_UNAVAILABLE;

      if (index == GAME_MENU_UPGRADE2 &&
           (
             tile->mTower.getTypeIndex() == TOWER_WATER ||
             tile->mTower.getTypeIndex() == TOWER_FIRE
           )
         )
        result.mState = ITEM_STATE_UNAVAILABLE; // no upgrade 2 for big towers

      if (result.mPrice > mMoney && mCheat != CHEAT_MONEY)
        result.mState = ITEM_STATE_UNAVAILABLE;

      uint8_t pos = 0;

      switch (index)
      {
        // saves RAM
        #define C(c) result.mText[pos] = c; pos++;

        case TOWER_GUARD:   C('g')C('u')C('a')C('r')C('d')C(0)       break; 
        case TOWER_CANNON:  C('c')C('a')C('n')C('n')C('o')C('n')C(0) break;
        case TOWER_ICE:     C('i')C('c')C('e')C(0)                   break; 
        case TOWER_ELECTRO: C('e')C('l')C('e')C('c')C('t')C('r')C(0) break; 
        case TOWER_SNIPER:  C('s')C('n')C('i')C('p')C('e')C('r')C(0) break; 
        case TOWER_MAGIC:   C('m')C('a')C('g')C('i')C('c')C(0)       break; 
        case TOWER_WATER:   C('w')C('a')C('t')C('e')C('r')C(0)       break; 
        case TOWER_FIRE:    C('f')C('i')C('r')C('e')C(0)             break; 
        case GAME_MENU_UPGRADE1:
        case GAME_MENU_UPGRADE2:
          if (tile->mType == TILE_TOWER)
            getUpgradeName(
              tt.mUpgrades[index == GAME_MENU_UPGRADE1 ? 0 : 1],
              result.mText
            );
          else
            result.mText[0] = 0;

          break;
        case GAME_MENU_DESTROY:   C('s')C('e')C('l')C('l')C(0)      break; 
        case GAME_MENU_NEXT_WAVE: C('g')C('o')C('!')C(0)            break; 
        case GAME_MENU_QUIT:      C('q')C('u')C('i')C('t')C(0)      break; 
        default: result.mText[0] = 0;                               break;

        #undef C
      }
    }
    else
    {
      result.mState = ITEM_STATE_NULL; // no item here
      result.mText[0] = 0;
    }

    return result;
  }

  void createMap(uint8_t i)
  {
    mMoney = 0;
    mRound = 0;
    mLives = 0;

    CreepPath path1, path2;

    mMap.clear();

    #define newSeg(p,d,l) p.addSegment(PathSegment(DIRECTION_##d,l))

    switch (i)
    {
      case 0:
        path1.setStart(BytePosition(1,1));
        newSeg(path1,S,5);
        newSeg(path1,E,2);
        newSeg(path1,N,5);
        newSeg(path1,E,8);
        newSeg(path1,S,2);
        newSeg(path1,W,5);
        newSeg(path1,S,3);
        newSeg(path1,E,7);
        newSeg(path1,N,5);
        mMap.addPath(path1);
        mMap.setStartValues(20,10);
        mMap.setSpawner(&mSpawner01);
        break;

      case 1:
        path1.setStart(BytePosition(1,1));
        newSeg(path1,S,2);
        newSeg(path1,E,7);
        newSeg(path1,S,1);
        newSeg(path1,E,2);
        newSeg(path1,S,2);
        newSeg(path1,E,4);
        newSeg(path1,N,3);
        newSeg(path1,W,2);
        newSeg(path1,N,2);
        newSeg(path1,W,4);
        path2.setStart(BytePosition(1,6));
        newSeg(path2,N,3);
        newSeg(path2,E,3);
        newSeg(path2,S,2);
        newSeg(path2,E,1);
        newSeg(path2,S,1);
        newSeg(path2,E,9);
        newSeg(path2,N,3);
        newSeg(path2,W,2);
        newSeg(path2,N,2);
        newSeg(path2,W,4);
        mMap.addPath(path1);
        mMap.addPath(path2);
        mMap.setStartValues(25,10);
        mMap.setSpawner(&mSpawner01);
        break;
 
      case 2:
        path1.setStart(BytePosition(1,1));
        newSeg(path1,S,5);
        newSeg(path1,E,2);
        newSeg(path1,N,2);
        newSeg(path1,E,2);
        newSeg(path1,S,2);
        newSeg(path1,E,3);
        newSeg(path1,N,3);
        newSeg(path1,W,2);
        newSeg(path1,N,2);
        newSeg(path1,W,3);
        path2.setStart(BytePosition(14,1));
        newSeg(path2,W,4);
        newSeg(path2,S,5);
        newSeg(path2,E,2);
        newSeg(path2,N,3);
        newSeg(path2,E,2);
        newSeg(path2,S,3);
        mMap.addPath(path1);
        mMap.addPath(path2);
        mMap.setStartValues(20,10);
        mMap.setSpawner(&mSpawner2);
        break;

      case 3:
        path1.setStart(BytePosition(2,7));
        newSeg(path1,N,2);
        newSeg(path1,E,12);
        newSeg(path1,S,2);
        newSeg(path1,W,7);
        newSeg(path1,N,6);
        newSeg(path1,W,2);
        newSeg(path1,S,2);
        newSeg(path1,W,4);
        newSeg(path1,N,1);
        newSeg(path1,E,3);
        path2.setStart(BytePosition(2,7));
        newSeg(path2,N,2);
        newSeg(path2,E,12);
        newSeg(path2,S,2);
        newSeg(path2,W,7);
        newSeg(path2,N,6);
        newSeg(path2,E,2);
        newSeg(path2,S,2);
        newSeg(path2,E,4);
        newSeg(path2,N,1);
        newSeg(path2,W,3);
        mMap.addPath(path1);
        mMap.addPath(path2);
        mMap.setStartValues(10,8);
        mMap.setSpawner(&mSpawner3);
        break;

      case 4:
        path1.setStart(BytePosition(4,4));
        newSeg(path1,N,2);
        newSeg(path1,W,3);
        newSeg(path1,S,4);
        newSeg(path1,E,5);
        newSeg(path1,N,5);
        newSeg(path1,E,2);
        newSeg(path1,S,5);
        newSeg(path1,E,3);
        newSeg(path1,N,5);
        newSeg(path1,E,3);
        path2.setStart(BytePosition(13,6));
        newSeg(path2,N,3);
        newSeg(path2,W,5);
        newSeg(path2,S,3);
        newSeg(path2,W,2);
        newSeg(path2,N,3);
        newSeg(path2,W,1);
        newSeg(path2,N,2);
        newSeg(path2,W,3);
        newSeg(path2,S,3);
        mMap.addPath(path1);
        mMap.addPath(path2);
        mMap.setStartValues(30,22);
        mMap.setSpawner(&mSpawner4);
        break;

      default:
        break;
    }

    #undef newSeg
  }

  void applySpeedAura(BytePosition center)
  {
    uint8_t y0 = center.mY > 0 ? center.mY - 1 : 0;
    uint8_t y1 = min(center.mY + 1, TILES_Y - 1);
    uint8_t x0 = center.mX > 0 ? center.mX - 1 : 0;
    uint8_t x1 = min(center.mX + 1, TILES_X - 1);

    for (uint8_t y = y0; y <= y1; ++y)
      for (uint8_t x = x0; x <= x1; ++x)
      {
        if (x == center.mX && y == center.mY)
          continue;

        bool apply = false;

        Tile *t = mPlayground.getTile(BytePosition(x,y));

        if (t->mType == TILE_TOWER)
        { 
          apply = t->mTower.getTypeIndex() != TOWER_MAGIC;
        }
        else if (x == x1 && x < TILES_X - 1)
        {
          // check for big tower base
          t = mPlayground.getTile(BytePosition(x + 1,y));
          apply = t->mType == TILE_TOWER && t->mTower.getType().isBig();
        }

        if (apply)
          t->mTower.setAttackProgress(
            min(7, t->mTower.getAttackProgress() + 2));
      }
  }

  void update()
  {
    mFrame++;

    switch (mState)
    {
      case STATE_PLAYING_WAVE:
      {
        // update creeps
        for (uint8_t i = 0; i < mCreepCount; ++i)
        { 
          CreepInstance *creep = &(mCreepArray[i]);
          creep->update(mFrame);

          if (creep->isAlive() && creep->exited(mMap.getPaths()))
          {
            creep->kill();

            mLives = max(0,((int16_t) mLives) - creep->getType().mReward);

            if (mLives == 0)
            {
              mState = STATE_GAME_OVER;
              playSound(SOUND_LOST);
              break;
            }

            playSound(SOUND_BAD);

            continue;
          }

          if (!creep->isAlive() && creep->getTypeIndex() == CREEP_SPIDER_BIG &&
              !creep->exited(mMap.getPaths()))
          {
            // replace big spiders that die with two small ones

            mCreepArray[i] = CreepInstance(CREEP_SPIDER,
              mCreepArray[i].getPath(),mCreepArray[i].getPosition(),0);

            CreepInstance spider2 = CreepInstance(CREEP_SPIDER,
              mCreepArray[i].getPath(),mCreepArray[i].getPosition() - 10,0);

            bool secondAdded = false;

            if (mCreepCount < MAX_CREEPS)
            {
              mCreepArray[mCreepCount] = spider2;
              mCreepCount++;
              secondAdded = true;
            }
            else
            {
              // try to find a dead creep to replace with the spider

              for (uint8_t i = 0; i < mCreepCount; ++i)
                if (!mCreepArray[i].isAlive())
                {
                  mCreepArray[i] = spider2;
                  secondAdded = true;
                }  
            }            

            if (!secondAdded)
              mCreepArray[i].setHealthLives(mCreepArray[i].getLives(),1);
              // ^ if two spiders can't be made, make one with two lives 
          }
        }

        if (mLives == 0)
          break;

        // update towers

        for (uint8_t y = 0; y < TILES_Y; ++y)
          for (uint8_t x = 0; x < TILES_X; ++x)
           {
             Tile *t = mPlayground.getTile(BytePosition(x,y));

             if (t->mType == TILE_TOWER)
             {
               t->mTower.update(mCreepArray,mCreepCount,mMap.getPaths(),
                 BytePosition(x,y),mFrame, &mMoney);

               if (mFrame % 8==0 && t->mTower.hasUpgraded(UPGRADE_SPEED_AURA))
                 applySpeedAura(BytePosition(x,y));
             }
           }

        // check if the wave is over

        bool over = true;

        for (uint8_t i = 0; i < mCreepCount; ++i)
          if (mCreepArray[i].isAlive())
          {
            over = false;
            break;
          }

        if (over)
        {
          // wave over

          mMoney += WAVE_BASE_REWARD + mRound / 4;
 
          mRound++;

          mState = STATE_PLAYING_BUILDING;

          // clear potential left over targets

          for (uint8_t y = 0; y < TILES_Y; ++y)
            for (uint8_t x = 0; x < TILES_X; ++x)
             {
               Tile *t = mPlayground.getTile(BytePosition(x,y));
               t->mTower.clearTarget();
             }

          mCreepCount = 0; // clear creeps
        }

        break;
      }

      default:
        break;
    }
  }
};

Game game;

#ifdef ARDUINO

// ========= Arduboy code only ==========

Arduboy2 arduboy;

void drawConfirmDialog()
{
  const uint8_t padding = 10;

  arduboy.fillRect(padding,padding,DISPLAY_WIDTH - 2 * padding,
    DISPLAY_HEIGHT - 2 * padding,WHITE);

  arduboy.drawRect(padding,padding,DISPLAY_WIDTH - 2 * padding,
    DISPLAY_HEIGHT - 2 * padding,BLACK);
 
  arduboy.setTextColor(BLACK);
  arduboy.setTextBackground(WHITE);

  arduboy.setCursor(padding + 8, padding + 18);

  arduboy.print(F("Really? A=y B=n"));
}

void drawMenu()
{
  arduboy.fillRect(0,0,DISPLAY_WIDTH,DISPLAY_HEIGHT,WHITE);

  arduboy.fillRect(LOGO_X,LOGO_Y,25,18,BLACK);
  arduboy.drawBitmap(LOGO_X,LOGO_Y,logoImage,25,18,WHITE);

  const uint8_t margin = 10;

  Sprites::drawOverwrite(LOGO_X - TILE_WIDTH * 2 - margin,LOGO_Y,
    towerBigSprites,0);

  Sprites::drawOverwrite(LOGO_X + 25 + margin,LOGO_Y,towerBigSprites,2);

  // draw decoration wave

  arduboy.fillRect(0,28,DISPLAY_WIDTH,5,BLACK);

  for (uint8_t i = 0; i < DISPLAY_WIDTH / 15 + 2; ++i)
    arduboy.drawBitmap(i * 15 - game.mFrame % 15,28,waveImage,15,5,WHITE);

  MainMenuItem item = game.getMainMenuItem(game.mSelectedMenuItem);

  arduboy.fillRect(0,38,DISPLAY_WIDTH,11,BLACK);

  arduboy.setTextColor(WHITE);
  arduboy.setTextBackground(BLACK);
  arduboy.setCursor(22,40);

  arduboy.write('<');
  arduboy.write(' ');
  arduboy.print(item.mText);
  arduboy.write(' ');
  arduboy.write('>');

  arduboy.setTextColor(BLACK);
  arduboy.setTextBackground(WHITE);
  arduboy.setCursor(2,55);
  arduboy.print(item.mSubText);

  if (game.mCheat != CHEAT_NONE && (game.mFrame / 4) % 2 == 0)
  {
    arduboy.setCursor(47,26);
    arduboy.print(F("cheat!"));
  }
}

void drawGameOver()
{
  arduboy.fillRect(0,0,DISPLAY_WIDTH,DISPLAY_HEIGHT,WHITE);

  arduboy.setTextColor(BLACK);
  arduboy.setTextBackground(WHITE);
  arduboy.setCursor(20,10);

  arduboy.print(F("game over at "));
  arduboy.print(game.mRound);

  if (game.isRecord())
  {
    arduboy.setCursor(20,20);
    arduboy.print(F("new record!"));
  }
}

void drawMap()
{
  uint8_t rangeToDraw = 255; // tower range in pixels or 255 (don't draw range)
  BytePosition rangeToDrawCenter;
  bool drawAura = false;

  for (uint8_t y = 0; y < TILES_Y; ++y)
    for (uint8_t x = 0; x < TILES_X; ++x)
    {
      Tile* t = game.mPlayground.getTile(BytePosition(x,y));

      if (t->mType == TILE_TOWER ||  // real tower
          (
            // tower preview
            game.mState == STATE_PLAYING_MENU &&
            game.mCursor.mX == x &&
            game.mCursor.mY == y &&
            game.mSelectedMenuItem < 8 &&
            (game.mFrame >> 3) % 4 != 0 &&
            game.getGameMenuItem(game.mSelectedMenuItem).mState ==
              ITEM_STATE_AVAILABLE
          )
        )
      {
        TowerType tt;

        if (t->mType == TILE_TOWER)
        {
          tt = t->mTower.getType();
        }
        else
        {
          // tower preview
          tt = towerTypes[game.mSelectedMenuItem];
          rangeToDraw = tt.mRange;
          rangeToDrawCenter = tt.getCenter(BytePosition(x,y));
        }

        if (tt.mSprite >= TOWER_WATER)
        {
          // big (2 x 2 tiles) tower

          Sprites::drawOverwrite(
            (x - 1) * TILE_WIDTH,
            (y - 1) * TILE_HEIGHT,
            towerBigSprites,
              (tt.mSprite == TOWER_WATER ? 0 : 2) +
              (t->mTower.upgraded(0) ? 1 : 0));
        }
        else
        {
          // small (1 x 1 tile) tower

          for (uint8_t i = 0; i < 3; ++i)
            if (i == 0 || !t->mTower.upgraded(i == 1 ? 0 : 1))
              arduboy.drawBitmap(
                x * TILE_WIDTH,
                y * TILE_HEIGHT,
                towerSmallImages + ((uint16_t) tt.mSprite) * TILE_SIZE * 3 +
                  i * TILE_SIZE,
                TILE_WIDTH,
                TILE_HEIGHT,
                WHITE);
        }
      } 
      else
      {
        // non-tower tile

        arduboy.drawBitmap(
          x * TILE_WIDTH,
          y * TILE_HEIGHT,
          tileImages + t->mType * TILE_SIZE,
          TILE_WIDTH,
          TILE_HEIGHT,
          WHITE);
      }
    }

  // draw projectiles

  for (uint8_t y = 0; y < TILES_Y; ++y)
    for (uint8_t x = 0; x < TILES_X; ++x)
    {
      Tile* t = game.mPlayground.getTile(BytePosition(x,y));

      if (t->mType == TILE_TOWER)
      {
        IndexPointer target = t->mTower.getTarget();

        if (target != 255)
        {
          CreepInstance c = game.mCreepArray[target];

          if (!c.isAlive())
            continue;

          BytePosition p = c.getPixelPosition(game.mMap.getPaths());

          uint8_t attackProgress = t->mTower.getAttackProgress();
          uint8_t attackPercentage = attackProgress * 12;
                                  // ^ * 12 roughly converts to percents

          BytePosition selfPos = t->mTower.getCenter(BytePosition(x,y));

          uint8_t projX = interpolateBytes(selfPos.mX,p.mX,attackPercentage);
          uint8_t projY = interpolateBytes(selfPos.mY,p.mY,attackPercentage);

          switch (t->mTower.getTypeIndex())
          { 
            case TOWER_GUARD:
              // arrow
              if (absDiff(selfPos.mX,p.mX) > absDiff(selfPos.mY,p.mY))
                arduboy.drawFastHLine(projX,projY,2,BLACK);
              else
                arduboy.drawFastVLine(projX,projY,2,BLACK);

              break;

            case TOWER_CANNON:
              // cannon ball

              arduboy.drawFastVLine(projX - 1,projY,2,BLACK);
              arduboy.drawFastVLine(projX,    projY,2,BLACK);
              break;

            case TOWER_ICE:
              // ice
              arduboy.drawPixel(projX,projY,BLACK);
              arduboy.drawPixel(projX + 1,projY + 1,BLACK);
              arduboy.drawPixel(projX - 1,projY + 1,BLACK);
              arduboy.drawPixel(projX + 1,projY - 1,BLACK);
              arduboy.drawPixel(projX - 1,projY - 1,BLACK);
              break;

            case TOWER_SNIPER:
            {
              // bullet
              uint8_t x2 = interpolateBytes(projX,selfPos.mX,25);
              uint8_t y2 = interpolateBytes(projY,selfPos.mY,25);
              arduboy.drawLine(projX,projY,x2,y2,BLACK);
              break;
            }

            case TOWER_MAGIC:
              // spell
              arduboy.drawCircle(projX,projY,1,BLACK);
              break;

            case TOWER_ELECTRO:
              // lightning

              if (attackPercentage < 50)
                arduboy.drawLine(selfPos.mX,selfPos.mY,
                  p.mX -1 + game.mFrame % 3,p.mY -1 + game.mFrame % 4,BLACK);

              break;

            case TOWER_WATER:
              //water

              arduboy.fillCircle(projX,projY,attackProgress / 2 + 1,BLACK);

              break;

            case TOWER_FIRE:
            {
              // fire

              for (uint8_t i = 0; i < (attackProgress + 1) * 3; ++i)
                arduboy.drawPixel(
                  projX - 2 + rand() % (attackProgress + 2),
                  projY - 2 + rand() % (attackProgress + 2), BLACK);

              break;
            }

            default:
              break;
          }
        }
      }
    }

  // draw creeps

  for (uint8_t i = 0; i < game.mCreepCount; ++i)
  {  
    CreepInstance *creep = &(game.mCreepArray[i]);

    if (creep->entered() && creep->isAlive())
    {
      BytePosition p = creep->getPixelPosition(game.mMap.getPaths());
      CreepType ct = creep->getType();
      uint8_t bob = (creep->getPosition() >> 2) % 2;

      Sprites::drawPlusMask(
        p.mX - TILE_WIDTH_HALF, p.mY - TILE_HEIGHT_HALF + bob,
        creepSprites,ct.mSprite);
    }
  }

  // draw cursor

  BytePosition corner(
    game.mCursor.mX * TILE_WIDTH,game.mCursor.mY * TILE_HEIGHT);

  arduboy.drawRect(corner.mX,corner.mY,TILE_WIDTH,TILE_HEIGHT,BLACK);

  for (uint8_t i = 0; i < TILE_WIDTH; ++i)
  {
    if (((game.mFrame >> 3) + i) % 3 == 0)
    {
      arduboy.drawPixel(corner.mX + i,corner.mY,WHITE);
      arduboy.drawPixel(corner.mX + TILE_WIDTH - 1,corner.mY + i,WHITE);
      arduboy.drawPixel(corner.mX + TILE_WIDTH - i,corner.mY + TILE_HEIGHT - 1,
        WHITE);
      arduboy.drawPixel(corner.mX,corner.mY + TILE_HEIGHT - i,WHITE);
    }
  }

  if (game.mState == STATE_PLAYING_MENU || !arduboy.pressed(B_BUTTON))
  {
    // draw the infobar

    uint8_t y = (game.mState != STATE_PLAYING_MENU && game.mCursor.mY < 1) ?
      DISPLAY_HEIGHT - INFOBAR_Y - 7 : INFOBAR_Y;

    arduboy.setTextColor(BLACK);
    arduboy.setTextBackground(WHITE);

    arduboy.setCursor(1,y);
    arduboy.write('$');

    if (game.mCheat == CHEAT_MONEY)
    {
      arduboy.write('!');
      arduboy.write('!');
      arduboy.write('!');
    }
    else
      arduboy.print(game.mMoney);

    arduboy.setCursor(1 + 5 * 8,y);
    arduboy.write('L');
    arduboy.print(game.mLives);

    arduboy.setCursor(1 + 11 * 8,y);
    arduboy.write('R');
    arduboy.print(game.mRound);
  }

  if (game.mState == STATE_PLAYING_WAVE && arduboy.pressed(A_BUTTON))
  {
    // draw health bars

    for (uint8_t i = 0; i < game.mCreepCount; ++i)
    {  
      CreepInstance creep = game.mCreepArray[i];

      if (creep.entered() && creep.isAlive())
      {
        BytePosition p = creep.getPixelPosition(game.mMap.getPaths());
        CreepType ct = creep.getType();

        uint8_t healthFraction =
          ((uint16_t) creep.getHealth()) * 5 / ct.mMaxHealth;

        arduboy.fillRect(p.mX - 3, p.mY - 6, 6, 3,WHITE);
        arduboy.drawFastHLine(p.mX - 2, p.mY - 5,healthFraction,BLACK);
      }
    }
  }

  Tile *cursorTile = game.mPlayground.getTile(game.mCursor);

  if (game.mState == STATE_PLAYING_MENU && cursorTile->mType == TILE_TOWER)
  {
    rangeToDraw = cursorTile->mTower.getRange();
    drawAura = cursorTile->mTower.hasUpgraded(UPGRADE_SPEED_AURA);

    if (game.mState == STATE_PLAYING_MENU && (game.mFrame >> 3) % 2 == 0)
    {

      #define helperCond(u,i,upgrade)\
       (game.mSelectedMenuItem == GAME_MENU_UPGRADE##u &&\
       game.getGameMenuItem(GAME_MENU_UPGRADE##u).mState ==\
       ITEM_STATE_AVAILABLE &&\
       cursorTile->mTower.getType().mUpgrades[i] == upgrade)

      if (helperCond(1,0,UPGRADE_RANGE) || helperCond(2,1,UPGRADE_RANGE))
        // range upgrade preview
        rangeToDraw += rangeToDraw / UPGRADE_RANGE_FRACTION_INCREASE;
      else if (helperCond(1,0,UPGRADE_SPEED_AURA) ||
        helperCond(2,1,UPGRADE_SPEED_AURA))
        drawAura = true; // aura upgrade preview

      #undef helperCond
    }

    rangeToDrawCenter = cursorTile->mTower.getType().getCenter(game.mCursor);
  }

  if (rangeToDraw != 255)
  {
    // draw the tower range
    arduboy.drawCircle(rangeToDrawCenter.mX,rangeToDrawCenter.mY,
      rangeToDraw,BLACK);

    if (drawAura)
      arduboy.drawRect(
        rangeToDrawCenter.mX - TILE_WIDTH_HALF - TILE_WIDTH,
        rangeToDrawCenter.mY - TILE_HEIGHT_HALF - TILE_HEIGHT,
        TILE_WIDTH * 3, TILE_HEIGHT * 3, BLACK);
  }

  if (game.mState == STATE_PLAYING_MENU)
  {
    // draw game menu

    arduboy.fillRect(0,DISPLAY_HEIGHT - TILE_HEIGHT - 1,DISPLAY_WIDTH,
      TILE_HEIGHT + 1,WHITE);

    arduboy.drawFastHLine(0,DISPLAY_HEIGHT - TILE_HEIGHT - 1,DISPLAY_WIDTH,
      BLACK); 

    uint8_t y = DISPLAY_HEIGHT - TILE_HEIGHT;

    for (uint8_t i = 0; i < DISPLAY_WIDTH / TILE_WIDTH; ++i)
    {
      GameMenuItem item = game.getGameMenuItem(i);

      if (item.mState == ITEM_STATE_NULL)
        break;

      uint8_t x = i * TILE_WIDTH;

      if (game.mSelectedMenuItem == i)
      {
        arduboy.drawBitmap(x,y,item.mIcon,TILE_WIDTH,TILE_HEIGHT,BLACK);
        arduboy.setCursor(1,y - 9);
        arduboy.print(item.mText);

        if (item.mPrice > 0)
        {
          arduboy.write(' ');
          arduboy.write('(');
          arduboy.write('$');
          arduboy.print(item.mPrice);
          arduboy.write(')');
        }
      }
      else
      {
        arduboy.fillRect(x,y,TILE_WIDTH,TILE_HEIGHT,BLACK);
        arduboy.drawBitmap(x,y,item.mIcon,TILE_WIDTH,TILE_HEIGHT,WHITE);
      }

      if (item.mState == ITEM_STATE_UNAVAILABLE)
        arduboy.drawBitmap(x,y,ditherImage,TILE_WIDTH,TILE_HEIGHT,BLACK);
    }
  }
}

uint8_t buttonRepeatCounter = BUTTON_REPEAT_DELAY;

inline void checkButton(uint8_t button, bool checkRepeat=false)
{
  if (arduboy.justPressed(button))
  {
    game.buttonDown(button);
  }
  
  if (checkRepeat)
  {
    if (arduboy.pressed(button))
    {
      if (buttonRepeatCounter == 0)
      {
        if (arduboy.frameCount % BUTTON_REPEAT_PERIOD == 0)
          game.buttonDown(button);
      }
      else
        buttonRepeatCounter--;
    }
    else if (arduboy.justReleased(button))
      buttonRepeatCounter = BUTTON_REPEAT_DELAY;
  }
}

void handleInputs()
{
  checkButton(A_BUTTON);
  checkButton(B_BUTTON);
  checkButton(LEFT_BUTTON,true);
  checkButton(RIGHT_BUTTON,true);
  checkButton(UP_BUTTON,true);
  checkButton(DOWN_BUTTON,true);

  // cheat

  if (arduboy.pressed(UP_BUTTON) && arduboy.pressed(B_BUTTON))
    game.mCheat = arduboy.pressed(DOWN_BUTTON) ? CHEAT_MONEY : CHEAT_NONE;  
}

bool recordWritten = false; ///< For detecting records and writing to EEPROM.

void setup()
{
  arduboy.begin();
  game.mSound = arduboy.audio.enabled();

  beep1.begin();

  arduboy.clear();
  arduboy.setFrameRate(FRAMERATE);

  if (EEPROM.read(EEPROM_START) != EEPROM_VALID_VALUE)
  {
    // EEPROM not valid => initialize it

    for (uint8_t i = 0; i < MAPS_TOTAL; ++i)
      EEPROM.update(EEPROM_START + i + 1,0); // zero the records
   
    EEPROM.update(EEPROM_START,EEPROM_VALID_VALUE);
  }
  else
  {
    // load the records from EEPROM

    for (uint8_t i = 0; i < MAPS_TOTAL; ++i)
      game.mRecords[i] = EEPROM[EEPROM_START + i + 1];
  }
}

void loop()
{
  if (!(arduboy.nextFrame()))
    return;

  beep1.timer();

  arduboy.pollButtons();
  handleInputs();

  uint8_t updates =
    game.mState == STATE_PLAYING_WAVE && arduboy.pressed(A_BUTTON) &&
                   arduboy.pressed(B_BUTTON)? GAME_SPEEDUP : 1;
  
  for (uint8_t i = 0; i < updates; ++i)
    game.update();

  arduboy.clear();

  if (game.mState == STATE_MENU)
    drawMenu();
  else if (game.mState == STATE_GAME_OVER)
    drawGameOver();
  else
    drawMap();

  if (game.mState == STATE_CONFIRM)
    drawConfirmDialog();

  if (game.mState == STATE_GAME_OVER)
  {
    if (game.isRecord() && !recordWritten)
    {
      // new high score record to be written to EEPROM

      EEPROM.update(EEPROM_START + game.mMapNumber + 1,game.mRound);

      recordWritten = true;
    }
  }
  else
    recordWritten = false;

  if (arduboy.audio.enabled() != game.mSound)
  {
    if (game.mSound)
      arduboy.audio.on();
    else
      arduboy.audio.off();

    playSound(SOUND_PUT);
  }

  arduboy.display();
}

#else

// ========= PC debug code only =========

string toStr(Direction d)
{
  switch (d)
  {
    case DIRECTION_N: return "N"; break;
    case DIRECTION_E: return "E"; break;
    case DIRECTION_S: return "S"; break;
    case DIRECTION_W: return "W"; break;
    default:          return "?"; break;
  }
}

string toStr(BytePosition t)
{
  return "[" + to_string(t.mX) + "," + to_string(t.mY) + "]";
}

string toStr(PathSegment s)
{
  return toStr(s.getDirection()) + to_string(s.getLength()); 
}

string toStr(CreepPath p)
{
  string result = toStr(p.getStart()) + ":";

  for (uint8_t i = 0; i < p.getNumSegments(); ++i)
    result += " " + toStr(p.getSegment(i));

  return result;
}

string toStr(GameMap m)
{
  string result = "map:";

  for (uint8_t i = 0; i < m.getNumPaths(); ++i)
    result += "\n  path: " + toStr(*(m.getPath(i)));

  return result; 
}

string toStr(TowerInstance t)
{
  string result = "tower:\n  upgrades:";

  if (t.upgraded(0))
    result += "0";

  if (t.upgraded(1))
    result += "1";

  return result;
}

string toStr(Tile t)
{
  switch (t.mType)
  {
    case TILE_EMPTY:       return "."; break;
    case TILE_TOWER:       return "T"; break;
    case TILE_CREEP_START: return "S"; break;
    case TILE_CREEP_EXIT:  return "E"; break;
    
    case TILE_PATH_NS:     return "|"; break;
    case TILE_PATH_WE:     return "-"; break;     
    case TILE_PATH_NE:     return "L"; break;
    case TILE_PATH_SE:     return "F"; break;
    case TILE_PATH_NW:     return "/"; break;
    case TILE_PATH_SW:     return "\\"; break;
    case TILE_PATH_NES:    return ">"; break;
    case TILE_PATH_ESW:    return "v"; break;
    case TILE_PATH_NEW:    return "^"; break;
    case TILE_PATH_NSW:    return "<"; break;
    case TILE_PATH_NESW:   return "+"; break;

    default: return         "?";
  }
}

string toStr(PlayGround p)
{
  string result = "mPlayground:";

  for (uint8_t y = 0; y < TILES_Y; ++y)
  {
    result += "\n";

    for (uint8_t x = 0; x < TILES_X; ++x)
      result += toStr(*(p.getTile(BytePosition(x,y))));
  }


  return result;
}

string toStr(CreepInstance c)
{
  string result = "creep:\n";

  result += "  type: " + to_string((unsigned int) c.getTypeIndex()) + "\n";
  result += "  path: " + to_string((long unsigned int) c.getPath()) + "\n";
  result += "  position: " + to_string(c.getPosition()) + "\n";
  result += "  health: " + to_string(c.getHealth());

  return result;
}

int main()
{
  // test here

  return 0;
}

#endif

Bombman
#!/usr/bin/env python
# coding=utf-8
#
# Bombman - free and open-source Bomberman clone
#
# Copyright (C) 2016 Miloslav Číž
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# ========================== A FEW COMMENTS ===========================
#
# Version numbering system:
#
# major.minor
#
# Major number increases with significant new features added (multiplayer, ...),
# minor number increases with small changes (bug fixes, AI improvements, ...) and
# it does so in this way: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 91, 92, 93, etc.
#
# ---------------------------------------------------------------------
#
# Map string format (may contain spaces and newlines, which will be ignored):
#
# <environment>;<player items>;<map items>;<tiles>
#    
# <environment>   - Name of the environment of the map (affects only visual appearance).
# <player items>  - Items that players have from the start of the game (can be an empty string),
#                   each item is represented by one letter (the same letter can appear multiple times):
#                     f - flame
#                     F - superflame
#                     b - bomb
#                     k - kicking shoe
#                     s - speedup
#                     p - spring
#                     d - disease
#                     m - multibomb
#                     r - random
#                     x - boxing glove
#                     e - detonator
#                     t - throwing glove
# <map items>     - Set of items that will be hidden in block on the map. This is a string of the
#                   same format as in <player items>. If there is more items specified than there is
#                   block tiles, then some items will be left out.
# <tiles>         - Left to right, top to bottom sequenced array of map tiles:
#                     . - floor
#                     x - block (destroyable)
#                     # - wall (undestroyable)
#                     A - teleport A
#                     B - teleport B
#                     T - trampoline
#                     V - lava
#                     u - arrow up, floor tile
#                     r - arrow right, floor tile
#                     d - arrow down, floor tile
#                     l - arrow left, floor tile
#                     U - arrow up, under block tile
#                     R - arrow right, under block tile
#                     D - arrow down, under block tile
#                     L - arrow left, under block tile
#                     <0-9> - starting position of the player specified by the number

import sys
import pygame
import os
import math
import copy
import random
import re
import time

DEBUG_PROFILING = False
DEBUG_FPS = False
DEBUG_VERBOSE = False

#------------------------------------------------------------------------------

def debug_log(message):
  if DEBUG_VERBOSE:      
    print(message)

#==============================================================================

class Profiler(object):
  SHOW_LAST = 10

  #----------------------------------------------------------------------------

  def __init__(self):
    self.sections = {}
    
  #----------------------------------------------------------------------------

  def measure_start(self, section_name):
    if not DEBUG_PROFILING:
      return
      
    if not (section_name in self.sections):
      self.sections[section_name] = [0.0 for i in range(Profiler.SHOW_LAST)]

    section_values = self.sections[section_name]
        
    section_values[0] -= pygame.time.get_ticks()

  #----------------------------------------------------------------------------

  def measure_stop(self, section_name):
    if not DEBUG_PROFILING:
      return
      
    if not section_name in self.sections:
      return
  
    section_values = self.sections[section_name]
    
    section_values[0] += pygame.time.get_ticks()

  #----------------------------------------------------------------------------
     
  def end_of_frame(self):
    for section_name in self.sections:
      section_values = self.sections[section_name]
      section_values.pop()
      section_values.insert(0,0)

  #----------------------------------------------------------------------------
    
  def get_profile_string(self):
    result = "PROFILING INFO:"
    
    section_names = list(self.sections.keys())
    section_names.sort()
    
    for section_name in section_names:
      result += "\n" + section_name.ljust(25) + ": "
      
      section_values = self.sections[section_name]
      
      for i in range(len(section_values)):
        result += str(section_values[i]).ljust(5)
        
      result += " AVG: " + str(sum(section_values) / float(len(section_values)))
        
    return result

#==============================================================================

## Something that has a float position on the map.

class Positionable(object):

  #----------------------------------------------------------------------------

  def __init__(self):
    self.position = (0.0,0.0)

  #----------------------------------------------------------------------------

  def set_position(self,position):
    self.position = position

  #----------------------------------------------------------------------------

  def get_position(self):
    return self.position

  #----------------------------------------------------------------------------
  
  def get_neighbour_tile_coordinates(self):
    tile_coordinates = self.get_tile_position()
    
    top = (tile_coordinates[0],tile_coordinates[1] - 1)
    right = (tile_coordinates[0] + 1,tile_coordinates[1])
    down = (tile_coordinates[0],tile_coordinates[1] + 1)
    left = (tile_coordinates[0] - 1,tile_coordinates[1])  
    
    return (top,right,down,left)

  #----------------------------------------------------------------------------
  
  def get_tile_position(self):
    return Positionable.position_to_tile(self.position)

  #----------------------------------------------------------------------------
  
  ## Moves the object to center of tile (if not specified, objects current tile is used).
  
  def move_to_tile_center(self, tile_coordinates=None):
    if tile_coordinates != None:
      self.position = tile_coordinates
    
    self.position = (math.floor(self.position[0]) + 0.5,math.floor(self.position[1]) + 0.5)

  #----------------------------------------------------------------------------

  ## Converts float position to integer tile position.

  @staticmethod
  def position_to_tile(position):
    return (int(math.floor(position[0])),int(math.floor(position[1])))

  #----------------------------------------------------------------------------
  
  def is_near_tile_center(self):
    position_within_tile = (self.position[0] % 1,self.position[1] % 1)
    
    limit = 0.2
    limit2 = 1.0 - limit
    
    return (limit < position_within_tile[0] < limit2) and (limit < position_within_tile[1] < limit2)

#==============================================================================

class Player(Positionable):
  # possible player states
  STATE_IDLE_UP = 0
  STATE_IDLE_RIGHT = 1
  STATE_IDLE_DOWN = 2
  STATE_IDLE_LEFT = 3
  STATE_WALKING_UP = 4
  STATE_WALKING_RIGHT = 5
  STATE_WALKING_DOWN = 6
  STATE_WALKING_LEFT = 7
  STATE_IN_AIR = 8
  STATE_TELEPORTING = 9
  STATE_DEAD = 10

  DISEASE_NONE = 0
  DISEASE_DIARRHEA = 1
  DISEASE_SLOW = 2
  DISEASE_REVERSE_CONTROLS = 3
  DISEASE_SHORT_FLAME = 4
  DISEASE_SWITCH_PLAYERS = 5
  DISEASE_FAST_BOMB = 6
  DISEASE_NO_BOMB = 7
  DISEASE_EARTHQUAKE = 8

  INITIAL_SPEED = 3
  SLOW_SPEED = 1.5
  MAX_SPEED = 10
  SPEEDUP_VALUE = 1
  DISEASE_TIME = 20000
  
  JUMP_DURATION = 2000
  TELEPORT_DURATION = 1500

  #----------------------------------------------------------------------------

  def __init__(self):
    super(Player,self).__init__()
    self.number = 0                       ##< player's number
    self.team_number = 0                  ##< team number, determines player's color
    self.state = Player.STATE_IDLE_DOWN
    self.state_time = 0                   ##< how much time (in ms) has been spent in current state
    self.speed = Player.INITIAL_SPEED     ##< speed in tiles per second
    self.bombs_left = 1                   ##< how many more bombs the player can put at the time
    self.flame_length = 1                 ##< how long the flame is in tiles
    self.items = {}                       ##< which items and how many the player has, format: [item code]: count
    self.has_spring = False               ##< whether player's bombs have springs
    self.has_shoe = False                 ##< whether player has a kicking shoe
    self.disease_time_left = 0
    self.disease = Player.DISEASE_NONE
    self.has_multibomb = False
    self.has_boxing_glove = False
    self.has_throwing_glove = False
    self.boxing = False
    self.detonator_bombs_left = 0         ##< what number of following bombs will have detonators
    self.detonator_bombs = []             ##< references to bombs to be detonated
    self.wait_for_special_release = False ##< helper used to wait for special key release
    self.wait_for_bomb_release = False
    self.throwing_time_left = 0           ##< for how longer (in ms) the player will be in a state of throwing (only for visuals)
    self.state_backup = Player.STATE_IDLE_UP    ##< used to restore previous state, for example after jump
    self.jumping_to = (0,0)               ##< coordinates of a tile the player is jumping to
    self.teleporting_to = (0,0)
    self.wait_for_tile_transition = False ##< used to stop the destination teleport from teleporting the player back immediatelly
    self.invincible = False               ##< can be used to make the player immortal
    self.info_board_update_needed = True
    self.kills = 0
    self.wins = 0
  
    self.items[GameMap.ITEM_BOMB] = 1
    self.items[GameMap.ITEM_FLAME] = 1

  #----------------------------------------------------------------------------
    
  def get_kills(self):
    return self.kills

  #----------------------------------------------------------------------------
    
  def set_kills(self, kills):
    self.kills = kills
    self.info_board_update_needed = True

  #----------------------------------------------------------------------------
    
  def get_wins(self):
    return self.wins

  #----------------------------------------------------------------------------    

  def set_wins(self, wins):
    self.wins = wins
    self.info_board_update_needed = True

  #----------------------------------------------------------------------------
    
  def info_board_needs_update(self):
    if self.info_board_update_needed:
      self.info_board_update_needed = False
      return True
    
    return False

  #----------------------------------------------------------------------------
  
  ## Makes the player not react to bomb key immediatelly, but only after it
  #  has been released and pressed again.
  
  def wait_for_bomb_action_release(self):
    self.wait_for_bomb_release = True

  #----------------------------------------------------------------------------
    
  ## Makes the player not react to special key immediatelly, but only after it
  #  has been released and pressed again.
  
  def wait_for_special_action_release(self):
    self.wait_for_special_release = True

  #----------------------------------------------------------------------------
    
  def is_walking(self):
    return self.state in [Player.STATE_WALKING_UP,Player.STATE_WALKING_RIGHT,Player.STATE_WALKING_DOWN,Player.STATE_WALKING_LEFT]

  #----------------------------------------------------------------------------
    
  def is_boxing(self):
    return self.boxing

  ## Checks if there are any bombs waiting to be detonated with detonator by
  #  the player.

  #----------------------------------------------------------------------------

  def detonator_is_active(self):
    return len(self.detonator_bombs) > 0

  #----------------------------------------------------------------------------

  def kill(self, game_map):
    if self.invincible:
      return
    
    self.info_board_update_needed = True
    
    self.state = Player.STATE_DEAD
    game_map.add_sound_event(SoundPlayer.SOUND_EVENT_DEATH)
    
    random_animation = random.choice((
      Renderer.ANIMATION_EVENT_DIE,
      Renderer.ANIMATION_EVENT_EXPLOSION,
      Renderer.ANIMATION_EVENT_RIP,
      Renderer.ANIMATION_EVENT_SKELETION))
    
    game_map.add_animation_event(random_animation,Renderer.map_position_to_pixel_position(self.position,(0,-15)))
    game_map.give_away_items(self.get_items())

  #----------------------------------------------------------------------------

  def is_enemy(self, another_player):
    return self.team_number != another_player.get_team_number()

  #----------------------------------------------------------------------------

  ## Returns a number that says which way the player is facing (0 - up, 1 - right,
  #  2 - down, 3 - left).

  def get_direction_number(self):
    if self.state in [Player.STATE_IDLE_UP, Player.STATE_WALKING_UP]:
      return 0
    elif self.state in [Player.STATE_IDLE_RIGHT, Player.STATE_WALKING_RIGHT]:
      return 1
    elif self.state in [Player.STATE_IDLE_DOWN, Player.STATE_WALKING_DOWN]:
      return 2
    else:
      return 3

  #----------------------------------------------------------------------------
    
  def is_dead(self):
    return self.state == Player.STATE_DEAD

  #----------------------------------------------------------------------------

  ## Returns a number of bomb the player can currently lay with multibomb (if
  #   the player doesn't have multibomb, either 1 or 0 will be returned).

  def get_multibomb_count(self):
    if not self.has_multibomb:
      return 1 if self.bombs_left > 0 else 0
    
    return self.bombs_left

  #----------------------------------------------------------------------------

  ## Initialises the teleporting of the player with teleport they are standing on (if they're
  #   not standing on a teleport, nothing happens).

  def teleport(self, game_map):
    if self.wait_for_tile_transition:
      return
    
    current_tile = self.get_tile_position()
    destination_coordinates = game_map.get_tile_at(current_tile).destination_teleport
    
    if destination_coordinates == None:
      return
    
    game_map.add_sound_event(SoundPlayer.SOUND_EVENT_TELEPORT)
    
    self.move_to_tile_center()
    self.teleporting_to = destination_coordinates
    
    self.state_backup = self.state
    self.state = Player.STATE_TELEPORTING
    self.state_time = 0
    self.wait_for_tile_transition = True

  #----------------------------------------------------------------------------

  def get_items(self):
    result = []
    
    for item in self.items:
      result += [item for i in range(self.items[item])]
        
    return result

  #----------------------------------------------------------------------------

  def send_to_air(self, game_map):
    if self.state == Player.STATE_IN_AIR:
      return
    
    game_map.add_sound_event(SoundPlayer.SOUND_EVENT_TRAMPOLINE)
    
    self.state_backup = self.state
    self.state = Player.STATE_IN_AIR
    self.jumping_from = self.get_tile_position()
    
    landing_tiles = []             # potential tiles to land on
    
    # find a landing tile
    
    for y in range (self.jumping_from[1] - 3,self.jumping_from[1] + 4):
      for x in range (self.jumping_from[0] - 3,self.jumping_from[0] + 4):
        tile = game_map.get_tile_at((x,y))
        
        if tile != None and game_map.tile_is_walkable((x,y)) and tile.special_object == None:
          landing_tiles.append((x,y))
    
    if len(landing_tiles) == 0:    # this should practically not happen
      self.jumping_to = (self.jumping_from[0],self.jumping_from[1] + 1)
    else:
      self.jumping_to = random.choice(landing_tiles)
    
    self.state_time = 0

  #----------------------------------------------------------------------------

  def get_state_time(self):
    return self.state_time

  #----------------------------------------------------------------------------

  def get_teleport_destination(self):
    return self.teleporting_to

  #----------------------------------------------------------------------------

  def get_jump_destination(self):
    return self.jumping_to

  #----------------------------------------------------------------------------

  def is_teleporting(self):
    return self.state == Player.STATE_TELEPORTING

  #----------------------------------------------------------------------------

  def is_in_air(self):
    return self.state == Player.STATE_IN_AIR

  #----------------------------------------------------------------------------

  def is_throwing(self):
    return self.throwing_time_left > 0

  #----------------------------------------------------------------------------

  def can_box(self):
    return self.has_boxing_glove

  #----------------------------------------------------------------------------

  def can_throw(self):
    return self.has_throwing_glove

  #----------------------------------------------------------------------------

  def get_item_count(self, item):
    if not item in self.items:
      return 0
    
    return self.items[item]

  #----------------------------------------------------------------------------

  ## Gives player an item with given code (see GameMap class constants). game_map
  #  is needed so that sounds can be made on item pickup - if no map is provided,
  #  no sounds will be generated.

  def give_item(self, item, game_map=None):
    self.items[item] = 1 if not item in self.items else self.items[item] + 1
      
    self.info_board_update_needed = True
      
    if item == GameMap.ITEM_RANDOM:
      item = random.choice((
        GameMap.ITEM_BOMB,
        GameMap.ITEM_FLAME,
        GameMap.ITEM_SUPERFLAME,
        GameMap.ITEM_MULTIBOMB,
        GameMap.ITEM_SPRING,
        GameMap.ITEM_SHOE,
        GameMap.ITEM_SPEEDUP,
        GameMap.ITEM_DISEASE,
        GameMap.ITEM_BOXING_GLOVE,
        GameMap.ITEM_DETONATOR,
        GameMap.ITEM_THROWING_GLOVE
        ))
      
    sound_to_make = SoundPlayer.SOUND_EVENT_CLICK
      
    if item == GameMap.ITEM_BOMB:
      self.bombs_left += 1
    elif item == GameMap.ITEM_FLAME:
      self.flame_length += 1
    elif item == GameMap.ITEM_SUPERFLAME:
      self.flame_length = max(GameMap.MAP_WIDTH,GameMap.MAP_HEIGHT)
    elif item == GameMap.ITEM_MULTIBOMB:
      self.has_multibomb = True
    elif item == GameMap.ITEM_DETONATOR:
      self.detonator_bombs_left = 3      
    elif item == GameMap.ITEM_SPRING:
      self.has_spring = True
      sound_to_make = SoundPlayer.SOUND_EVENT_SPRING
    elif item == GameMap.ITEM_SPEEDUP:
      self.speed = min(self.speed + Player.SPEEDUP_VALUE,Player.MAX_SPEED)
    elif item == GameMap.ITEM_SHOE:
      self.has_shoe = True
    elif item == GameMap.ITEM_BOXING_GLOVE:
      self.has_boxing_glove = True
    elif item == GameMap.ITEM_THROWING_GLOVE:
      self.has_throwing_glove = True
    elif item == GameMap.ITEM_DISEASE:
      chosen_disease = random.choice([
        (Player.DISEASE_SHORT_FLAME,SoundPlayer.SOUND_EVENT_DISEASE),     
        (Player.DISEASE_SLOW,SoundPlayer.SOUND_EVENT_SLOW),
        (Player.DISEASE_DIARRHEA,SoundPlayer.SOUND_EVENT_DIARRHEA),
        (Player.DISEASE_FAST_BOMB,SoundPlayer.SOUND_EVENT_DISEASE),
        (Player.DISEASE_REVERSE_CONTROLS,SoundPlayer.SOUND_EVENT_DISEASE),
        (Player.DISEASE_SWITCH_PLAYERS,SoundPlayer.SOUND_EVENT_DISEASE),
        (Player.DISEASE_NO_BOMB,SoundPlayer.SOUND_EVENT_DISEASE),
        (Player.DISEASE_EARTHQUAKE,SoundPlayer.SOUND_EVENT_EARTHQUAKE)
        ])
      
      if chosen_disease[0] == Player.DISEASE_SWITCH_PLAYERS:
        if game_map != None:
          players = filter(lambda p: not p.is_dead(), game_map.get_players())
          
          player_to_switch = self
          
          if len(players) > 1:     # should always be true
            while player_to_switch == self:
              player_to_switch = random.choice(players)
          
          my_position = self.get_position()
          self.set_position(player_to_switch.get_position())
          player_to_switch.set_position(my_position)
      elif chosen_disease[0] == Player.DISEASE_EARTHQUAKE:
        if game_map != None:
          game_map.start_earthquake()
      else:
        self.disease = chosen_disease[0]
        self.disease_time_left = Player.DISEASE_TIME
    
      sound_to_make = chosen_disease[1]
    
    if game_map != None and sound_to_make != None:
      game_map.add_sound_event(sound_to_make)

  #----------------------------------------------------------------------------
    
  def lay_bomb(self, game_map, tile_coordinates=None):  
    new_bomb = Bomb(self)
    
    if tile_coordinates != None:
      new_bomb.set_position(tile_coordinates)
      new_bomb.move_to_tile_center()
    
    game_map.add_bomb(new_bomb)
    game_map.add_sound_event(SoundPlayer.SOUND_EVENT_BOMB_PUT)
    self.bombs_left -= 1
      
    if self.disease == Player.DISEASE_SHORT_FLAME:
      new_bomb.flame_length = 1
    elif self.disease == Player.DISEASE_FAST_BOMB:
      new_bomb.explodes_in = Bomb.EXPLODES_IN_QUICK
      
    if self.detonator_bombs_left > 0:
      new_bomb.detonator_time = Bomb.DETONATOR_EXPIRATION_TIME
      self.detonator_bombs.append(new_bomb)
      self.detonator_bombs_left -= 1

  #----------------------------------------------------------------------------
    
  def get_bombs_left(self):
    return self.bombs_left

  #----------------------------------------------------------------------------
    
  def has_kicking_shoe(self):
    return self.has_shoe

  #----------------------------------------------------------------------------
      
  def get_disease(self):
    return self.disease

  #----------------------------------------------------------------------------
  
  def get_disease_time(self):
    return self.disease_time_left

  #----------------------------------------------------------------------------
  
  def set_disease(self, disease, time_left):
    self.disease = disease
    self.disease_time_left = time_left

  #----------------------------------------------------------------------------
      
  def bombs_have_spring(self):
    return self.has_spring

  #----------------------------------------------------------------------------
      
  ## Says how many of a given item the player has.
      
  def how_many_items(self, item):
    if not item in self.items:
      return 0
    
    return self.items[item]

  #----------------------------------------------------------------------------
    
  def set_number(self, number):
    self.number = number

  #----------------------------------------------------------------------------
    
  def set_team_number(self, number):
    self.team_number = number

  #----------------------------------------------------------------------------

  ## Must be called when this player's bomb explodes so that their bomb limit is increased again.

  def bomb_exploded(self):
    self.bombs_left += 1

  #----------------------------------------------------------------------------

  def get_number(self):
    return self.number

  #----------------------------------------------------------------------------
  
  def get_team_number(self):
    return self.team_number

  #----------------------------------------------------------------------------
  
  def get_state(self):
    return self.state

  #----------------------------------------------------------------------------

  def get_state_time(self):
    return self.state_time

  #----------------------------------------------------------------------------

  def get_flame_length(self):
    return self.flame_length

  #----------------------------------------------------------------------------

  ## Gets a direction vector (x and y: 0, 1 or -1) depending on where the player is facing.

  def get_direction_vector(self):
    if self.state in [Player.STATE_WALKING_UP, Player.STATE_IDLE_UP]:
      return (0,-1)
    elif self.state in [Player.STATE_WALKING_RIGHT, Player.STATE_IDLE_RIGHT]:
      return (1,0)
    elif self.state in [Player.STATE_WALKING_DOWN, Player.STATE_IDLE_DOWN]:
      return (0,1)
    else:              # left
      return (-1,0)

  #----------------------------------------------------------------------------

  def get_forward_tile_position(self):
    direction_vector = self.get_direction_vector()
    position = self.get_tile_position()
    return (position[0] + direction_vector[0],position[1] + direction_vector[1])

  #----------------------------------------------------------------------------

  def __manage_input_actions(self, input_actions, game_map, distance_to_travel):
    moved = False         # to allow movement along only one axis at a time
    detonator_triggered = False
    special_was_pressed = False
    bomb_was_pressed = False

    for item in input_actions:
      if item[0] != self.number:
        continue                           # not an action for this player
      
      input_action = item[1]

      if self.disease == Player.DISEASE_REVERSE_CONTROLS:
        input_action = PlayerKeyMaps.get_opposite_action(input_action)
          
      if not moved:
        if input_action == PlayerKeyMaps.ACTION_UP:
          self.position[1] -= distance_to_travel
          self.state = Player.STATE_WALKING_UP
          moved = True
        elif input_action == PlayerKeyMaps.ACTION_DOWN:
          self.position[1] += distance_to_travel
          self.state = Player.STATE_WALKING_DOWN
          moved = True
        elif input_action == PlayerKeyMaps.ACTION_RIGHT:
          self.position[0] += distance_to_travel
          self.state = Player.STATE_WALKING_RIGHT
          moved = True
        elif input_action == PlayerKeyMaps.ACTION_LEFT:
          self.position[0] -= distance_to_travel
          self.state = Player.STATE_WALKING_LEFT
          moved = True
    
      if input_action == PlayerKeyMaps.ACTION_BOMB:
        bomb_was_pressed = True
        
        if not self.wait_for_bomb_release and self.bombs_left >= 1 and not game_map.tile_has_bomb(self.position) and not self.disease == Player.DISEASE_NO_BOMB:
          self.putting_bomb = True
    
      if input_action == PlayerKeyMaps.ACTION_BOMB_DOUBLE:  # check multibomb
        if self.has_throwing_glove:
          self.throwing = True
        elif self.has_multibomb: 
          self.putting_multibomb = True

      if input_action == PlayerKeyMaps.ACTION_SPECIAL:
        special_was_pressed = True
        
        if not self.wait_for_special_release:       
          while len(self.detonator_bombs) != 0:       # find a bomb to ddetonate (some may have exploded by themselves already)
            self.info_board_update_needed = True
            
            bomb_to_check = self.detonator_bombs.pop()
          
            if bomb_to_check.has_detonator() and not bomb_to_check.has_exploded and bomb_to_check.movement != Bomb.BOMB_FLYING:
              game_map.bomb_explodes(bomb_to_check)
              detonator_triggered = True
              self.wait_for_special_release = True    # to not detonate other bombs until the key is released and pressed again
              break
            
          if not detonator_triggered and self.has_boxing_glove:
            self.boxing = True
      
    if moved:
      game_map.add_sound_event(SoundPlayer.SOUND_EVENT_WALK)

    if not special_was_pressed:
      self.wait_for_special_release = False
      
    if not bomb_was_pressed:
      self.wait_for_bomb_release = False

  #----------------------------------------------------------------------------

  def __manage_kick_box(self, game_map, collision_happened):    
    if collision_happened: 
      bomb_movement = Bomb.BOMB_NO_MOVEMENT
    
      bomb_movement = {
        Player.STATE_WALKING_UP:    Bomb.BOMB_ROLLING_UP,
        Player.STATE_WALKING_RIGHT: Bomb.BOMB_ROLLING_RIGHT,
        Player.STATE_WALKING_DOWN:  Bomb.BOMB_ROLLING_DOWN,
        Player.STATE_WALKING_LEFT:  Bomb.BOMB_ROLLING_LEFT
        }[self.state]  

      direction_vector = self.get_direction_vector()
      forward_tile = self.get_forward_tile_position()

      if (self.has_shoe or self.has_boxing_glove) and game_map.tile_has_bomb(forward_tile):
          # kick or box happens
          bomb_hit = game_map.bomb_on_tile(forward_tile)
          
          if self.boxing:
            destination_tile = (forward_tile[0] + direction_vector[0] * 3,forward_tile[1] + direction_vector[1] * 3)           
            bomb_hit.send_flying(destination_tile)
            game_map.add_sound_event(SoundPlayer.SOUND_EVENT_KICK)
          elif self.has_shoe:
            # align the bomb in case of kicking an already moving bomb
            bomb_position = bomb_hit.get_position()
          
            if bomb_movement == Bomb.BOMB_ROLLING_LEFT or bomb_movement == Bomb.BOMB_ROLLING_RIGHT:
              bomb_hit.set_position((bomb_position[0],math.floor(bomb_position[1]) + 0.5))
            else:
              bomb_hit.set_position((math.floor(bomb_position[0]) + 0.5,bomb_position[1]))
             
            bomb_hit.movement = bomb_movement
            game_map.add_sound_event(SoundPlayer.SOUND_EVENT_KICK)
 
  #----------------------------------------------------------------------------

  def __resolve_collisions(self, game_map, distance_to_travel, previous_position):
    collision_type = game_map.get_position_collision_type(self.position)
    collision_happened = False

    if collision_type == GameMap.COLLISION_TOTAL:
      self.position = previous_position
      collision_happened = True
    else:
      helper_mapping = {
          GameMap.COLLISION_BORDER_UP:    (Player.STATE_WALKING_UP,    [Player.STATE_WALKING_LEFT, Player.STATE_WALKING_RIGHT], (0,distance_to_travel)),
          GameMap.COLLISION_BORDER_DOWN:  (Player.STATE_WALKING_DOWN,  [Player.STATE_WALKING_LEFT, Player.STATE_WALKING_RIGHT], (0,-1 * distance_to_travel)),
          GameMap.COLLISION_BORDER_RIGHT: (Player.STATE_WALKING_RIGHT, [Player.STATE_WALKING_UP, Player.STATE_WALKING_DOWN],    (- 1 * distance_to_travel,0)),
          GameMap.COLLISION_BORDER_LEFT:  (Player.STATE_WALKING_LEFT,  [Player.STATE_WALKING_UP, Player.STATE_WALKING_DOWN],    (distance_to_travel,0))
        }

      if collision_type in helper_mapping:
        helper_values = helper_mapping[collision_type]
        
        if self.state == helper_values[0]:           # walking against the border won't allow player to pass
          self.position = previous_position
          collision_happened = True
        elif self.state in helper_values[1]:         # walking along the border will shift the player sideways
          self.position[0] += helper_values[2][0]
          self.position[1] += helper_values[2][1]

    return collision_happened

  #----------------------------------------------------------------------------

  ## Sets the state and other attributes like position etc. of this player accoording to a list of input action (returned by PlayerKeyMaps.get_current_actions()).

  def react_to_inputs(self, input_actions, dt, game_map):
    if self.state == Player.STATE_DEAD or game_map.get_state() == GameMap.STATE_WAITING_TO_PLAY:
      return
    
    if self.state in [Player.STATE_IN_AIR,Player.STATE_TELEPORTING]:
      self.state_time += dt

      if self.state_time >= (Player.JUMP_DURATION if self.state == Player.STATE_IN_AIR else Player.TELEPORT_DURATION):
        self.state = self.state_backup
        self.state_time = 0
        self.jumping_to = None
        self.teleporting_to = None
      else:
        return 

    current_speed = self.speed if self.disease != Player.DISEASE_SLOW else Player.SLOW_SPEED
    
    distance_to_travel = dt / 1000.0 * current_speed
    
    self.throwing_time_left = max(0,self.throwing_time_left - dt)

    self.position = list(self.position)    # in case position was tuple

    old_state = self.state
 
    if self.state in (Player.STATE_WALKING_UP,Player.STATE_IDLE_UP):
      self.state = Player.STATE_IDLE_UP
    elif self.state in (Player.STATE_WALKING_RIGHT,Player.STATE_IDLE_RIGHT):
      self.state = Player.STATE_IDLE_RIGHT
    elif self.state in (Player.STATE_WALKING_DOWN,Player.STATE_IDLE_DOWN):
      self.state = Player.STATE_IDLE_DOWN
    else:
      self.state = Player.STATE_IDLE_LEFT

    previous_position = copy.copy(self.position)    # in case of collision we save the previous position

    self.putting_bomb = False
    self.putting_multibomb = False
    self.throwing = False
    self.boxing = False
    
    if self.disease == Player.DISEASE_DIARRHEA:
      input_actions.append((self.number,PlayerKeyMaps.ACTION_BOMB))  # inject bomb put event

    self.__manage_input_actions(input_actions, game_map, distance_to_travel)
      
    # resolve collisions:
    check_collisions = True

    current_tile = self.get_tile_position()  
    previous_tile = Positionable.position_to_tile(previous_position)
    transitioning_tiles = current_tile != previous_tile
    
    if transitioning_tiles:
      self.wait_for_tile_transition = False
    
    if game_map.tile_has_bomb(current_tile):   # first check if the player is standing on a bomb
      if not transitioning_tiles:              
        check_collisions = False               # no transition between tiles -> let the player move

    collision_happened = False

    if check_collisions:
      collision_happened = self.__resolve_collisions(game_map, distance_to_travel, previous_position)
    
    if self.putting_bomb and not game_map.tile_has_bomb(self.get_tile_position()) and not game_map.tile_has_teleport(self.position):
      self.lay_bomb(game_map)
    
    # check if bomb kick or box happens
    self.__manage_kick_box(game_map, collision_happened)
    
    if self.throwing:
      bomb_thrown = game_map.bomb_on_tile(current_tile)
      game_map.add_sound_event(SoundPlayer.SOUND_EVENT_THROW)
    
      if bomb_thrown != None:
        forward_tile = self.get_forward_tile_position()
        direction_vector = self.get_direction_vector()
        destination_tile = (forward_tile[0] + direction_vector[0] * 3,forward_tile[1] + direction_vector[1] * 3)
        bomb_thrown.send_flying(destination_tile)
        self.wait_for_bomb_release = True
        self.throwing_time_left = 200
    
    elif self.putting_multibomb:                     # put multibomb
      current_tile = self.get_tile_position()
      
      if self.state in (Player.STATE_WALKING_UP,Player.STATE_IDLE_UP):
        tile_increment = (0,-1)
      elif self.state in (Player.STATE_WALKING_RIGHT,Player.STATE_IDLE_RIGHT):
        tile_increment = (1,0)
      elif self.state in (Player.STATE_WALKING_DOWN,Player.STATE_IDLE_DOWN):
        tile_increment = (0,1)
      else:     # left
        tile_increment = (-1,0)
  
      i = 1
  
      while self.bombs_left > 0:
        next_tile = (current_tile[0] + i * tile_increment[0],current_tile[1] + i * tile_increment[1])
        if not game_map.tile_is_walkable(next_tile) or game_map.tile_has_player(next_tile):
          break
        
        self.lay_bomb(game_map,next_tile)
        i += 1
  
    # check disease
    
    if self.disease != Player.DISEASE_NONE:
      self.disease_time_left = max(0,self.disease_time_left - dt)
      
      if self.disease_time_left == 0:
        self.disease = Player.DISEASE_NONE
        self.info_board_update_needed = True
    
    if old_state == self.state:
      self.state_time += dt
    else:
      self.state_time = 0                 # reset the state time

#==============================================================================

## Info about a bomb's flight (when boxed or thrown).

class BombFlightInfo(object):

  #----------------------------------------------------------------------------

  def __init__(self):
    self.total_distance_to_travel = 0     ##< in tiles
    self.distance_travelled = 0           ##< in tiles
    self.direction = (0,0)                ##< in which direction the bomb is flying, 0, 1 or -1

#==============================================================================

class Bomb(Positionable):
  ROLLING_SPEED = 4
  FLYING_SPEED = 5
  
  BOMB_ROLLING_UP = 0
  BOMB_ROLLING_RIGHT = 1
  BOMB_ROLLING_DOWN = 2
  BOMB_ROLLING_LEFT = 3
  BOMB_FLYING = 4
  BOMB_NO_MOVEMENT = 5
  
  DETONATOR_EXPIRATION_TIME = 20000

  BOMB_EXPLODES_IN = 3000
  EXPLODES_IN_QUICK = 800     ##< for when the player has quick explosion disease

  #----------------------------------------------------------------------------
  
  def __init__(self, player):
    super(Bomb,self).__init__()
    self.time_of_existence = 0                       ##< for how long (in ms) the bomb has existed
    self.flame_length = player.get_flame_length()    ##< how far the flame will go
    self.player = player                             ##< to which player the bomb belongs
    self.explodes_in = Bomb.BOMB_EXPLODES_IN         ##< time in ms in which the bomb explodes from the time it was created (detonator_time must expire before this starts counting down)
    self.detonator_time = 0                          ##< if > 0, the bomb has a detonator on it, after expiring it becomes a regular bomb
    self.set_position(player.get_position())
    self.move_to_tile_center()
    self.has_spring = player.bombs_have_spring()
    self.movement = Bomb.BOMB_NO_MOVEMENT
    self.has_exploded = False
    self.flight_info = BombFlightInfo()

  #----------------------------------------------------------------------------
      
  ## Sends the bomb flying from its currents position to given tile (can be outside the map boundaries, will fly over the border from the other side).
    
  def send_flying(self, destination_tile_coords):
    self.movement = Bomb.BOMB_FLYING

    current_tile = self.get_tile_position()
    self.flight_info.distance_travelled = 0

    axis = 1 if current_tile[0] == destination_tile_coords[0] else 0

    self.flight_info.total_distance_to_travel = abs(current_tile[axis] - destination_tile_coords[axis])
    self.flight_info.direction = [0,0]
    self.flight_info.direction[axis] = -1 if current_tile[axis] > destination_tile_coords[axis] else 1
    self.flight_info.direction = tuple(self.flight_info.direction)

    destination_tile_coords = (destination_tile_coords[0] % GameMap.MAP_WIDTH,destination_tile_coords[1] % GameMap.MAP_HEIGHT)
    self.move_to_tile_center(destination_tile_coords)

  #----------------------------------------------------------------------------

  def has_detonator(self):
    return self.detonator_time > 0 and self.time_of_existence < Bomb.DETONATOR_EXPIRATION_TIME

  #----------------------------------------------------------------------------

  ## Returns a time until the bomb explodes by itself.

  def time_until_explosion(self):
    return self.explodes_in + self.detonator_time - self.time_of_existence

  #----------------------------------------------------------------------------

  def explodes(self):
    if not self.has_exploded:
      self.player.bomb_exploded()
      self.has_exploded = True

#==============================================================================

## Represents a flame coming off of an exploding bomb.

class Flame(object):

  #----------------------------------------------------------------------------

  def __init__(self):
    self.player = None               ##< reference to player to which the exploding bomb belonged
    self.time_to_burnout = 1000      ##< time in ms till the flame disappears
    self.direction = "all"           ##< string representation of the flame direction

#==============================================================================

class MapTile(object):
  TILE_FLOOR = 0                     ##< walkable map tile
  TILE_BLOCK = 1                     ##< non-walkable but destroyable map tile
  TILE_WALL = 2                      ##< non-walkable and non-destroyable map tile
  
  SPECIAL_OBJECT_TRAMPOLINE = 0
  SPECIAL_OBJECT_TELEPORT_A = 1
  SPECIAL_OBJECT_TELEPORT_B = 2
  SPECIAL_OBJECT_ARROW_UP = 3
  SPECIAL_OBJECT_ARROW_RIGHT = 4
  SPECIAL_OBJECT_ARROW_DOWN = 5
  SPECIAL_OBJECT_ARROW_LEFT = 6
  SPECIAL_OBJECT_LAVA = 7

  #----------------------------------------------------------------------------

  def __init__(self, coordinates):
    self.kind = MapTile.TILE_FLOOR
    self.flames = []
    self.coordinates = coordinates
    self.to_be_destroyed = False     ##< Flag that marks the tile to be destroyed after the flames go out.
    self.item = None                 ##< Item that's present on the file
    self.special_object = None       ##< special object present on the tile, like trampoline or teleport
    self.destination_teleport = None ##< in case of special_object equal to SPECIAL_OBJECT_TELEPORT_A or SPECIAL_OBJECT_TELEPORT_B holds the destionation teleport tile coordinates

  def shouldnt_walk(self):
    return self.kind in [MapTile.TILE_WALL,MapTile.TILE_BLOCK] or len(self.flames) >= 1 or self.special_object == MapTile.SPECIAL_OBJECT_LAVA

#==============================================================================

## Holds and manipulates the map data including the players, bombs etc.

class GameMap(object):
  MAP_WIDTH = 15
  MAP_HEIGHT = 11
  WALL_MARGIN_HORIZONTAL = 0.2
  WALL_MARGIN_VERTICAL = 0.4
  
  COLLISION_BORDER_UP = 0       ##< position is inside upper border with non-walkable tile
  COLLISION_BORDER_RIGHT = 1    ##< position is inside right border with non-walkable tile
  COLLISION_BORDER_DOWN = 2     ##< position is inside bottom border with non-walkable tile
  COLLISION_BORDER_LEFT = 3     ##< position is inside left border with non-walkable tile
  COLLISION_TOTAL = 4           ##< position is inside non-walkable tile
  COLLISION_NONE = 5            ##< no collision

  ITEM_BOMB = 0
  ITEM_FLAME = 1
  ITEM_SUPERFLAME = 2
  ITEM_SPEEDUP = 3
  ITEM_DISEASE = 4
  ITEM_RANDOM = 5
  ITEM_SPRING = 6
  ITEM_SHOE = 7
  ITEM_MULTIBOMB = 8
  ITEM_BOXING_GLOVE = 9
  ITEM_DETONATOR = 10
  ITEM_THROWING_GLOVE = 11
  
  SAFE_DANGER_VALUE = 5000     ##< time in ms, used in danger map to indicate safe tile
  
  GIVE_AWAY_DELAY = 3000       ##< after how many ms the items of dead players will be given away
  
  START_GAME_AFTER = 2500      ##< delay in ms before the game begins
  
  STATE_WAITING_TO_PLAY = 0    ##< players can't do anything yet
  STATE_PLAYING = 1            ##< game is being played
  STATE_FINISHING = 2          ##< game is over but the map is still being updated for a while after
  STATE_GAME_OVER = 3          ##< the game is definitely over and should no longer be updated
  
  EARTHQUAKE_DURATION = 10000

  #----------------------------------------------------------------------------
  
  ## Initialises a new map from map_data (string) and a PlaySetup object.

  def __init__(self, map_data, play_setup, game_number, max_games, all_items_cheat=False):
    # make the tiles array:
    self.danger_map_is_up_to_date = False                    # to regenerate danger map only when needed
    self.tiles = []
    self.starting_positions = [(0.0,0.0) for i in range(10)] # starting position for each player

    map_data = map_data.replace(" ","").replace("\n","")     # get rid of white characters

    string_split = map_data.split(";")

    self.environment_name = string_split[0]

    self.end_game_at = -1                          ##< time at which the map should go to STATE_GAME_OVER state
    self.start_game_at = GameMap.START_GAME_AFTER
    self.win_announced = False
    self.announce_win_at = -1
    self.state = GameMap.STATE_WAITING_TO_PLAY
    self.winner_team = -1                          ##< if map state is GameMap.STATE_GAME_OVER, this holds the winning team (-1 = draw)

    self.game_number = game_number
    self.max_games = max_games

    self.earthquake_time_left = 0

    self.time_from_start = 0                       ##< time in ms from the start of the map, the time increases with each update (so time spent in game menu is excluded)

    block_tiles = []

    line = -1
    column = 0
    
    teleport_a_tile = None       # helper variables used to pair teleports
    teleport_b_tile = None
    self.number_of_blocks = 0    ##< says how many block tiles there are currently on the map

    for i in range(len(string_split[3])):
      tile_character = string_split[3][i]

      if i % GameMap.MAP_WIDTH == 0: # add new row
        line += 1
        column = 0
        self.tiles.append([])

      tile = MapTile((column,line))

      if tile_character == "x":
        tile.kind = MapTile.TILE_BLOCK
        block_tiles.append(tile)
      elif tile_character == "#":
        tile.kind = MapTile.TILE_WALL
      elif tile_character in ("u","r","d","l","U","R","D","L"):
        if tile_character.islower():
          tile.kind = MapTile.TILE_FLOOR
        else:
          tile.kind = MapTile.TILE_BLOCK
        
        tile_character = tile_character.lower()
        
        if tile_character == "u":
          tile.special_object = MapTile.SPECIAL_OBJECT_ARROW_UP
        elif tile_character == "r":
          tile.special_object = MapTile.SPECIAL_OBJECT_ARROW_RIGHT
        elif tile_character == "d":
          tile.special_object = MapTile.SPECIAL_OBJECT_ARROW_DOWN
        else:
          tile.special_object = MapTile.SPECIAL_OBJECT_ARROW_LEFT
      else:
        tile.kind = MapTile.TILE_FLOOR
        
        if tile_character == "A":
          tile.special_object = MapTile.SPECIAL_OBJECT_TELEPORT_A
          
          if teleport_a_tile == None:
            teleport_a_tile = tile
          else:
            tile.destination_teleport = teleport_a_tile.coordinates
            teleport_a_tile.destination_teleport = tile.coordinates
        elif tile_character == "B":
          tile.special_object = MapTile.SPECIAL_OBJECT_TELEPORT_A
          
          if teleport_b_tile == None:
            teleport_b_tile = tile
          else:
            tile.destination_teleport = teleport_b_tile.coordinates
            teleport_b_tile.destination_teleport = tile.coordinates
        elif tile_character == "T":
          tile.special_object = MapTile.SPECIAL_OBJECT_TRAMPOLINE
        elif tile_character == "V":
          tile.special_object = MapTile.SPECIAL_OBJECT_LAVA
        
      if tile.kind == MapTile.TILE_BLOCK:
        self.number_of_blocks += 1
        
      self.tiles[-1].append(tile)

      if tile_character.isdigit():
        self.starting_positions[int(tile_character)] = (float(column),float(line))

      column += 1

    # place items under the block tiles:
    
    for i in range(len(string_split[2])):
      random_tile = random.choice(block_tiles)
      random_tile.item = self.letter_to_item(string_split[2][i])
      block_tiles.remove(random_tile)

    # init danger map:
    
    self.danger_map = [[GameMap.SAFE_DANGER_VALUE for i in range(GameMap.MAP_WIDTH)] for j in range(GameMap.MAP_HEIGHT)]  ##< 2D array of times in ms for each square that
       
    # initialise players:

    self.players = []                      ##< list of players in the game
    self.players_by_numbers = {}           ##< mapping of numbers to players
    self.players_by_numbers[-1] = None

    player_slots = play_setup.get_slots()

    for i in range(len(player_slots)):
      if player_slots[i] != None:
        new_player = Player()
        new_player.set_number(i)
        new_player.set_team_number(player_slots[i][1])
        new_player.move_to_tile_center(self.starting_positions[i])
        self.players.append(new_player)
        self.players_by_numbers[i] = new_player
      else:
        self.players_by_numbers[i] = None
        
    # give players starting items:
    
    start_items_string = string_split[1] if not all_items_cheat else "bbbbbFkxtsssssmp"
    
    self.player_starting_items = []
    
    for i in range(len(start_items_string)):
      for player in self.players:
        item_to_give = self.letter_to_item(start_items_string[i])
        
        player.give_item(item_to_give)
      
      self.player_starting_items.append(item_to_give)
        
    self.bombs = []                   ##< bombs on the map
    self.sound_events = []            ##< list of currently happening sound event (see SoundPlayer class)
    self.animation_events = []        ##< list of animation events, tuples in format (animation_event, coordinates)
    self.items_to_give_away = []      ##< list of tuples in format (time_of_giveaway, list_of_items)

    self.create_disease_cloud_at = 0  ##< at what time (in ms) the disease clouds should be released

  #----------------------------------------------------------------------------

  def get_starting_items(self):
    return self.player_starting_items

  #----------------------------------------------------------------------------

  def get_starting_positions(self):
    return self.starting_positions

  #----------------------------------------------------------------------------

  ## Returns a tuple (game number, max games).
 
  def get_game_number_info(self):
    return (self.game_number,self.max_games)

  #----------------------------------------------------------------------------

  def start_earthquake(self):
    self.earthquake_time_left = GameMap.EARTHQUAKE_DURATION

  #----------------------------------------------------------------------------

  def earthquake_is_active(self):
    return self.earthquake_time_left > 0

  #----------------------------------------------------------------------------

  def get_number_of_block_tiles(self):
    return self.number_of_blocks

  #----------------------------------------------------------------------------

  ## Efficiently (lazily) gets a danger value of given tile. Danger value says
  #  how much time in ms has will pass until there will be a fire at the tile.

  def get_danger_value(self, tile_coordinates):
    if not self.danger_map_is_up_to_date:
      self.update_danger_map()
      self.danger_map_is_up_to_date = True
    
    if not self.tile_is_withing_map(tile_coordinates):
      return 0       # never walk outside map
    
    return self.danger_map[tile_coordinates[1]][tile_coordinates[0]]

  #----------------------------------------------------------------------------
  
  def tile_has_lava(self, tile_coordinates):
    if not self.tile_is_withing_map(tile_coordinates):
      return False
    
    return self.tiles[tile_coordinates[1]][tile_coordinates[0]].special_object == MapTile.SPECIAL_OBJECT_LAVA

  #----------------------------------------------------------------------------
  
  ## Gives away a set of given items (typically after a player dies). The items
  #  are spread randomly on the map floor tiles after a while.
  
  def give_away_items(self, items):
    self.items_to_give_away.append((pygame.time.get_ticks() + GameMap.GIVE_AWAY_DELAY,items))

  #----------------------------------------------------------------------------
  
  def update_danger_map(self):
    # reset the map:
    self.danger_map = [map(lambda tile: 0 if tile.shouldnt_walk() else GameMap.SAFE_DANGER_VALUE, tile_row) for tile_row in self.tiles]

    for bomb in self.bombs:
      bomb_tile = bomb.get_tile_position()
      
      time_until_explosion = bomb.time_until_explosion()
      
      if bomb.has_detonator():           # detonator = bad
        time_until_explosion = 100
      
      self.danger_map[bomb_tile[1]][bomb_tile[0]] = min(self.danger_map[bomb_tile[1]][bomb_tile[0]],time_until_explosion)

                         # up                              right                            down                             left
      position         = [[bomb_tile[0],bomb_tile[1] - 1], [bomb_tile[0] + 1,bomb_tile[1]], [bomb_tile[0],bomb_tile[1] + 1], [bomb_tile[0] - 1,bomb_tile[1]]]
      flame_stop       = [False,                           False,                           False,                           False]
      tile_increment   = [(0,-1),                          (1,0),                           (0,1),                           (-1,0)]
    
      for i in range(bomb.flame_length):
        for direction in (0,1,2,3):
          if flame_stop[direction]:
            continue
        
          if not self.tile_is_walkable(position[direction]) or not self.tile_is_withing_map(position[direction]):
            flame_stop[direction] = True
            continue
          
          current_tile = position[direction]
          
          self.danger_map[current_tile[1]][current_tile[0]] = min(self.danger_map[current_tile[1]][current_tile[0]],time_until_explosion)
          position[direction][0] += tile_increment[direction][0] 
          position[direction][1] += tile_increment[direction][1]

  #----------------------------------------------------------------------------
          
  def add_sound_event(self, sound_event):
    self.sound_events.append(sound_event)

  #----------------------------------------------------------------------------
    
  def add_animation_event(self, animation_event, coordinates):    
    self.animation_events.append((animation_event,coordinates))

  #----------------------------------------------------------------------------
    
  def get_tile_at(self, tile_coordinates):
    if self.tile_is_withing_map(tile_coordinates):
      return self.tiles[tile_coordinates[1]][tile_coordinates[0]]
    
    return None

  #----------------------------------------------------------------------------
    
  def get_and_clear_sound_events(self):
    result = self.sound_events[:]             # copy of the list
    self.sound_events = []
    return result

  #----------------------------------------------------------------------------

  def get_and_clear_animation_events(self):
    result = self.animation_events[:]         # copy of the list
    self.animation_events = []
    return result

  #----------------------------------------------------------------------------

  ## Converts given letter (as in map encoding string) to item code (see class constants).
  
  def letter_to_item(self, letter):
    mapping = {
      "f": GameMap.ITEM_FLAME,
      "F": GameMap.ITEM_SUPERFLAME,
      "b": GameMap.ITEM_BOMB,
      "k": GameMap.ITEM_SHOE,
      "s": GameMap.ITEM_SPEEDUP,
      "p": GameMap.ITEM_SPRING,
      "m": GameMap.ITEM_MULTIBOMB,
      "d": GameMap.ITEM_DISEASE,
      "r": GameMap.ITEM_RANDOM,
      "x": GameMap.ITEM_BOXING_GLOVE,
      "e": GameMap.ITEM_DETONATOR,
      "t": GameMap.ITEM_THROWING_GLOVE
      }

    return mapping[letter] if letter in mapping else -1

  #----------------------------------------------------------------------------

  def tile_has_flame(self, tile_coordinates):
    if not self.tile_is_withing_map(tile_coordinates):
      return False     # coordinates outside the map
    
    return len(self.tiles[tile_coordinates[1]][tile_coordinates[0]].flames) >= 1

  #----------------------------------------------------------------------------

  def tile_has_teleport(self, tile_coordinates):
    tile_coordinates = Positionable.position_to_tile(tile_coordinates)
    
    if not self.tile_is_withing_map(tile_coordinates):
      return False     # coordinates outside the map
    
    return self.tiles[tile_coordinates[1]][tile_coordinates[0]].special_object in (MapTile.SPECIAL_OBJECT_TELEPORT_A,MapTile.SPECIAL_OBJECT_TELEPORT_B)

  #----------------------------------------------------------------------------

  def bomb_on_tile(self, tile_coordinates):
    bombs = self.bombs_on_tile(tile_coordinates)
    
    if len(bombs) > 0:
      return bombs[0]
    
    return None

  #----------------------------------------------------------------------------

  ## Checks if there is a bomb at given tile (coordinates may be float or int).

  def tile_has_bomb(self, tile_coordinates):
    return self.bomb_on_tile(tile_coordinates) != None

  #----------------------------------------------------------------------------

  def get_players_at_tile(self, tile_coordinates):
    result = []
    
    for player in self.players:
      player_tile_position = player.get_tile_position()

      if not player.is_dead() and not player.is_in_air() and player_tile_position[0] == tile_coordinates[0] and player_tile_position[1] == tile_coordinates[1]:
        result.append(player)
    
    return result

  #----------------------------------------------------------------------------

  def tile_has_player(self, tile_coordinates):
    return len(self.get_players_at_tile(tile_coordinates))

  #----------------------------------------------------------------------------

  ## Checks if given tile coordinates are within the map boundaries.

  def tile_is_withing_map(self, tile_coordinates):
    return tile_coordinates[0] >= 0 and tile_coordinates[1] >= 0 and tile_coordinates[0] <= GameMap.MAP_WIDTH - 1 and tile_coordinates[1] <= GameMap.MAP_HEIGHT - 1

  #----------------------------------------------------------------------------

  def tile_is_walkable(self, tile_coordinates):
    if not self.tile_is_withing_map(tile_coordinates):
      return False
    
    tile = self.tiles[tile_coordinates[1]][tile_coordinates[0]]
    return self.tile_is_withing_map(tile_coordinates) and (self.tiles[tile_coordinates[1]][tile_coordinates[0]].kind == MapTile.TILE_FLOOR or tile.to_be_destroyed) and not self.tile_has_bomb(tile_coordinates)

  #----------------------------------------------------------------------------

  ## Gets a collision type (see class constants) for given float position.

  def get_position_collision_type(self, position):
    tile_coordinates = Positionable.position_to_tile(position)
    
    if not self.tile_is_walkable(tile_coordinates):
      return GameMap.COLLISION_TOTAL
    
    position_within_tile = (position[0] % 1,position[1] % 1)
    
    if position_within_tile[1] < GameMap.WALL_MARGIN_HORIZONTAL:
      if not self.tile_is_walkable((tile_coordinates[0],tile_coordinates[1] - 1)):
        return GameMap.COLLISION_BORDER_UP
    elif position_within_tile[1] > 1.0 - GameMap.WALL_MARGIN_HORIZONTAL:
      if not self.tile_is_walkable((tile_coordinates[0],tile_coordinates[1] + 1)):
        return GameMap.COLLISION_BORDER_DOWN
      
    if position_within_tile[0] < GameMap.WALL_MARGIN_VERTICAL:
      if not self.tile_is_walkable((tile_coordinates[0] - 1,tile_coordinates[1])):
        return GameMap.COLLISION_BORDER_LEFT
    elif position_within_tile[0] > 1.0 - GameMap.WALL_MARGIN_VERTICAL:
      if not self.tile_is_walkable((tile_coordinates[0] + 1,tile_coordinates[1])):
        return GameMap.COLLISION_BORDER_RIGHT
    
    return GameMap.COLLISION_NONE

  #----------------------------------------------------------------------------

  def bombs_on_tile(self, tile_coordinates):
    result = []
    
    tile_coordinates = Positionable.position_to_tile(tile_coordinates)
    
    for bomb in self.bombs:
      bomb_tile_position = bomb.get_tile_position()

      if bomb.movement != Bomb.BOMB_FLYING and bomb_tile_position[0] == tile_coordinates[0] and bomb_tile_position[1] == tile_coordinates[1]:
        result.append(bomb)
      
    return result

  #----------------------------------------------------------------------------

  ## Gets time in ms spent in actual game from the start of the map.

  def get_map_time(self):
    return self.time_from_start

  #----------------------------------------------------------------------------

  ## Tells the map that given bomb is exploding, the map then creates
  #  flames from the bomb, the bomb is destroyed and players are informed.

  def bomb_explodes(self, bomb):
    self.add_sound_event(SoundPlayer.SOUND_EVENT_EXPLOSION)
    
    bomb_position = bomb.get_tile_position()
    
    new_flame = Flame()
    new_flame.player = bomb.player
    new_flame.direction = "all"
    
    self.tiles[bomb_position[1]][bomb_position[0]].flames.append(new_flame)
    
    # information relevant to flame spreading in each direction:
    
                     # up                    right                down                 left
    axis_position    = [bomb_position[1] - 1,bomb_position[0] + 1,bomb_position[1] + 1,bomb_position[0] - 1]
    flame_stop       = [False,               False,               False,               False]
    map_limit        = [0,                   GameMap.MAP_WIDTH - 1,   GameMap.MAP_HEIGHT - 1,  0]
    increment        = [-1,                  1,                   1,                   -1]
    goes_horizontaly = [False,               True,                False,               True]
    previous_flame   = [None,                None,                None,                None]
    
    # spread the flame in all 4 directions:

    for i in range(bomb.flame_length + 1):
      if i >= bomb.flame_length:
        flame_stop = [True, True, True, True]

      for direction in (0,1,2,3): # for each direction
        if flame_stop[direction]:  
          if previous_flame[direction] != None:   # flame stopped in previous iteration
            previous_flame[direction].direction = {0: "up", 1: "right", 2: "down", 3: "left"}[direction]
            previous_flame[direction] = None
        else:
          if ((increment[direction] == -1 and axis_position[direction] >= map_limit[direction]) or
            (increment[direction] == 1 and axis_position[direction] <= map_limit[direction])):
            # flame is inside the map here          
        
            if goes_horizontaly[direction]:
              tile_for_flame = self.tiles[bomb_position[1]][axis_position[direction]]
            else:
              tile_for_flame = self.tiles[axis_position[direction]][bomb_position[0]]
        
            if tile_for_flame.kind == MapTile.TILE_WALL:
              flame_stop[direction] = True
            else:
              new_flame2 = copy.copy(new_flame)
              new_flame2.direction = "horizontal" if goes_horizontaly[direction] else "vertical"
              tile_for_flame.flames.append(new_flame2)
            
              previous_flame[direction] = new_flame2
            
              if tile_for_flame.kind == MapTile.TILE_BLOCK:
                flame_stop[direction] = True
          else:
            flame_stop[direction] = True
          
        axis_position[direction] += increment[direction]
    
    bomb.explodes()
   
    if bomb in self.bombs:
      self.bombs.remove(bomb)

  #----------------------------------------------------------------------------

  def spread_items(self, items):
    possible_tiles = []
    
    for y in range(GameMap.MAP_HEIGHT):
      for x in range(GameMap.MAP_WIDTH):
        tile = self.tiles[y][x]
        
        if tile.kind == MapTile.TILE_FLOOR and tile.special_object == None and tile.item == None and not self.tile_has_player((x,y)):
          possible_tiles.append(tile)
          
    for item in items:
      if len(possible_tiles) == 0:
        break                              # no more tiles to place items on => end
      
      tile = random.choice(possible_tiles)
      tile.item = item
      
      possible_tiles.remove(tile)

  #----------------------------------------------------------------------------

  def __update_bombs(self, dt):
    i = 0

    while i < len(self.bombs):    # update all bombs
      bomb = self.bombs[i]
      
      if bomb.has_exploded:       # just in case
        self.bombs.remove(bomb)
        continue
      
      bomb.time_of_existence += dt
            
      bomb_position = bomb.get_position()
      bomb_tile = bomb.get_tile_position()

      if bomb.movement != Bomb.BOMB_FLYING and bomb.time_of_existence > bomb.explodes_in + bomb.detonator_time: # bomb explodes
        self.bomb_explodes(bomb)
        continue
      elif bomb.movement != Bomb.BOMB_FLYING and self.tiles[bomb_tile[1]][bomb_tile[0]].special_object == MapTile.SPECIAL_OBJECT_LAVA and bomb.is_near_tile_center():
        self.bomb_explodes(bomb)
        continue
      else:
        i += 1
      
      if bomb.movement != Bomb.BOMB_NO_MOVEMENT:
        if bomb.movement == Bomb.BOMB_FLYING:
          distance_to_travel = dt / 1000.0 * Bomb.FLYING_SPEED
          bomb.flight_info.distance_travelled += distance_to_travel
          
          if bomb.flight_info.distance_travelled >= bomb.flight_info.total_distance_to_travel:
            bomb_tile = bomb.get_tile_position()
            self.add_sound_event(SoundPlayer.SOUND_EVENT_BOMB_PUT)

            if not self.tile_is_walkable(bomb_tile) or self.tile_has_player(bomb_tile) or self.tile_has_teleport(bomb_tile):
              destination_tile = (bomb_tile[0] + bomb.flight_info.direction[0],bomb_tile[1] + bomb.flight_info.direction[1])
              bomb.send_flying(destination_tile)
            else:        # bomb lands
              bomb.movement = Bomb.BOMB_NO_MOVEMENT
              self.get_tile_at(bomb_tile).item = None        
        else:            # bomb rolling          
          if bomb.is_near_tile_center():
            object_at_tile = self.tiles[bomb_tile[1]][bomb_tile[0]].special_object
          
            redirected = False
          
            if object_at_tile == MapTile.SPECIAL_OBJECT_ARROW_UP and bomb.movement != Bomb.BOMB_ROLLING_UP:
              bomb.movement = Bomb.BOMB_ROLLING_UP
              bomb.set_position((bomb_tile[0] + 0.5,bomb_tile[1]))  # aline with x axis
              redirected = True
            elif object_at_tile == MapTile.SPECIAL_OBJECT_ARROW_RIGHT and bomb.movement != Bomb.BOMB_ROLLING_RIGHT:
              bomb.movement = Bomb.BOMB_ROLLING_RIGHT
              bomb.set_position((bomb_position[0],bomb_tile[1] + 0.5))
              redirected = True
            elif object_at_tile == MapTile.SPECIAL_OBJECT_ARROW_DOWN and bomb.movement != Bomb.BOMB_ROLLING_DOWN:
              bomb.movement = Bomb.BOMB_ROLLING_DOWN
              bomb.set_position((bomb_tile[0] + 0.5,bomb_position[1]))
              redirected = True
            elif object_at_tile == MapTile.SPECIAL_OBJECT_ARROW_LEFT and bomb.movement != Bomb.BOMB_ROLLING_LEFT:
              bomb.movement = Bomb.BOMB_ROLLING_LEFT
              bomb.set_position((bomb_position[0],bomb_tile[1] + 0.5))
              redirected = True
        
            if redirected:
              bomb_position = bomb.get_position()
              
          if self.tiles[bomb_tile[1]][bomb_tile[0]].item != None:   # rolling bomb destroys items
            self.tiles[bomb_tile[1]][bomb_tile[0]].item = None
        
          bomb_position_within_tile = (bomb_position[0] % 1,bomb_position[1] % 1) 
          check_collision = False
          forward_tile = None
          distance_to_travel = dt / 1000.0 * Bomb.ROLLING_SPEED
          
          helper_boundaries = (0.5,0.9)
          helper_boundaries2 = (1 - helper_boundaries[1],1 - helper_boundaries[0])
        
          opposite_direction = Bomb.BOMB_NO_MOVEMENT
          
          if bomb.movement == Bomb.BOMB_ROLLING_UP:
            bomb.set_position((bomb_position[0],bomb_position[1] - distance_to_travel))
            opposite_direction = Bomb.BOMB_ROLLING_DOWN
        
            if helper_boundaries2[0] < bomb_position_within_tile[1] < helper_boundaries2[1]:
              check_collision = True
              forward_tile = (bomb_tile[0],bomb_tile[1] - 1)
        
          elif bomb.movement == Bomb.BOMB_ROLLING_RIGHT:
            bomb.set_position((bomb_position[0] + distance_to_travel,bomb_position[1]))
            opposite_direction = Bomb.BOMB_ROLLING_LEFT
          
            if helper_boundaries[0] < bomb_position_within_tile[0] < helper_boundaries[1]:
              check_collision = True
              forward_tile = (bomb_tile[0] + 1,bomb_tile[1])
          
          elif bomb.movement == Bomb.BOMB_ROLLING_DOWN:
            bomb.set_position((bomb_position[0],bomb_position[1] + distance_to_travel))
            opposite_direction = Bomb.BOMB_ROLLING_UP
          
            if helper_boundaries[0] < bomb_position_within_tile[1] < helper_boundaries[1]:
              check_collision = True
              forward_tile = (bomb_tile[0],bomb_tile[1] + 1)
          
          elif bomb.movement == Bomb.BOMB_ROLLING_LEFT:
            bomb.set_position((bomb_position[0] - distance_to_travel,bomb_position[1]))        
            opposite_direction = Bomb.BOMB_ROLLING_RIGHT

            if helper_boundaries2[0] < bomb_position_within_tile[0] < helper_boundaries2[1]:
              check_collision = True
              forward_tile = (bomb_tile[0] - 1,bomb_tile[1])

          if check_collision and (not self.tile_is_walkable(forward_tile) or self.tile_has_player(forward_tile) or self.tile_has_teleport(forward_tile)):
            bomb.move_to_tile_center()          
          
            if bomb.has_spring:
              bomb.movement = opposite_direction
              self.add_sound_event(SoundPlayer.SOUND_EVENT_SPRING)
            else:
              bomb.movement = Bomb.BOMB_NO_MOVEMENT
              self.add_sound_event(SoundPlayer.SOUND_EVENT_KICK)

  #----------------------------------------------------------------------------

  def __update_players(self, dt, immortal_player_numbers):
    time_now = pygame.time.get_ticks()
    release_disease_cloud = False
    
    if time_now > self.create_disease_cloud_at:
      self.create_disease_cloud_at = time_now + 200     # release the cloud every 200 ms
      release_disease_cloud = True
    
    for player in self.players:
      if player.is_dead():
        continue
      
      if release_disease_cloud and player.get_disease() != Player.DISEASE_NONE:
        self.add_animation_event(Renderer.ANIMATION_EVENT_DISEASE_CLOUD,Renderer.map_position_to_pixel_position(player.get_position(),(0,0)))
      
      if self.winning_color == -1:
        self.winning_color = player.get_team_number()
      elif self.winning_color != player.get_team_number():
        self.game_is_over = False
        
      player_tile_position = player.get_tile_position()
      player_tile = self.tiles[player_tile_position[1]][player_tile_position[0]]
      
      if player.get_state() != Player.STATE_IN_AIR and player.get_state != Player.STATE_TELEPORTING and (self.tile_has_flame(player_tile.coordinates) or self.tile_has_lava(player_tile.coordinates)):

        # if player immortality cheat isn't activated        
        if not (player.get_number() in immortal_player_numbers):
          flames = self.get_tile_at(player_tile.coordinates).flames
        
          # assign kill counts
        
          for flame in flames:
            increase_kills_by = 1 if flame.player != player else -1   # self kill decreases the kill count
            flame.player.set_kills(flame.player.get_kills() + increase_kills_by)
        
          player.kill(self)
          continue
      
      if player_tile.item != None:
        player.give_item(player_tile.item,self)
        player_tile.item = None
      
      if player.is_in_air():
        if player.get_state_time() > Player.JUMP_DURATION / 2:  # jump to destination tile in the middle of the flight
          player.move_to_tile_center(player.get_jump_destination())      
      elif player.is_teleporting():
        if player.get_state_time() > Player.TELEPORT_DURATION / 2:
          player.move_to_tile_center(player.get_teleport_destination())
      elif player_tile.special_object == MapTile.SPECIAL_OBJECT_TRAMPOLINE and player.is_near_tile_center():
        player.send_to_air(self)
      elif (player_tile.special_object == MapTile.SPECIAL_OBJECT_TELEPORT_A or player_tile.special_object == MapTile.SPECIAL_OBJECT_TELEPORT_B) and player.is_near_tile_center():
        player.teleport(self)
      elif player.get_disease() != Player.DISEASE_NONE:
        players_at_tile = self.get_players_at_tile(player_tile_position)

        transmitted = False

        for player_at_tile in players_at_tile:
          if player_at_tile.get_disease() == Player.DISEASE_NONE:
            transmitted = True
            player_at_tile.set_disease(player.get_disease(),player.get_disease_time())  # transmit disease
          
        #if transmitted and random.randint(0,2) == 0:
        #  self.add_sound_event(SoundPlayer.SOUND_EVENT_GO_AWAY)

  #----------------------------------------------------------------------------

  ## Updates some things on the map that change with time.

  def update(self, dt, immortal_player_numbers=[]):
    self.time_from_start += dt
    
    self.danger_map_is_up_to_date = False    # reset this each frame
    
    i = 0
    
    self.earthquake_time_left = max(0,self.earthquake_time_left - dt)
    
    while i < len(self.items_to_give_away):  # giving away items of dead players
      item = self.items_to_give_away[i]
      
      if self.time_from_start >= item[0]:
        self.spread_items(item[1])
        self.items_to_give_away.remove(item)
        
        debug_log("giving away items")
          
      i += 1

    self.__update_bombs(dt)

    for line in self.tiles:
      for tile in line:
        if tile.to_be_destroyed and tile.kind == MapTile.TILE_BLOCK and not self.tile_has_flame(tile.coordinates):
          tile.kind = MapTile.TILE_FLOOR
          self.number_of_blocks -= 1
          tile.to_be_destroyed = False
        
        i = 0
        
        while True:
          if i >= len(tile.flames):
            break
          
          if tile.kind == MapTile.TILE_BLOCK:  # flame on a block tile -> destroy the block
            tile.to_be_destroyed = True
          elif tile.kind == MapTile.TILE_FLOOR and tile.item != None:
            tile.item = None                   # flame destroys the item
          
          bombs_inside_flame = self.bombs_on_tile(tile.coordinates)
          
          for bomb in bombs_inside_flame:      # bomb inside flame -> detonate it
            self.bomb_explodes(bomb)
          
          flame = tile.flames[i]
          
          flame.time_to_burnout -= dt
          
          if flame.time_to_burnout < 0:
            tile.flames.remove(flame)
      
          i += 1
    
    self.game_is_over = True
    self.winning_color = -1

    self.__update_players(dt,immortal_player_numbers)
          
    if self.state == GameMap.STATE_WAITING_TO_PLAY:  
      if self.time_from_start >= self.start_game_at:
        self.state = GameMap.STATE_PLAYING
        self.add_sound_event(SoundPlayer.SOUND_EVENT_GO)
    if self.state == GameMap.STATE_FINISHING:
      if self.time_from_start >= self.end_game_at:
        self.state = GameMap.STATE_GAME_OVER
      elif not self.win_announced:
        if self.time_from_start >= self.announce_win_at:
          self.add_sound_event(SoundPlayer.SOUND_EVENT_WIN_0 + self.winner_team)
          self.win_announced = True
    elif self.state != GameMap.STATE_GAME_OVER and self.game_is_over:
      self.end_game_at = self.time_from_start + 5000
      self.state = GameMap.STATE_FINISHING
      self.winner_team = self.winning_color
      self.announce_win_at = self.time_from_start + 2000
    
  #----------------------------------------------------------------------------

  def get_winner_team(self):
    return self.winner_team

  #----------------------------------------------------------------------------
    
  def get_state(self):
    return self.state

  #----------------------------------------------------------------------------
    
  def add_bomb(self, bomb):
    self.bombs.append(bomb)

  #----------------------------------------------------------------------------

  def get_bombs(self):
    return self.bombs

  #----------------------------------------------------------------------------

  def get_environment_name(self):
    return self.environment_name

  #----------------------------------------------------------------------------

  def get_players(self):
    return self.players

  #----------------------------------------------------------------------------

  ## Gets a dict that maps numbers to players (with Nones if player with given number doesn't exist).

  def get_players_by_numbers(self):
    return self.players_by_numbers

  #----------------------------------------------------------------------------

  def get_tiles(self):
    return self.tiles

  #----------------------------------------------------------------------------

  def __str__(self):
    result = ""

    for line in self.tiles:
      for tile in line:
        if tile.kind == MapTile.TILE_FLOOR:
          result += " "
        elif tile.kind == MapTile.TILE_BLOCK:
          result += "x"
        else:
          result += "#"
  
      result += "\n"

    return result

#==============================================================================

## Defines how a game is set up, i.e. how many players
#  there are, what are the teams etc. Setup does not include
#  the selected map.

class PlaySetup(object):
  MAX_GAMES = 20

  #----------------------------------------------------------------------------
  
  def __init__(self):
    self.player_slots = [None for i in range(10)]    ##< player slots: (player_number, team_color),
                                                     #   negative player_number = AI, slot index ~ player color index
    self.number_of_games = 10
    
    # default setup, player 0 vs 3 AI players:
    self.player_slots[0] = (0,0)
    self.player_slots[1] = (-1,1)
    self.player_slots[2] = (-1,2)
    self.player_slots[3] = (-1,3)

  #----------------------------------------------------------------------------

  def get_slots(self):
    return self.player_slots

  #----------------------------------------------------------------------------

  def get_number_of_games(self):
    return self.number_of_games

  #----------------------------------------------------------------------------

  def set_number_of_games(self, number_of_games):
    self.number_of_games = number_of_games

  #----------------------------------------------------------------------------
  
  def increase_number_of_games(self):
    self.number_of_games = self.number_of_games % PlaySetup.MAX_GAMES + 1

  #----------------------------------------------------------------------------
  
  def decrease_number_of_games(self):
    self.number_of_games = (self.number_of_games - 2) % PlaySetup.MAX_GAMES + 1
   
#==============================================================================

## Something that can be saved/loaded to/from string.
  
class StringSerializable(object):

  #----------------------------------------------------------------------------

  def save_to_string(self):
    return ""

  #----------------------------------------------------------------------------
  
  def load_from_string(self, input_string):
    return

  #----------------------------------------------------------------------------
  
  def save_to_file(self, filename):
    text_file = open(filename,"w")
    text_file.write(self.save_to_string())
    text_file.close()

  #----------------------------------------------------------------------------
  
  def load_from_file(self, filename):
    with open(filename,"r") as text_file:
      self.load_from_string(text_file.read())
    
#==============================================================================

## Handles conversion of keyboard events to actions of players, plus general
#  actions (such as menu, ...). Also managed some more complex input processing.

class PlayerKeyMaps(StringSerializable):
  ACTION_UP = 0
  ACTION_RIGHT = 1
  ACTION_DOWN = 2
  ACTION_LEFT = 3
  ACTION_BOMB = 4
  ACTION_SPECIAL = 5
  ACTION_MENU = 6                ##< brings up the main menu 
  ACTION_BOMB_DOUBLE = 7
  
  MOUSE_CONTROL_UP = -1
  MOUSE_CONTROL_RIGHT = -2
  MOUSE_CONTROL_DOWN = -3
  MOUSE_CONTROL_LEFT = -4
  MOUSE_CONTROL_BUTTON_L = -5
  MOUSE_CONTROL_BUTTON_M = -6
  MOUSE_CONTROL_BUTTON_R = -7
  
  MOUSE_CONTROL_BIAS = 2         ##< mouse movement bias in pixels
  
  TYPED_STRING_BUFFER_LENGTH = 15
  
  ACTION_NAMES = {
    ACTION_UP : "up",
    ACTION_RIGHT : "right",
    ACTION_DOWN : "down",
    ACTION_LEFT : "left",
    ACTION_BOMB : "bomb",
    ACTION_SPECIAL : "special",
    ACTION_MENU : "menu",
    ACTION_BOMB_DOUBLE : "bomb double" 
    }
  
  MOUSE_ACTION_NAMES = {
    MOUSE_CONTROL_UP : "m up",
    MOUSE_CONTROL_RIGHT : "m right",
    MOUSE_CONTROL_DOWN : "m down",
    MOUSE_CONTROL_LEFT : "m left",
    MOUSE_CONTROL_BUTTON_L : "m L",
    MOUSE_CONTROL_BUTTON_M : "m M",
    MOUSE_CONTROL_BUTTON_R : "m R"
    }
  
  MOUSE_CONTROL_SMOOTH_OUT_TIME = 50

  #----------------------------------------------------------------------------

  def __init__(self):
    self.key_maps = {}  ##< maps keys to tuples of a format: (player_number, action), for general actions player_number will be -1
    
    self.bomb_key_last_pressed_time = [0 for i in range(10)]  ##< for bomb double press detection
    self.bomb_key_previous_state = [False for i in range(10)] ##< for bomb double press detection

    self.allow_mouse_control = False    ##< if true, player movement by mouse is allowed, otherwise not

    mouse_control_constants = [
      PlayerKeyMaps.MOUSE_CONTROL_UP,
      PlayerKeyMaps.MOUSE_CONTROL_RIGHT,
      PlayerKeyMaps.MOUSE_CONTROL_DOWN,
      PlayerKeyMaps.MOUSE_CONTROL_LEFT,
      PlayerKeyMaps.MOUSE_CONTROL_BUTTON_L,
      PlayerKeyMaps.MOUSE_CONTROL_BUTTON_M,
      PlayerKeyMaps.MOUSE_CONTROL_BUTTON_R]

    self.mouse_control_states = {}
    self.mouse_control_keep_until = {}  ##< time in which specified control was activated,
                                        #   helps keeping them active for a certain amount of time to smooth them out 
    mouse_control_states = {
      PlayerKeyMaps.MOUSE_CONTROL_UP : False,
      PlayerKeyMaps.MOUSE_CONTROL_RIGHT : False,
      PlayerKeyMaps.MOUSE_CONTROL_DOWN : False,
      PlayerKeyMaps.MOUSE_CONTROL_LEFT : False,
      PlayerKeyMaps.MOUSE_CONTROL_BUTTON_L : False,
      PlayerKeyMaps.MOUSE_CONTROL_BUTTON_M : False,
      PlayerKeyMaps.MOUSE_CONTROL_BUTTON_R : False
      }

    for item in mouse_control_constants:
      self.mouse_control_states[item] = False
      self.mouse_control_keep_until[item] = 0
      
    self.mouse_button_states = [False,False,False,False,False] ##< (left, right, middle, wheel up, wheel down)
    self.previous_mouse_button_states = [False,False,False,False,False]  
    self.last_mouse_update_frame = -1
    
    
    self.name_code_mapping = {}     # holds a mapping of key names to pygame key codes, since pygame itself offers no such functionality   
    keys_pressed = pygame.key.get_pressed()
    
    for key_code in range(len(keys_pressed)):
      self.name_code_mapping[pygame.key.name(key_code)] = key_code
     
    self.typed_string_buffer = [" " for i in range(PlayerKeyMaps.TYPED_STRING_BUFFER_LENGTH)]
     
    self.reset()

  #----------------------------------------------------------------------------

  def pygame_name_to_key_code(self, pygame_name):
    try:
      return self.name_code_mapping[pygame_name]
    except KeyError:
      return -1

  #----------------------------------------------------------------------------

  ## Returns a state of mouse buttons including mouse wheel (unlike pygame.mouse.get_pressed) as
  #  a tuple (left, right, middle, wheel up, wheel down).

  def get_mouse_button_states(self):
    return self.mouse_button_states

  #----------------------------------------------------------------------------
    
  ## Returns a tuple corresponding to mouse buttons (same as get_mouse_button_states) where each
  #  item says if the button has been pressed since the last frame.
    
  def get_mouse_button_events(self):
    result = []
    
    for i in range(5):
      result.append(self.mouse_button_states[i] and not self.previous_mouse_button_states[i])
    
    return result

  #----------------------------------------------------------------------------
    
  ## This informs the object abour pygame events so it can keep track of some input states.
    
  def process_pygame_events(self, pygame_events, frame_number):
    if frame_number != self.last_mouse_update_frame:
      # first time calling this function this frame => reset states
    
      for i in range(5):      # for each of 5 buttons
        self.previous_mouse_button_states[i] = self.mouse_button_states[i]
    
      button_states = pygame.mouse.get_pressed()
    
      self.mouse_button_states[0] = button_states[0]
      self.mouse_button_states[1] = button_states[2]
      self.mouse_button_states[2] = button_states[1]
      self.mouse_button_states[3] = False
      self.mouse_button_states[4] = False     
      self.last_mouse_update_frame = frame_number

    for pygame_event in pygame_events:
      if pygame_event.type == pygame.MOUSEBUTTONDOWN:
        if pygame_event.button == 4:
          self.mouse_button_states[3] = True
        elif pygame_event.button == 5:
          self.mouse_button_states[4] = True
      elif pygame_event.type == pygame.KEYDOWN:
        try:
          self.typed_string_buffer = self.typed_string_buffer[1:]
          self.typed_string_buffer.append(chr(pygame_event.key))
        except Exception:
          debug_log("couldn't append typed character to the buffer")

  #----------------------------------------------------------------------------
        
  def clear_typing_buffer(self):
    self.typed_string_buffer = [" " for i in range(PlayerKeyMaps.TYPED_STRING_BUFFER_LENGTH)]

  #----------------------------------------------------------------------------
        
  def string_was_typed(self, string):
    return str.find("".join(self.typed_string_buffer),string) >= 0

  #----------------------------------------------------------------------------
        
  def reset(self):
    self.allow_control_by_mouse(False)
    self.set_player_key_map(0,pygame.K_w,pygame.K_d,pygame.K_s,pygame.K_a,pygame.K_c,pygame.K_v)
    self.set_player_key_map(1,pygame.K_UP,pygame.K_RIGHT,pygame.K_DOWN,pygame.K_LEFT,pygame.K_RETURN,pygame.K_RSHIFT)
    self.set_player_key_map(2,pygame.K_u,pygame.K_k,pygame.K_j,pygame.K_h,pygame.K_o,pygame.K_p)
    self.set_player_key_map(3,PlayerKeyMaps.MOUSE_CONTROL_UP,PlayerKeyMaps.MOUSE_CONTROL_RIGHT,PlayerKeyMaps.MOUSE_CONTROL_DOWN,PlayerKeyMaps.MOUSE_CONTROL_LEFT,PlayerKeyMaps.MOUSE_CONTROL_BUTTON_L,PlayerKeyMaps.MOUSE_CONTROL_BUTTON_R)
    self.set_special_key_map(pygame.K_ESCAPE)

  #----------------------------------------------------------------------------

  ##< Gets a direction of given action (0 - up, 1 - right, 2 - down, 3 - left).

  @staticmethod
  def get_action_direction_number(action):
    if action == PlayerKeyMaps.ACTION_UP:
      return 0
    elif action == PlayerKeyMaps.ACTION_RIGHT:
      return 1
    elif action == PlayerKeyMaps.ACTION_DOWN:
      return 2
    elif action == PlayerKeyMaps.ACTION_LEFT:
      return 3
    
    return 0

  #----------------------------------------------------------------------------

  @staticmethod
  def get_opposite_action(action):
    if action == PlayerKeyMaps.ACTION_UP:
      return PlayerKeyMaps.ACTION_DOWN
    elif action == PlayerKeyMaps.ACTION_RIGHT:
      return PlayerKeyMaps.ACTION_LEFT
    elif action == PlayerKeyMaps.ACTION_DOWN:
      return PlayerKeyMaps.ACTION_UP
    elif action == PlayerKeyMaps.ACTION_LEFT:
      return PlayerKeyMaps.ACTION_RIGHT
    
    return action

  #----------------------------------------------------------------------------

  @staticmethod
  def key_to_string(key):
    if key == None:
      return "none"
    
    if key in PlayerKeyMaps.MOUSE_ACTION_NAMES:
      result = PlayerKeyMaps.MOUSE_ACTION_NAMES[key]
    else:
      result = pygame.key.name(key)
    
      if result == "unknown key":
        result = str(key)
    
    return result   

  #----------------------------------------------------------------------------

  def set_one_key_map(self, key, player_number, action):
    if key != None:
      self.key_maps[key] = (player_number,action)
      
      to_be_deleted = []
      
      for item in self.key_maps:     # get rid of possible collissions
        if item != key and self.key_maps[item] == (player_number,action):
          to_be_deleted.append(item)
          
      for item in to_be_deleted:
        del self.key_maps[item]

  #----------------------------------------------------------------------------

  ## Sets a key mapping for a player of specified (non-negative) number.

  def set_player_key_map(self, player_number, key_up, key_right, key_down, key_left, key_bomb, key_special):
    self.set_one_key_map(key_up,player_number,PlayerKeyMaps.ACTION_UP)
    self.set_one_key_map(key_right,player_number,PlayerKeyMaps.ACTION_RIGHT)
    self.set_one_key_map(key_down,player_number,PlayerKeyMaps.ACTION_DOWN)
    self.set_one_key_map(key_left,player_number,PlayerKeyMaps.ACTION_LEFT)
    self.set_one_key_map(key_bomb,player_number,PlayerKeyMaps.ACTION_BOMB)
    self.set_one_key_map(key_special,player_number,PlayerKeyMaps.ACTION_SPECIAL)

  #----------------------------------------------------------------------------

  ## Gets a dict that says how keys are mapped for a specific player. Format: {action_code : key_code, ...}, the
  #  dict will contain all actions and possibly None values for unmapped actions.

  def get_players_key_mapping(self, player_number):
    result = {action : None for action in (
      PlayerKeyMaps.ACTION_UP,
      PlayerKeyMaps.ACTION_RIGHT,
      PlayerKeyMaps.ACTION_DOWN,
      PlayerKeyMaps.ACTION_LEFT,
      PlayerKeyMaps.ACTION_BOMB,
      PlayerKeyMaps.ACTION_SPECIAL)}
    
    for key in self.key_maps:
      if self.key_maps[key][0] == player_number:
        result[self.key_maps[key][1]] = key
    
    return result

  #----------------------------------------------------------------------------

  def allow_control_by_mouse(self, allow=True):
   self.allow_mouse_control = allow

  #----------------------------------------------------------------------------

  def set_special_key_map(self, key_menu):
    self.set_one_key_map(key_menu,-1,PlayerKeyMaps.ACTION_MENU)

  #----------------------------------------------------------------------------

  ## Makes a human-readable string that represents the current key-mapping.

  def save_to_string(self):
    result = ""

    for i in range(Game.NUMBER_OF_CONTROLLED_PLAYERS):  # 4 players
      mapping = self.get_players_key_mapping(i)
      
      for action in mapping:
        result += str(i + 1) + " " + PlayerKeyMaps.ACTION_NAMES[action] + ": " + str(mapping[action]) + "\n"

    result += PlayerKeyMaps.ACTION_NAMES[PlayerKeyMaps.ACTION_MENU] + ": " + str(self.get_menu_key_map())
    
    return result

  #----------------------------------------------------------------------------
    
  ## Loads the mapping from string produced by save_to_string(...).
    
  def load_from_string(self, input_string):
    self.key_maps = {}
    
    lines = input_string.split("\n")
    
    for line in lines:
      line = line.lstrip().rstrip()
      
      try:
        key = int(line[line.find(":") + 1:])
      except Exception as e:
        key = None
      
      if line.find(PlayerKeyMaps.ACTION_NAMES[PlayerKeyMaps.ACTION_MENU]) == 0:
        self.set_one_key_map(key,-1,PlayerKeyMaps.ACTION_MENU)
      else:
        player_number = int(line[0]) - 1
        action_name = line[2:line.find(":")]
        
        action = None
        
        for helper_action in PlayerKeyMaps.ACTION_NAMES:
          if PlayerKeyMaps.ACTION_NAMES[helper_action] == action_name:
            action = helper_action
            break
      
        self.set_one_key_map(key,player_number,action)

  #----------------------------------------------------------------------------
    
  def get_menu_key_map(self):
    for key in self.key_maps:
      if self.key_maps[key][0] == -1:
        return key
      
    return None

  #----------------------------------------------------------------------------

  ## Returns a list of mouse control actions currently being performed (if mouse
  #  control is not allowed, the list will always be empty)

  def get_current_mouse_control_states(self):
    result = []
    
    if not self.allow_mouse_control:
      return result
    
    for mouse_action in self.mouse_control_states:
      if self.mouse_control_states[mouse_action]:
        result.append(mouse_action)
      
    return result

  #----------------------------------------------------------------------------

  ## From currently pressed keys makes a list of actions being currently performed and
  #  returns it, format: (player_number, action).

  def get_current_actions(self):
    keys_pressed = pygame.key.get_pressed()

    result = []

    reset_bomb_key_previous_state = [True for i in range(10)]

    # check mouse control:

    if self.allow_mouse_control:
      screen_center = (Renderer.get_screen_size()[0] / 2,Renderer.get_screen_size()[1] / 2)
      mouse_position = pygame.mouse.get_pos(screen_center)
      pressed = pygame.mouse.get_pressed()
      
      current_time = pygame.time.get_ticks()
      
      for item in self.mouse_control_states:    # reset
        if current_time > self.mouse_control_keep_until[item]:
          self.mouse_control_states[item] = False
      
      dx = abs(mouse_position[0] - screen_center[0])
      dy = abs(mouse_position[1] - screen_center[1])

      if dx > dy:            # choose the prevelant axis
        d_value = dx
        axis = 0
        axis_forward = PlayerKeyMaps.MOUSE_CONTROL_RIGHT
        axis_back = PlayerKeyMaps.MOUSE_CONTROL_LEFT
      else:
        axis = 1
        axis_forward = PlayerKeyMaps.MOUSE_CONTROL_DOWN
        axis_back = PlayerKeyMaps.MOUSE_CONTROL_UP
        d_value = dy

      if d_value > PlayerKeyMaps.MOUSE_CONTROL_BIAS:
        forward = mouse_position[axis] > screen_center[axis]
          
        self.mouse_control_states[axis_forward] = forward
        self.mouse_control_states[axis_back] = not forward          
        self.mouse_control_keep_until[axis_forward if forward else axis_back] = current_time + PlayerKeyMaps.MOUSE_CONTROL_SMOOTH_OUT_TIME  
        
      helper_buttons = (PlayerKeyMaps.MOUSE_CONTROL_BUTTON_L, PlayerKeyMaps.MOUSE_CONTROL_BUTTON_M, PlayerKeyMaps.MOUSE_CONTROL_BUTTON_R)

      for i in range(3):
        if pressed[i]:
          self.mouse_control_states[helper_buttons[i]] = True  
          self.mouse_control_keep_until[helper_buttons[i]] = current_time

      pygame.mouse.set_pos(screen_center)

    for key_code in self.key_maps:
      try:
        key_is_active = self.mouse_control_states[key_code] if key_code < 0 else keys_pressed[key_code]
      except IndexError as e:
        key_is_active = False
      
      if key_is_active:
        action_tuple = self.key_maps[key_code]  
        result.append(action_tuple)
        
        if action_tuple[1] == PlayerKeyMaps.ACTION_BOMB:
          player_number = action_tuple[0]
          
          if self.bomb_key_previous_state[player_number] == False and pygame.time.get_ticks() - self.bomb_key_last_pressed_time[player_number] < 200:
            result.append((player_number,PlayerKeyMaps.ACTION_BOMB_DOUBLE))
          
          self.bomb_key_last_pressed_time[player_number] = pygame.time.get_ticks()
          
          self.bomb_key_previous_state[player_number] = True
          reset_bomb_key_previous_state[player_number] = False

    for i in range(10):
      if reset_bomb_key_previous_state[i]:
        self.bomb_key_previous_state[i] = False

    return result

#==============================================================================

class SoundPlayer(object):
  # sound events used by other classes to tell soundplayer what to play
  
  SOUND_EVENT_EXPLOSION = 0
  SOUND_EVENT_BOMB_PUT = 1
  SOUND_EVENT_WALK = 2
  SOUND_EVENT_KICK = 3
  SOUND_EVENT_DIARRHEA = 4
  SOUND_EVENT_SPRING = 5
  SOUND_EVENT_SLOW = 6
  SOUND_EVENT_DISEASE = 7
  SOUND_EVENT_CLICK = 8
  SOUND_EVENT_THROW = 9
  SOUND_EVENT_TRAMPOLINE = 10
  SOUND_EVENT_TELEPORT = 11
  SOUND_EVENT_DEATH = 12
  SOUND_EVENT_WIN_0 = 13
  SOUND_EVENT_WIN_1 = 14
  SOUND_EVENT_WIN_2 = 15
  SOUND_EVENT_WIN_3 = 16
  SOUND_EVENT_WIN_4 = 17
  SOUND_EVENT_WIN_5 = 18
  SOUND_EVENT_WIN_6 = 19
  SOUND_EVENT_WIN_7 = 20
  SOUND_EVENT_WIN_8 = 21
  SOUND_EVENT_WIN_9 = 22
  SOUND_EVENT_GO_AWAY = 23
  SOUND_EVENT_GO = 24
  SOUND_EVENT_EARTHQUAKE = 25
  SOUND_EVENT_CONFIRM = 26

  #----------------------------------------------------------------------------
  
  def __init__(self):
    self.sound_volume = 0.5
    self.music_volume = 0.5
   
    self.sounds = {}
    self.sounds[SoundPlayer.SOUND_EVENT_EXPLOSION] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"explosion.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_BOMB_PUT] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"bomb.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_WALK] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"footsteps.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_KICK] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"kick.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_SPRING] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"spring.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_DIARRHEA] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"fart.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_SLOW] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"slow.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_DISEASE] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"disease.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_CLICK] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"click.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_THROW] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"throw.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_TRAMPOLINE] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"trampoline.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_TELEPORT] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"teleport.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_DEATH] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"death.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_GO] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"go.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_EARTHQUAKE] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"earthquake.wav"))
    self.sounds[SoundPlayer.SOUND_EVENT_CONFIRM] = pygame.mixer.Sound(os.path.join(Game.RESOURCE_PATH,"confirm.wav"))

    self.music_filenames = [
      "music_loyalty_freak_slow_pogo.wav",
      "music_anonymous420_start_to_play.wav",
      "music_anonymous420_first_step_for_your_tech.wav",
      "music_anonymous420_echo_blues_effect.wav",
      "music_loyalty_freak_music_enby.wav"
      ]
 
    self.current_music_index = -1
    
    self.playing_walk = False
    self.kick_last_played_time = 0

  #----------------------------------------------------------------------------
     
  def play_once(self, filename):
    sound = pygame.mixer.Sound(filename)
    sound.set_volume(self.sound_volume)
    sound.play()

  #----------------------------------------------------------------------------
   
  def set_music_volume(self, new_volume):
    self.music_volume = new_volume if new_volume > Settings.SOUND_VOLUME_THRESHOLD else 0
    
    debug_log("changing music volume to " + str(self.music_volume))
    
    if new_volume > Settings.SOUND_VOLUME_THRESHOLD:
      if not pygame.mixer.music.get_busy():
        pygame.mixer.music.play()
      
      pygame.mixer.music.set_volume(new_volume)
    else:
      pygame.mixer.music.stop()

  #----------------------------------------------------------------------------
      
  def set_sound_volume(self, new_volume):
    self.sound_volume = new_volume if new_volume > Settings.SOUND_VOLUME_THRESHOLD else 0
    
    debug_log("changing sound volume to " + str(self.sound_volume))
    
    for sound in self.sounds:
      self.sounds[sound].set_volume(self.sound_volume)

  #----------------------------------------------------------------------------
   
  def change_music(self):
    while True:
      new_music_index = random.randint(0,len(self.music_filenames) - 1)
      
      if new_music_index == self.current_music_index:
        continue
      
      break
    
    self.current_music_index = new_music_index
    
    music_name = self.music_filenames[self.current_music_index]
    
    debug_log("changing music to \"" + music_name + "\"")
    
    pygame.mixer.music.stop()
    pygame.mixer.music.load(os.path.join(Game.RESOURCE_PATH,music_name))
    pygame.mixer.music.set_volume(self.music_volume)
    pygame.mixer.music.play(-1)

  #----------------------------------------------------------------------------
   
  def play_sound_event(self,sound_event):
    self.process_events([sound_event])

  #----------------------------------------------------------------------------
   
  ## Processes a list of sound events (see class constants) by playing
  #  appropriate sounds.
    
  def process_events(self, sound_event_list): 
    stop_playing_walk = True
    
    for sound_event in sound_event_list: 
      if sound_event in (                        # simple sound play
        SoundPlayer.SOUND_EVENT_EXPLOSION,
        SoundPlayer.SOUND_EVENT_CLICK,
        SoundPlayer.SOUND_EVENT_BOMB_PUT,
        SoundPlayer.SOUND_EVENT_SPRING,
        SoundPlayer.SOUND_EVENT_DIARRHEA,
        SoundPlayer.SOUND_EVENT_SLOW,
        SoundPlayer.SOUND_EVENT_DISEASE,
        SoundPlayer.SOUND_EVENT_THROW,
        SoundPlayer.SOUND_EVENT_TRAMPOLINE,
        SoundPlayer.SOUND_EVENT_TELEPORT,
        SoundPlayer.SOUND_EVENT_DEATH,
        SoundPlayer.SOUND_EVENT_GO,
        SoundPlayer.SOUND_EVENT_EARTHQUAKE,
        SoundPlayer.SOUND_EVENT_CONFIRM
        ):
        self.sounds[sound_event].play()
    
      elif sound_event == SoundPlayer.SOUND_EVENT_WALK:
        if not self.playing_walk:
          self.sounds[SoundPlayer.SOUND_EVENT_WALK].play(loops=-1)
          self.playing_walk = True
        
        stop_playing_walk = False
      elif sound_event == SoundPlayer.SOUND_EVENT_KICK:
        time_now = pygame.time.get_ticks()
        
        if time_now > self.kick_last_played_time + 200:    # wait 200 ms before playing kick sound again        
          self.sounds[SoundPlayer.SOUND_EVENT_KICK].play()
          self.kick_last_played_time = time_now
      elif SoundPlayer.SOUND_EVENT_WIN_0 <= sound_event <= SoundPlayer.SOUND_EVENT_WIN_9:
        self.play_once(os.path.join(Game.RESOURCE_PATH,"win" + str(sound_event - SoundPlayer.SOUND_EVENT_WIN_0) + ".wav"))
      
    if self.playing_walk and stop_playing_walk:
      self.sounds[SoundPlayer.SOUND_EVENT_WALK].stop()
      self.playing_walk = False
    
  #  if not self.playing_walk = False
    
#==============================================================================

class Animation(object):

  #----------------------------------------------------------------------------

  def __init__(self, filename_prefix, start_number, end_number, filename_postfix, framerate = 10):
    self.framerate = framerate
    self.frame_time = 1000 / self.framerate
    
    self.frame_images = []
    
    for i in range(start_number,end_number + 1):
      self.frame_images.append(pygame.image.load(filename_prefix + str(i) + filename_postfix))
      
    self.playing_instances = []   ##< A set of playing animations, it is a list of tuples in
                                  #  a format: (pixel_coordinates, started_playing).     

  #----------------------------------------------------------------------------

  def play(self, coordinates):
    # convert center coordinates to top left coordinates:
    
    top_left = (coordinates[0] - self.frame_images[0].get_size()[0] / 2,coordinates[1] - self.frame_images[0].get_size()[1] / 2)
    self.playing_instances.append((top_left,pygame.time.get_ticks()))

  #----------------------------------------------------------------------------
    
  def draw(self, surface):
    i = 0
    
    time_now = pygame.time.get_ticks()
    
    while True:
      if i >= len(self.playing_instances):
        break
      
      playing_instance = self.playing_instances[i]
      
      frame = int((time_now - playing_instance[1]) / self.frame_time)
      
      if frame >= len(self.frame_images):
        self.playing_instances.remove(playing_instance)
        continue
        
      surface.blit(self.frame_images[frame],playing_instance[0])
      
      i += 1

#==============================================================================

## Abstract class representing a game menu. Menu item strings can contain formatting characters:
#
#  ^htmlcolorcode - sets the text color (HTML #rrggbb format,e.g. ^#2E44BF) from here to end of line or another formatting character
    
class Menu(object):
  MENU_STATE_SELECTING = 0                ##< still selecting an item
  MENU_STATE_CONFIRM = 1                  ##< menu has been confirmed
  MENU_STATE_CANCEL = 2                   ##< menu has been cancelled
  MENU_STATE_CONFIRM_PROMPT = 3           ##< prompting an action
  
  MENU_MAX_ITEMS_VISIBLE = 11

  #----------------------------------------------------------------------------
  
  def __init__(self,sound_player):
    self.text = ""
    self.selected_item = (0,0)            ##< row, column
    self.items = []                       ##< list (rows) of lists (column)
    self.menu_left = False
    self.confirm_prompt_result = None     ##< True, False or None
    self.scroll_position = 0              ##< index of the first visible row
    self.sound_player = sound_player
    self.action_keys_previous_state = {
      PlayerKeyMaps.ACTION_UP : True,
      PlayerKeyMaps.ACTION_RIGHT : True,
      PlayerKeyMaps.ACTION_DOWN : True,
      PlayerKeyMaps.ACTION_LEFT : True,
      PlayerKeyMaps.ACTION_BOMB : True,
      PlayerKeyMaps.ACTION_SPECIAL : True,
      PlayerKeyMaps.ACTION_BOMB_DOUBLE: True,
      PlayerKeyMaps.ACTION_MENU : True}        ##< to detect single key presses, the values have to be True in order not to rect immediatelly upon entering the menu
    self.state = Menu.MENU_STATE_SELECTING
    pass

  #----------------------------------------------------------------------------

  def get_scroll_position(self):
    return self.scroll_position

  #----------------------------------------------------------------------------

  def get_state(self):
    return self.state

  #----------------------------------------------------------------------------
    
  def prompt_action_confirm(self):
    self.confirm_prompt_result = None
    self.state = Menu.MENU_STATE_CONFIRM_PROMPT

  #----------------------------------------------------------------------------
    
  def get_text(self):
    return self.text

  #----------------------------------------------------------------------------
  
  ## Returns menu items in format: ( (column 1 row 1 text), (column 1 row 2 text), ...), ((column 2 row 1 text), ...) ).
  
  def get_items(self):
    return self.items

  #----------------------------------------------------------------------------
  
  ## Returns a selected menu item in format (row, column).
  
  def get_selected_item(self):
    return self.selected_item

  #----------------------------------------------------------------------------
  
  def process_inputs(self, input_list):
    if self.menu_left:
      self.menu_left = False
      self.state = Menu.MENU_STATE_SELECTING
      
      for action_code in self.action_keys_previous_state:
        self.action_keys_previous_state[action_code] = True
        
      return
    
    actions_processed = []
    actions_pressed = []
    
    for action in input_list:
      action_code = action[1]
      
      if not self.action_keys_previous_state[action_code]:
        # the following condition disallows ACTION_BOMB and ACTION_BOMB_DOUBLE to be in the list at the same time => causes trouble
        if (not (action_code in actions_pressed) and not(
          (action_code == PlayerKeyMaps.ACTION_BOMB and PlayerKeyMaps.ACTION_BOMB_DOUBLE in actions_pressed) or
          (action_code == PlayerKeyMaps.ACTION_BOMB_DOUBLE and PlayerKeyMaps.ACTION_BOMB in actions_pressed) )):
          actions_pressed.append(action_code)
    
      actions_processed.append(action_code)
    
    for action_code in self.action_keys_previous_state:
      self.action_keys_previous_state[action_code] = False
      
    for action_code in actions_processed:
      self.action_keys_previous_state[action_code] = True
    
    for action in actions_pressed:
      self.action_pressed(action)
  
  #----------------------------------------------------------------------------
   
  def mouse_went_over_item(self, item_coordinates):
    self.selected_item = item_coordinates

  #----------------------------------------------------------------------------
     
  ## Handles mouse button events in the menu.
     
  def mouse_button_pressed(self, button_number):
    if button_number == 0:       # left
      self.action_pressed(PlayerKeyMaps.ACTION_BOMB)
    elif button_number == 1:     # right
      self.action_pressed(PlayerKeyMaps.ACTION_SPECIAL)
    elif button_number == 3:     # up
      self.scroll(True)
    elif button_number == 4:     # down
      self.scroll(False)

  #----------------------------------------------------------------------------
    
  def scroll(self, up):
    if up:
      if self.scroll_position > 0:
        self.scroll_position -= 1
        self.action_pressed(PlayerKeyMaps.ACTION_UP)
    else:   # down
      rows = len(self.items[self.selected_item[1]])  
      maximum_row = rows - Menu.MENU_MAX_ITEMS_VISIBLE
      
      if self.scroll_position < maximum_row:
        self.scroll_position += 1
        self.action_pressed(PlayerKeyMaps.ACTION_DOWN)

  #----------------------------------------------------------------------------
    
  ## Should be called when the menu is being left.
     
  def leaving(self):
    self.menu_left = True
    self.confirm_prompt_result = None
    self.sound_player.play_sound_event(SoundPlayer.SOUND_EVENT_CONFIRM)

  #----------------------------------------------------------------------------
     
  ## Prompts confirmation of given menu item if it has been selected.
     
  def prompt_if_needed(self, menu_item_coordinates):
    if self.state == Menu.MENU_STATE_CONFIRM and (self.confirm_prompt_result == None or self.confirm_prompt_result == False) and self.selected_item == menu_item_coordinates:
      self.prompt_action_confirm()

  #----------------------------------------------------------------------------
     
  ## Is called once for every action key press (not each frame, which is
  #  not good for menus). This can be overridden.
  
  def action_pressed(self, action):
    old_selected_item = self.selected_item
    
    if self.state == Menu.MENU_STATE_CONFIRM_PROMPT:
      if action == PlayerKeyMaps.ACTION_BOMB or action == PlayerKeyMaps.ACTION_BOMB_DOUBLE:
        self.confirm_prompt_result = True
        self.state = Menu.MENU_STATE_CONFIRM
      else:
        self.confirm_prompt_result = False
        self.state = Menu.MENU_STATE_SELECTING
    else:
      if action == PlayerKeyMaps.ACTION_UP:
        self.selected_item = (max(0,self.selected_item[0] - 1),self.selected_item[1])
      elif action == PlayerKeyMaps.ACTION_DOWN:
        self.selected_item = (min(len(self.items[self.selected_item[1]]) - 1,self.selected_item[0] + 1),self.selected_item[1])
      elif action == PlayerKeyMaps.ACTION_LEFT:
        new_column = max(0,self.selected_item[1] - 1)
        self.selected_item = (min(len(self.items[new_column]) - 1,self.selected_item[0]),new_column)
      elif action == PlayerKeyMaps.ACTION_RIGHT:
        new_column = min(len(self.items) - 1,self.selected_item[1] + 1)
        self.selected_item = (min(len(self.items[new_column]) - 1,self.selected_item[0]),new_column)
      elif action == PlayerKeyMaps.ACTION_BOMB or action == PlayerKeyMaps.ACTION_BOMB_DOUBLE:
        self.state = Menu.MENU_STATE_CONFIRM
      elif action == PlayerKeyMaps.ACTION_SPECIAL:
        self.state = Menu.MENU_STATE_CANCEL
      
    if self.selected_item[0] >= self.scroll_position + Menu.MENU_MAX_ITEMS_VISIBLE:
      self.scroll_position += 1
    elif self.selected_item[0] < self.scroll_position:
      self.scroll_position -= 1
      
    if self.selected_item != old_selected_item:
      self.sound_player.play_sound_event(SoundPlayer.SOUND_EVENT_CLICK)
    
#==============================================================================

class MainMenu(Menu):

  #----------------------------------------------------------------------------

  def __init__(self, sound_player):
    super(MainMenu,self).__init__(sound_player)
    
    self.items = [(
      "let's play!",
      "tweak some stuff",
      "what's this about",
      "run away!")]

  #----------------------------------------------------------------------------
    
  def action_pressed(self, action):
    super(MainMenu,self).action_pressed(action)
    self.prompt_if_needed((3,0))

#==============================================================================

class ResultMenu(Menu):

  #----------------------------------------------------------------------------

  def __init__(self, sound_player):
    super(ResultMenu,self).__init__(sound_player)
    
    self.items = [["I get it"]]

  #----------------------------------------------------------------------------
    
  def set_results(self, players):
    win_maximum = 0
    winner_team_numbers = []
    
    for player in players:
      if player.get_wins() > win_maximum:
        winner_team_numbers = [player.get_team_number()]
        win_maximum = player.get_wins()        
      elif player.get_wins() == win_maximum:
        winner_team_numbers.append(player.get_team_number())
    
    separator = "__________________________________________________"
    
    if len(winner_team_numbers) == 1:
      announcement_text = "Winner team is " + Renderer.colored_color_name(winner_team_numbers[0]) + "!"
    else:
      announcement_text = "Winners teams are: "
      
      first = True
      
      for winner_number in winner_team_numbers:
        if first:
          first = False
        else:
          announcement_text += ", "
          
        announcement_text += Renderer.colored_color_name(winner_team_numbers[winner_number])
    
      announcement_text += "!"
    
    self.text = announcement_text + "\n" + separator + "\n"
    
    player_number = 0
    row = 0
    column = 0
    
    # decide how many columns for different numbers of players will the table have
    columns_by_player_count = (1,2,3,2,3,3,4,4,3,5)
    table_columns = columns_by_player_count[len(players) - 1]
    
    while player_number < len(players):
      player = players[player_number]
      
      self.text += (
        Renderer.colored_color_name(player.get_number()) + " (" +
        Renderer.colored_text(player.get_team_number(),str(player.get_team_number() + 1)) + "): " +
        str(player.get_kills()) + "/" + str(player.get_wins())
        )
      
      column += 1
      
      if column >= table_columns:
        column = 0
        row += 1
        self.text += "\n"
      else:
        self.text += "     "
      
      player_number += 1
    
    self.text += "\n" + separator

#==============================================================================
    
class PlayMenu(Menu):

  #----------------------------------------------------------------------------

  def __init__(self,sound_player):
    super(PlayMenu,self).__init__(sound_player)
    self.items = [("resume","to main menu")]

  #----------------------------------------------------------------------------
  
  def action_pressed(self, action):
    super(PlayMenu,self).action_pressed(action)
    self.prompt_if_needed((1,0))

#==============================================================================
      
class SettingsMenu(Menu):
  COLOR_ON = "^#1DF53A"
  COLOR_OFF = "^#F51111"

  #----------------------------------------------------------------------------
  
  def __init__(self, sound_player, settings, game):
    super(SettingsMenu,self).__init__(sound_player)
    self.settings = settings
    self.game = game
    self.update_items()  

  #----------------------------------------------------------------------------
   
  def bool_to_str(self, bool_value):
    return SettingsMenu.COLOR_ON + "on" if bool_value else SettingsMenu.COLOR_OFF + "off"

  #----------------------------------------------------------------------------
    
  def update_items(self):
    self.items = [(
      "sound volume: " + (SettingsMenu.COLOR_ON if self.settings.sound_is_on() else SettingsMenu.COLOR_OFF) + str(int(self.settings.sound_volume * 10) * 10) + " %",
      "music volume: " + (SettingsMenu.COLOR_ON if self.settings.music_is_on() > 0.0 else SettingsMenu.COLOR_OFF) + str(int(self.settings.music_volume * 10) * 10) + " %",
      "screen resolution: " + str(self.settings.screen_resolution[0]) + " x " + str(self.settings.screen_resolution[1]),
      "fullscreen: " + self.bool_to_str(self.settings.fullscreen),
      "allow control by mouse: " + self.bool_to_str(self.settings.control_by_mouse),
      "configure controls",
      "complete reset",
      "back"
      )]    

  #----------------------------------------------------------------------------
    
  def action_pressed(self, action):
    super(SettingsMenu,self).action_pressed(action)

    self.prompt_if_needed((6,0))
    
    mouse_control_selected = False
    fullscreen_selected = False
    
    if self.state == Menu.MENU_STATE_SELECTING:
      if action == PlayerKeyMaps.ACTION_RIGHT:
        if self.selected_item == (0,0):
          self.settings.sound_volume = min(1.0,self.settings.sound_volume + 0.1)
          self.game.apply_sound_settings()
          self.game.save_settings()
        elif self.selected_item == (1,0):
          self.settings.music_volume = min(1.0,self.settings.music_volume + 0.1)
          self.game.apply_sound_settings()
          self.game.save_settings()
        elif self.selected_item == (2,0):
          self.settings.screen_resolution = Settings.POSSIBLE_SCREEN_RESOLUTIONS[(self.settings.current_resolution_index() + 1) % len(Settings.POSSIBLE_SCREEN_RESOLUTIONS)]      
          self.game.apply_screen_settings()
          self.game.save_settings()
      elif action == PlayerKeyMaps.ACTION_LEFT:
        if self.selected_item == (0,0):
          self.settings.sound_volume = max(0.0,self.settings.sound_volume - 0.1)
          self.game.apply_sound_settings()
          self.game.save_settings()
        elif self.selected_item == (1,0):
          self.settings.music_volume = max(0.0,self.settings.music_volume - 0.1)
          self.game.apply_sound_settings()
          self.game.save_settings()
        elif self.selected_item == (2,0):
          self.settings.screen_resolution = Settings.POSSIBLE_SCREEN_RESOLUTIONS[(self.settings.current_resolution_index() - 1) % len(Settings.POSSIBLE_SCREEN_RESOLUTIONS)]
          self.game.apply_screen_settings()
          self.game.save_settings()
    elif self.state == Menu.MENU_STATE_CONFIRM:
      if self.selected_item == (6,0):
        
        debug_log("resetting settings")
        
        self.settings.reset()
        self.game.save_settings()
        self.game.apply_sound_settings()
        self.game.apply_screen_settings()
        self.game.apply_other_settings()
        self.confirm_prompt_result = None
        self.state = Menu.MENU_STATE_SELECTING    
      elif self.selected_item == (3,0):
        fullscreen_selected = True
        self.state = Menu.MENU_STATE_SELECTING  
      elif self.selected_item == (4,0):
        mouse_control_selected = True
        self.state = Menu.MENU_STATE_SELECTING  
      elif self.selected_item != (7,0) and self.selected_item != (5,0):
        self.state = Menu.MENU_STATE_SELECTING  
      
    if mouse_control_selected:
      self.settings.control_by_mouse = not self.settings.control_by_mouse
      self.game.apply_other_settings()
      self.game.save_settings()
      self.state = Menu.MENU_STATE_SELECTING
      
    if fullscreen_selected:
      self.settings.fullscreen = not self.settings.fullscreen
      self.game.apply_screen_settings()
      self.game.save_settings()
      self.state = Menu.MENU_STATE_SELECTING

    self.update_items()

#==============================================================================
          
class ControlsMenu(Menu):

  #----------------------------------------------------------------------------

  def __init__(self, sound_player, player_key_maps, game):
    super(ControlsMenu,self).__init__(sound_player)
    self.player_key_maps = player_key_maps
    self.game = game
    self.waiting_for_key = None     # if not None, this contains a tuple (player number, action) of action that is currently being remapped
    self.wait_for_release = False   # used to wait for keys release before new key map is captured

    self.update_items()

  #----------------------------------------------------------------------------

  def color_key_string(self, key_string):
    return "^#38A8F2" + key_string if key_string != "none" else "^#E83535" + key_string

  #----------------------------------------------------------------------------
    
  def update_items(self):
    self.items = [["go back"]]
    
    prompt_string = "press some key"
    
    for i in range(Game.NUMBER_OF_CONTROLLED_PLAYERS):
      player_string = "p " + str(i + 1)
      
      player_maps = self.player_key_maps.get_players_key_mapping(i)

      for action in player_maps:
        item_string = player_string + " " + PlayerKeyMaps.ACTION_NAMES[action] + ": "
        
        if self.waiting_for_key == (i,action):
          item_string += prompt_string
        else:
          item_string += self.color_key_string(PlayerKeyMaps.key_to_string(player_maps[action]))
        
        self.items[0] += [item_string]
      
    # add menu item
    item_string = "open menu: "
    
    if self.waiting_for_key != None and self.waiting_for_key[1] == PlayerKeyMaps.ACTION_MENU:
      item_string += prompt_string
    else:
      item_string += self.color_key_string(PlayerKeyMaps.key_to_string(self.player_key_maps.get_menu_key_map()))
      
    self.items[0] += [item_string]

  #----------------------------------------------------------------------------

  ## This should be called periodically when the menu is active. It will
  #  take care of catching pressed keys if waiting for key remap.

  def update(self, player_key_maps):
    if self.waiting_for_key != None:
      keys_pressed = list(pygame.key.get_pressed()) 
      
      key_pressed = None
      
      mouse_actions = player_key_maps.get_current_mouse_control_states()     
      
      if len(mouse_actions) > 0:
        key_pressed = mouse_actions[0]
        
      for i in range(len(keys_pressed)):      # find pressed key
        if not (i in (pygame.K_NUMLOCK,pygame.K_CAPSLOCK,pygame.K_SCROLLOCK,322)) and keys_pressed[i]:
          key_pressed = i
          break
        
      if self.wait_for_release:
        if key_pressed == None:
          self.wait_for_release = False
      else:
         if key_pressed != None:
           
           debug_log("new key mapping")
           
           self.player_key_maps.set_one_key_map(key_pressed,self.waiting_for_key[0],self.waiting_for_key[1])
           self.waiting_for_key = None
           self.state = Menu.MENU_STATE_SELECTING
           self.game.save_settings()
           
           for item in self.action_keys_previous_state:
             self.action_keys_previous_state[item] = True
    
    self.update_items()

  #----------------------------------------------------------------------------

  def action_pressed(self, action):
    super(ControlsMenu,self).action_pressed(action)
    
    if self.waiting_for_key != None:
      self.waiting_for_key = None
      self.state = Menu.MENU_STATE_SELECTING
    elif action == PlayerKeyMaps.ACTION_BOMB and self.selected_item[0] > 0:
      # new key map will be captured
      helper_index = self.selected_item[0] - 1
      
      if helper_index == Game.NUMBER_OF_CONTROLLED_PLAYERS * 6:   # 6 controls for each player, then menu item follows
        self.waiting_for_key = (-1,PlayerKeyMaps.ACTION_MENU)
      else:
        action_index = helper_index % 6
        
        helper_array = (PlayerKeyMaps.ACTION_UP,PlayerKeyMaps.ACTION_RIGHT,PlayerKeyMaps.ACTION_DOWN,PlayerKeyMaps.ACTION_LEFT,PlayerKeyMaps.ACTION_BOMB,PlayerKeyMaps.ACTION_SPECIAL)
        helper_action = helper_array[action_index]
        
        self.waiting_for_key = (helper_index / 6,helper_action)
      
      self.wait_for_release = True
      
      self.state = Menu.MENU_STATE_SELECTING
      
    self.update_items()

#==============================================================================
        
class AboutMenu(Menu):

  #----------------------------------------------------------------------------

  def __init__(self,sound_player):
    super(AboutMenu,self).__init__(sound_player) 
    self.text = ("^#2E44BFBombman^#FFFFFF - free Bomberman clone, ^#4EF259version " + Game.VERSION_STR + "\n"
                 "Miloslav \"tastyfish\" Ciz, 2016\n\n"
                 "This game is free software, published under CC0 1.0.\n")
    self.items = [["ok, nice, back"]]

#==============================================================================
    
class MapSelectMenu(Menu):

  #----------------------------------------------------------------------------

  def __init__(self,sound_player):
    super(MapSelectMenu,self).__init__(sound_player)
    self.text = "Now select a map."
    self.map_filenames = []
    self.update_items()

  #----------------------------------------------------------------------------
    
  def update_items(self):
    self.map_filenames = sorted([filename for filename in os.listdir(Game.MAP_PATH) if os.path.isfile(os.path.join(Game.MAP_PATH,filename))])

    special_color = (100,100,255)

    self.items = [["^" + Renderer.rgb_to_html_notation(special_color) + "pick random","^" + Renderer.rgb_to_html_notation(special_color) + "each game random"]]

    for filename in self.map_filenames:
      self.items[0].append(filename)

  #----------------------------------------------------------------------------
    
  def random_was_selected(self):
    return self.selected_item[0] == 1

  #----------------------------------------------------------------------------
    
  def show_map_preview(self):
    return self.selected_item[0] != 0 and self.selected_item[0] != 1

  #----------------------------------------------------------------------------
    
  def get_random_map_name(self):
    return random.choice(self.map_filenames)

  #----------------------------------------------------------------------------
    
  def get_selected_map_name(self):
    if self.selected_item[0] == 0:                # pick random
      return random.choice(self.map_filenames)
    
    try:
      index = self.selected_item[0] - 2
      
      if index < 0:
        return ""
      
      return self.map_filenames[index]
    except IndexError:
      return ""

#==============================================================================
    
class PlaySetupMenu(Menu):

  #----------------------------------------------------------------------------

  def __init__(self, sound_player, play_setup):
    super(PlaySetupMenu,self).__init__(sound_player)
    self.selected_item = (0,1)
    self.play_setup = play_setup
    self.update_items()

  #----------------------------------------------------------------------------
    
  def update_items(self):
    self.items = [[],[],["games: " + str(self.play_setup.get_number_of_games())]]
    
    dark_grey = (50,50,50)
      
    self.items[0].append("back")
    self.items[1].append("next")
         
    for i in range(10):
      slot_color = Renderer.COLOR_RGB_VALUES[i] if i != Game.COLOR_BLACK else dark_grey  # black with black border not visible, use dark grey
      
      self.items[0].append(Renderer.colored_text(i,str(i + 1)) + ": ")
      
      slot = self.play_setup.get_slots()[i]
      
      if slot == None:
        self.items[0][-1] += "-"
        self.items[1].append("-")
      else:
        team_color = Renderer.COLOR_RGB_VALUES[slot[1]] if slot[1] != Game.COLOR_BLACK else dark_grey
        self.items[0][-1] += ("player " + str(slot[0] + 1)) if slot[0] >= 0 else "AI"
        self.items[1].append(Renderer.colored_text(slot[1],str(slot[1] + 1)))    # team number

  #----------------------------------------------------------------------------
 
  def action_pressed(self, action):
    super(PlaySetupMenu,self).action_pressed(action)
    
    if action == PlayerKeyMaps.ACTION_UP:
      if self.selected_item == (0,2):
        self.play_setup.increase_number_of_games()  
        self.state = Menu.MENU_STATE_SELECTING
    elif action == PlayerKeyMaps.ACTION_DOWN:
      if self.selected_item == (0,2):
        self.play_setup.decrease_number_of_games()
        self.state = Menu.MENU_STATE_SELECTING
    elif self.state == Menu.MENU_STATE_CONFIRM:  
      if self.selected_item == (0,2):
        self.play_setup.increase_number_of_games()
        self.state = Menu.MENU_STATE_SELECTING
    
      if self.selected_item[0] > 0:  # override behaviour for confirm button
        slots = self.play_setup.get_slots()
        slot = slots[self.selected_item[0] - 1]
      
        if self.selected_item[1] == 0:
          # changing players
        
          if slot == None:
            new_value = -1
          else:
            new_value = slot[0] + 1
          
          slots[self.selected_item[0] - 1] = (new_value,slot[1] if slot != None else self.selected_item[0] - 1) if new_value <= 3 else None  
        else:
          # changing teams
        
          if slot != None:
            slots[self.selected_item[0] - 1] = (slot[0],(slot[1] + 1) % 10)
      
        self.state = Menu.MENU_STATE_SELECTING
      
    self.update_items()
 
#==============================================================================
      
class Renderer(object):
  COLOR_RGB_VALUES = [
    (210,210,210),           # white
    (10,10,10),              # black
    (255,0,0),               # red
    (0,0,255),               # blue
    (0,255,0),               # green
    (52,237,250),            # cyan
    (255,255,69),            # yellow
    (255,192,74),            # orange
    (168,127,56),            # brown
    (209,117,206)            # purple
    ]
    
  MAP_TILE_WIDTH = 50              ##< tile width in pixels
  MAP_TILE_HEIGHT = 45             ##< tile height in pixels
  MAP_TILE_HALF_WIDTH = MAP_TILE_WIDTH / 2
  MAP_TILE_HALF_HEIGHT = MAP_TILE_HEIGHT / 2

  PLAYER_SPRITE_CENTER = (30,80)   ##< player's feet (not geometrical) center of the sprite in pixels
  BOMB_SPRITE_CENTER = (22,33)
  SHADOW_SPRITE_CENTER = (25,22)

  MAP_BORDER_WIDTH = 37
  
  ANIMATION_EVENT_EXPLOSION = 0
  ANIMATION_EVENT_RIP = 1
  ANIMATION_EVENT_SKELETION = 2
  ANIMATION_EVENT_DISEASE_CLOUD = 3
  ANIMATION_EVENT_DIE = 4
  
  FONT_SMALL_SIZE = 12
  FONT_NORMAL_SIZE = 25
  MENU_LINE_SPACING = 10
  MENU_FONT_COLOR = (255,255,255)
  
  SCROLLBAR_RELATIVE_POSITION = (-200,-50)
  SCROLLBAR_HEIGHT = 300
  
  MENU_DESCRIPTION_Y_OFFSET = -80

  #----------------------------------------------------------------------------

  def __init__(self):
    self.update_screen_info()

    self.environment_images = {}
    
    self.preview_map_name = ""
    self.preview_map_image = None

    self.font_small = pygame.font.Font(os.path.join(Game.RESOURCE_PATH,"LibertySans.ttf"),Renderer.FONT_SMALL_SIZE)
    self.font_normal = pygame.font.Font(os.path.join(Game.RESOURCE_PATH,"LibertySans.ttf"),Renderer.FONT_NORMAL_SIZE)

    self.previous_mouse_coordinates = (-1,-1)

    pygame.mouse.set_visible(False)    # hide mouse cursor

    environment_names = ["env1","env2","env3","env4","env5","env6","env7"]

    for environment_name in environment_names:
      filename_floor = os.path.join(Game.RESOURCE_PATH,"tile_" + environment_name + "_floor.png")
      filename_block = os.path.join(Game.RESOURCE_PATH,"tile_" + environment_name + "_block.png")
      filename_wall = os.path.join(Game.RESOURCE_PATH,"tile_" + environment_name + "_wall.png")

      self.environment_images[environment_name] = (pygame.image.load(filename_floor),pygame.image.load(filename_block),pygame.image.load(filename_wall))

    self.prerendered_map = None     # keeps a reference to a map for which some parts have been prerendered
    self.prerendered_map_background = pygame.Surface((GameMap.MAP_WIDTH * Renderer.MAP_TILE_WIDTH + 2 * Renderer.MAP_BORDER_WIDTH,GameMap.MAP_HEIGHT * Renderer.MAP_TILE_HEIGHT + 2 * Renderer.MAP_BORDER_WIDTH))

    self.player_images = []         ##< player images in format [color index]["sprite name"] and [color index]["sprite name"][frame]

    for i in range(10):
      self.player_images.append({})
      
      for helper_string in ["up","right","down","left"]:
        self.player_images[-1][helper_string] =  self.color_surface(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"player_" + helper_string + ".png")),i)
        
        string_index = "walk " + helper_string
      
        self.player_images[-1][string_index] = []
        self.player_images[-1][string_index].append(self.color_surface(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"player_" + helper_string + "_walk1.png")),i))
        
        if helper_string == "up" or helper_string == "down":
          self.player_images[-1][string_index].append(self.color_surface(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"player_" + helper_string + "_walk2.png")),i))
        else:
          self.player_images[-1][string_index].append(self.player_images[-1][helper_string])
        
        self.player_images[-1][string_index].append(self.color_surface(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"player_" + helper_string + "_walk3.png")),i))
        self.player_images[-1][string_index].append(self.player_images[-1][string_index][0])
        
        string_index = "box " + helper_string
        self.player_images[-1][string_index] = self.color_surface(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"player_" + helper_string + "_box.png")),i)
     
    self.bomb_images = []
    self.bomb_images.append(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"bomb1.png")))
    self.bomb_images.append(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"bomb2.png")))
    self.bomb_images.append(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"bomb3.png")))
    self.bomb_images.append(self.bomb_images[0])
     
    # load flame images
    
    self.flame_images = []
    
    for i in [1,2]:
      helper_string = "flame" + str(i)
      
      self.flame_images.append({})
      self.flame_images[-1]["all"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,helper_string + ".png"))
      self.flame_images[-1]["horizontal"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,helper_string + "_horizontal.png"))
      self.flame_images[-1]["vertical"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,helper_string + "_vertical.png"))
      self.flame_images[-1]["left"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,helper_string + "_left.png"))
      self.flame_images[-1]["right"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,helper_string + "_right.png"))
      self.flame_images[-1]["up"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,helper_string + "_up.png"))
      self.flame_images[-1]["down"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,helper_string + "_down.png"))
      
    # load item images
    
    self.item_images = {}
    
    self.item_images[GameMap.ITEM_BOMB] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_bomb.png"))
    self.item_images[GameMap.ITEM_FLAME] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_flame.png"))
    self.item_images[GameMap.ITEM_SUPERFLAME] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_superflame.png"))
    self.item_images[GameMap.ITEM_SPEEDUP] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_speedup.png"))
    self.item_images[GameMap.ITEM_DISEASE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_disease.png"))
    self.item_images[GameMap.ITEM_RANDOM] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_random.png"))
    self.item_images[GameMap.ITEM_SPRING] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_spring.png"))
    self.item_images[GameMap.ITEM_SHOE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_shoe.png"))
    self.item_images[GameMap.ITEM_MULTIBOMB] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_multibomb.png"))
    self.item_images[GameMap.ITEM_RANDOM] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_random.png"))
    self.item_images[GameMap.ITEM_BOXING_GLOVE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_boxing_glove.png"))
    self.item_images[GameMap.ITEM_DETONATOR] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_detonator.png"))
    self.item_images[GameMap.ITEM_THROWING_GLOVE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"item_throwing_glove.png"))
      
    # load/make gui images
    
    self.gui_images = {}
    self.gui_images["info board"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_info_board.png"))   
    self.gui_images["arrow up"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_arrow_up.png"))   
    self.gui_images["arrow down"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_arrow_down.png"))   
    self.gui_images["seeker"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_seeker.png"))
    self.gui_images["cursor"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_cursor.png"))   
    self.gui_images["prompt"] = self.render_text(self.font_normal,"You sure?",(255,255,255))
    self.gui_images["version"] = self.render_text(self.font_small,"v " + Game.VERSION_STR,(0,100,0))
    
    self.player_info_board_images = [None for i in range(10)]  # up to date infoboard image for each player

    self.gui_images["out"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_out.png"))   
     
    self.gui_images["countdown"] = {}
    
    self.gui_images["countdown"][1] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_countdown_1.png"))
    self.gui_images["countdown"][2] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_countdown_2.png"))
    self.gui_images["countdown"][3] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_countdown_3.png"))
    
    self.menu_background_image = None  ##< only loaded when in menu
    self.menu_item_images = None       ##< images of menu items, only loaded when in menu
 
    # load other images
    
    self.other_images = {}
    
    self.other_images["shadow"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_shadow.png"))
    self.other_images["spring"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_spring.png"))
    self.other_images["antena"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_antena.png"))
     
    self.other_images["disease"] = []
    self.other_images["disease"].append(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_disease1.png")))
    self.other_images["disease"].append(pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_disease2.png")))    
          
    # load icon images
    
    self.icon_images = {}
    self.icon_images[GameMap.ITEM_BOMB] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_bomb.png"))
    self.icon_images[GameMap.ITEM_FLAME] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_flame.png"))
    self.icon_images[GameMap.ITEM_SPEEDUP] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_speedup.png"))
    self.icon_images[GameMap.ITEM_SHOE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_kicking_shoe.png"))
    self.icon_images[GameMap.ITEM_BOXING_GLOVE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_boxing_glove.png"))
    self.icon_images[GameMap.ITEM_THROWING_GLOVE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_throwing_glove.png"))
    self.icon_images[GameMap.ITEM_SPRING] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_spring.png"))
    self.icon_images[GameMap.ITEM_MULTIBOMB] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_multibomb.png"))
    self.icon_images[GameMap.ITEM_DISEASE] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_disease.png"))
    self.icon_images[GameMap.ITEM_DETONATOR] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_detonator.png"))
    self.icon_images["etc"] = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"icon_etc.png"))
    
    # load animations
    
    self.animations = {}
    self.animations[Renderer.ANIMATION_EVENT_EXPLOSION] = Animation(os.path.join(Game.RESOURCE_PATH,"animation_explosion"),1,10,".png",7)
    self.animations[Renderer.ANIMATION_EVENT_RIP] = Animation(os.path.join(Game.RESOURCE_PATH,"animation_rip"),1,1,".png",0.3)
    self.animations[Renderer.ANIMATION_EVENT_SKELETION] = Animation(os.path.join(Game.RESOURCE_PATH,"animation_skeleton"),1,10,".png",7)
    self.animations[Renderer.ANIMATION_EVENT_DISEASE_CLOUD] = Animation(os.path.join(Game.RESOURCE_PATH,"animation_disease"),1,6,".png",5)
    self.animations[Renderer.ANIMATION_EVENT_DIE] = Animation(os.path.join(Game.RESOURCE_PATH,"animation_die"),1,7,".png",7)

    self.party_circles = []     ##< holds info about party cheat circles, list of tuples in format (coords,radius,color,phase,speed)
    self.party_circles.append(((-180,110),40,(255,100,50),0.0,1.0))
    self.party_circles.append(((160,70),32,(100,200,150),1.4,1.5))
    self.party_circles.append(((40,-150),65,(150,100,170),2.0,0.7))
    self.party_circles.append(((-170,-92),80,(200,200,32),3.2,1.3))
    self.party_circles.append(((50,110),63,(10,180,230),0.1,1.8))
    self.party_circles.append(((205,-130),72,(180,150,190),0.5,2.0))
    
    self.party_players = []     ##< holds info about party cheat players, list of tuples in format (coords,color index,millisecond delay, rotate right)
    self.party_players.append(((-230,80),0,0,True))
    self.party_players.append(((180,10),2,220,False))
    self.party_players.append(((90,-150),4,880,True))
    self.party_players.append(((-190,-95),6,320,False))
    self.party_players.append(((-40,110),8,50,True))
    
    self.party_bombs = []       ##< holds info about party bombs, list of lists in format [x,y,increment x,increment y]
    self.party_bombs.append([10,30,1,1])
    self.party_bombs.append([700,200,1,-1])
    self.party_bombs.append([512,512,-1,1])
    self.party_bombs.append([1024,20,-1,-1])
    self.party_bombs.append([900,300,1,1])
    self.party_bombs.append([30,700,1,1])
    self.party_bombs.append([405,530,1,-1])
    self.party_bombs.append([250,130,-1,-1])

  #----------------------------------------------------------------------------

  def update_screen_info(self):
    self.screen_resolution = Renderer.get_screen_size()
    self.screen_center = (self.screen_resolution[0] / 2,self.screen_resolution[1] / 2)
    self.map_render_location = Renderer.get_map_render_position()

  #----------------------------------------------------------------------------
  
  ## Converts (r,g,b) tuple to html #rrggbb notation.

  @staticmethod
  def rgb_to_html_notation(rgb_color):
    return "#" + hex(rgb_color[0])[2:].zfill(2) + hex(rgb_color[1])[2:].zfill(2) + hex(rgb_color[2])[2:].zfill(2)

  #----------------------------------------------------------------------------
     
  @staticmethod
  def colored_text(color_index, text, end_with_white=True):
    return "^" + Renderer.rgb_to_html_notation(Renderer.lighten_color(Renderer.COLOR_RGB_VALUES[color_index],75)) + text + "^#FFFFFF"

  #----------------------------------------------------------------------------
    
  @staticmethod
  def colored_color_name(color_index, end_with_white=True):
    return Renderer.colored_text(color_index,Game.COLOR_NAMES[color_index])

  #----------------------------------------------------------------------------
  
  ## Returns colored image from another image (replaces red color with given color). This method is slow. Color is (r,g,b) tuple of 0 - 1 floats.

  def color_surface(self, surface, color_number):
    result = surface.copy()
    
    # change all red pixels to specified color
    for j in range(result.get_size()[1]):
      for i in range(result.get_size()[0]):
        pixel_color = result.get_at((i,j))
        
        if pixel_color.r == 255 and pixel_color.g == 0 and pixel_color.b == 0:
          pixel_color.r = Renderer.COLOR_RGB_VALUES[color_number][0]
          pixel_color.g = Renderer.COLOR_RGB_VALUES[color_number][1]
          pixel_color.b = Renderer.COLOR_RGB_VALUES[color_number][2]
          result.set_at((i,j),pixel_color)

    return result

  #----------------------------------------------------------------------------

  def tile_position_to_pixel_position(self, tile_position,center=(0,0)):
    return (int(float(tile_position[0]) * Renderer.MAP_TILE_WIDTH) - center[0],int(float(tile_position[1]) * Renderer.MAP_TILE_HEIGHT) - center[1])

  #----------------------------------------------------------------------------

  @staticmethod
  def get_screen_size():
    display = pygame.display.get_surface()
    
    return display.get_size() if display != None else (0,0)

  #----------------------------------------------------------------------------

  @staticmethod  
  def get_map_render_position(): 
    screen_size = Renderer.get_screen_size()
    return ((screen_size[0] - Renderer.MAP_BORDER_WIDTH * 2 - Renderer.MAP_TILE_WIDTH * GameMap.MAP_WIDTH) / 2,(screen_size[1] - Renderer.MAP_BORDER_WIDTH * 2 - Renderer.MAP_TILE_HEIGHT * GameMap.MAP_HEIGHT - 50) / 2)  

  #----------------------------------------------------------------------------
    
  @staticmethod
  def map_position_to_pixel_position(map_position, offset = (0,0)):
    map_render_location = Renderer.get_map_render_position()
    return (map_render_location[0] + int(map_position[0] * Renderer.MAP_TILE_WIDTH) + Renderer.MAP_BORDER_WIDTH + offset[0],map_render_location[1] + int(map_position[1] * Renderer.MAP_TILE_HEIGHT) + Renderer.MAP_BORDER_WIDTH + offset[1])
    
  def set_resolution(self, new_resolution):
    self.screen_resolution = new_resolution

  #----------------------------------------------------------------------------

  @staticmethod
  def darken_color(color, by_how_may):
    r = max(color[0] - by_how_may,0)
    g = max(color[1] - by_how_may,0)
    b = max(color[2] - by_how_may,0)
    return (r,g,b)

  #----------------------------------------------------------------------------

  @staticmethod
  def lighten_color(color, by_how_may):
    r = min(color[0] + by_how_may,255)
    g = min(color[1] + by_how_may,255)
    b = min(color[2] + by_how_may,255)
    return (r,g,b)

  #----------------------------------------------------------------------------

  def __render_info_board_item_row(self, x, y, limit, item_type, player, board_image):   
    item_count = 20 if item_type == GameMap.ITEM_FLAME and player.get_item_count(GameMap.ITEM_SUPERFLAME) >= 1 else player.get_item_count(item_type)
   
    for i in range(item_count):
      if i > limit:
        break
        
      image_to_draw = self.icon_images[item_type]
        
      if i == limit and player.get_item_count(item_type) > limit + 1:
        image_to_draw = self.icon_images["etc"]
        
      board_image.blit(image_to_draw,(x,y))
      x += self.icon_images[item_type].get_size()[0]    

  #----------------------------------------------------------------------------

  ## Updates info board images in self.player_info_board_images. This should be called each frame, as
  #  rerendering is done only when needed.

  def update_info_boards(self, players):
    for i in range(10):      # for each player number
      update_needed = False
      
      if self.player_info_board_images[i] == None:
        self.player_info_board_images[i] = self.gui_images["info board"].copy()
        update_needed = True
      
      player = None
      
      for one_player in players:
        if one_player.get_number() == i:
          player = one_player
          break
      
      if player == None:
        continue
      
      if player.info_board_needs_update():
        update_needed = True
      
      if not update_needed or player == None:
        continue
      
      # rerendering needed here
      
      debug_log("updating info board " + str(i))
      
      board_image = self.player_info_board_images[i]
      
      board_image.blit(self.gui_images["info board"],(0,0))
      board_image.blit(self.font_small.render(str(player.get_kills()),True,(0,0,0)),(45,0))
      board_image.blit(self.font_small.render(str(player.get_wins()),True,(0,0,0)),(65,0))
      board_image.blit(self.font_small.render(Game.COLOR_NAMES[i],True,Renderer.darken_color(Renderer.COLOR_RGB_VALUES[i],100)),(4,2))
      
      if player.is_dead():
        board_image.blit(self.gui_images["out"],(15,34))
        continue
      
      # render items

      x = 5
      dy = 12

      self.__render_info_board_item_row(x,20,5,GameMap.ITEM_BOMB,player,board_image)
      self.__render_info_board_item_row(x,20 + dy,5,GameMap.ITEM_FLAME,player,board_image)
      self.__render_info_board_item_row(x,20 + 2 * dy,9,GameMap.ITEM_SPEEDUP,player,board_image)

      y = 20 + 3 * dy

      items_to_check = [
        GameMap.ITEM_SHOE,
        GameMap.ITEM_BOXING_GLOVE,
        GameMap.ITEM_THROWING_GLOVE,
        GameMap.ITEM_SPRING,
        GameMap.ITEM_MULTIBOMB,
        GameMap.ITEM_DETONATOR,
        GameMap.ITEM_DISEASE]
      
      for item in items_to_check:
        if player.get_item_count(item) or item == GameMap.ITEM_DISEASE and player.get_disease() != Player.DISEASE_NONE:
          board_image.blit(self.icon_images[item],(x,y))
          x += self.icon_images[item].get_size()[0] + 1
 
  #----------------------------------------------------------------------------

  def process_animation_events(self, animation_event_list):
    for animation_event in animation_event_list:
      self.animations[animation_event[0]].play(animation_event[1])

  #----------------------------------------------------------------------------

  ## Renders text with outline, line breaks, formatting, etc.

  def render_text(self, font, text_to_render, color, outline_color = (0,0,0), center = False):
    text_lines = text_to_render.split("\n")
    rendered_lines = []
    
    width = height = 0
    
    first_line = True
    
    for text_line in text_lines:
      line = text_line.lstrip().rstrip()
      
      if len(line) == 0:
        continue
      
      line_without_format = re.sub(r"\^.......","",line)     # remove all the markup in format ^#dddddd

      new_rendered_line = pygame.Surface(font.size(line_without_format),flags=pygame.SRCALPHA)
      
      x = 0
      first = True
      starts_with_format = line[0] == "^"
 
      for subline in line.split("^"):
        if len(subline) == 0:
          continue
        
        has_format = starts_with_format if first else True
        first = False

        text_color = color
        
        if has_format:
          text_color = pygame.Color(subline[:7])
          subline = subline[7:]
        
        new_rendered_subline = font.render(subline,True,outline_color)   # create text with outline
        new_rendered_subline.blit(new_rendered_subline,(0,2))
        new_rendered_subline.blit(new_rendered_subline,(1,0))
        new_rendered_subline.blit(new_rendered_subline,(-1,0))
        new_rendered_subline.blit(font.render(subline,True,text_color),(0,1))      
        
        new_rendered_line.blit(new_rendered_subline,(x,0))
        
        x += new_rendered_subline.get_size()[0]
        
      rendered_lines.append(new_rendered_line)

      if not first_line:
        height += Renderer.MENU_LINE_SPACING
      
      first_line = False

      height += rendered_lines[-1].get_size()[1]
      width = max(width,rendered_lines[-1].get_size()[0])
    
    result = pygame.Surface((width,height),flags=pygame.SRCALPHA)
    
    y_step = font.get_height() + Renderer.MENU_LINE_SPACING
    
    for i in range(len(rendered_lines)):
      result.blit(rendered_lines[i],(0 if not center else (width - rendered_lines[i].get_size()[0]) / 2,i * y_step))
    
    return result

  #----------------------------------------------------------------------------

  ## Updates images in self.menu_item_images (only if needed).

  def update_menu_item_images(self, menu):
    if self.menu_item_images == None:
      self.menu_item_images = {}       # format: (row, column) : (item text, image)
    
    items = menu.get_items()

    item_coordinates = []
    
    for j in range(len(items)):
      for i in range(len(items[j])):
        item_coordinates.append((j,i))
    
    if len(menu.get_text()) != 0:
      item_coordinates.append(0)       # this is the menu description text

    for menu_coordinates in item_coordinates:
      update_needed = False
        
      if not (menu_coordinates in self.menu_item_images):
        update_needed = True
    
      if menu_coordinates == 0:
        item_text = menu.get_text()
        center_text = True
      else:
        item_text = items[menu_coordinates[0]][menu_coordinates[1]]
        center_text = False
      
      if not update_needed and item_text != self.menu_item_images[menu_coordinates][0]:
        update_needed = True        
          
      if update_needed:
        debug_log("updating menu item " + str(menu_coordinates))
          
        new_image = self.render_text(self.font_normal,item_text,Renderer.MENU_FONT_COLOR,center = center_text)
          
        # text itself
        new_image.blit(new_image,(0,1))
          
        self.menu_item_images[menu_coordinates] = (item_text,new_image)

  #----------------------------------------------------------------------------
    
  def render_menu(self, menu_to_render, game):
    result = pygame.Surface(self.screen_resolution)
    
    if self.menu_background_image == None:
      self.menu_background_image = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"gui_menu_background.png"))

    background_position = (self.screen_center[0] - self.menu_background_image.get_size()[0] / 2,self.screen_center[1] - self.menu_background_image.get_size()[1] / 2)
      
    profiler.measure_start("menu rend. backg.")
    result.blit(self.menu_background_image,background_position)
    profiler.measure_stop("menu rend. backg.")

    profiler.measure_start("menu rend. party")
    if game.cheat_is_active(Game.CHEAT_PARTY):
      for circle_info in self.party_circles:           # draw circles
        circle_coords = (self.screen_center[0] + circle_info[0][0],self.screen_center[1] + circle_info[0][1])     
        radius_coefficient = (math.sin(pygame.time.get_ticks() * circle_info[4] / 100.0 + circle_info[3]) + 1) / 2.0
        circle_radius = int(circle_info[1] * radius_coefficient)
        pygame.draw.circle(result,circle_info[2],circle_coords,circle_radius)
    
      for player_info in self.party_players:           # draw players
        player_coords = (self.screen_center[0] + player_info[0][0],self.screen_center[1] + player_info[0][1])     
        
        player_direction = (int((pygame.time.get_ticks() + player_info[2]) / 150)) % 4
        
        if not player_info[3]:
          player_direction = 3 - player_direction
        
        direction_string = ("up","right","down","left")[player_direction]
        
        if int(pygame.time.get_ticks() / 500) % 2 == 0:
          direction_string = "box " + direction_string
        
        result.blit(self.player_images[player_info[1]][direction_string],player_coords)
    
      for bomb_info in self.party_bombs:
        result.blit(self.bomb_images[0],(bomb_info[0],bomb_info[1]))
        bomb_info[0] += bomb_info[2]
        bomb_info[1] += bomb_info[3]
        
        if bomb_info[0] < 0:     # border collision, change direction
          bomb_info[2] = 1
        elif bomb_info[0] > self.screen_resolution[0] - 50:
          bomb_info[2] = -1
    
        if bomb_info[1] < 0:     # border collision, change direction
          bomb_info[3] = 1
        elif bomb_info[1] > self.screen_resolution[1] - 50:
          bomb_info[3] = -1
    
    profiler.measure_stop("menu rend. party")
    
    version_position = (3,1)
    
    result.blit(self.gui_images["version"],version_position)
    
    profiler.measure_start("menu rend. item update")
    self.update_menu_item_images(menu_to_render)
    
    # render menu description text
    
    y = self.screen_center[1] + Renderer.MENU_DESCRIPTION_Y_OFFSET
    
    if len(menu_to_render.get_text()) != 0:
      result.blit(self.menu_item_images[0][1],(self.screen_center[0] - self.menu_item_images[0][1].get_size()[0] / 2,y))    # menu description text image is at index 0      
      y += self.menu_item_images[0][1].get_size()[1] + Renderer.MENU_LINE_SPACING * 2
    
    menu_items = menu_to_render.get_items()
    
    columns = len(menu_items)   # how many columns there are
    
    column_x_space = 150
    
    if columns % 2 == 0:
      xs = [self.screen_center[0] + i * column_x_space - ((columns - 1) * column_x_space / 2) for i in range(columns)] # even number of columns
    else:
      xs = [self.screen_center[0] + (i - columns / 2) * column_x_space for i in range(columns)]
    
    selected_coordinates = menu_to_render.get_selected_item()
    
    items_y = y
    
    profiler.measure_stop("menu rend. item update")
    
    # render scrollbar if needed
    
    rows = 0
    
    for column in menu_items:
      rows = max(rows,len(column))

    if rows > Menu.MENU_MAX_ITEMS_VISIBLE:
      x = xs[0] + Renderer.SCROLLBAR_RELATIVE_POSITION[0]
      
      result.blit(self.gui_images["arrow up"],(x,items_y))
      result.blit(self.gui_images["arrow down"],(x,items_y + Renderer.SCROLLBAR_HEIGHT))
      
      scrollbar_position = int(items_y + selected_coordinates[0] / float(rows) * Renderer.SCROLLBAR_HEIGHT)
      result.blit(self.gui_images["seeker"],(x,scrollbar_position))
    
    mouse_coordinates = pygame.mouse.get_pos()
    
    # render items
    
    profiler.measure_start("menu rend. items")
    
    for j in range(len(menu_items)):
      y = items_y
      
      for i in range(min(Menu.MENU_MAX_ITEMS_VISIBLE,len(menu_items[j]) - menu_to_render.get_scroll_position())):
        item_image = self.menu_item_images[(j,i + menu_to_render.get_scroll_position())][1]

        x = xs[j] - item_image.get_size()[0] / 2
                
        if (i + menu_to_render.get_scroll_position(),j) == selected_coordinates:
          # item is selected
          scale = (8 + math.sin(pygame.time.get_ticks() / 40.0)) / 7.0    # make the pulsating effect
          item_image = pygame.transform.scale(item_image,(int(scale * item_image.get_size()[0]),int(scale * item_image.get_size()[1])))
          x = xs[j] - item_image.get_size()[0] / 2
          pygame.draw.rect(result,(255,0,0),pygame.Rect(x - 4,y - 2,item_image.get_size()[0] + 8,item_image.get_size()[1] + 4))
        
        result.blit(item_image,(x,y))
        
        # did mouse go over the item?
        
        if (not game.get_settings().control_by_mouse) and (self.previous_mouse_coordinates != mouse_coordinates) and (x <= mouse_coordinates[0] <= x + item_image.get_size()[0]) and (y <= mouse_coordinates[1] <= y + item_image.get_size()[1]):
          item_coordinates = (i + menu_to_render.get_scroll_position(),j)
          menu_to_render.mouse_went_over_item(item_coordinates)
       
        y += Renderer.FONT_NORMAL_SIZE + Renderer.MENU_LINE_SPACING
    
    profiler.measure_stop("menu rend. items")
    
    mouse_events = game.get_player_key_maps().get_mouse_button_events()
    
    for i in range(len(mouse_events)):
      if mouse_events[i]:
        menu_to_render.mouse_button_pressed(i)
    
    self.previous_mouse_coordinates = mouse_coordinates
    
    # render confirm dialog if prompting
    
    if menu_to_render.get_state() == Menu.MENU_STATE_CONFIRM_PROMPT:
      width = 120
      height = 80
      x = self.screen_center[0] - width / 2
      y = self.screen_center[1] - height / 2
      
      pygame.draw.rect(result,(0,0,0),pygame.Rect(x,y,width,height))
      pygame.draw.rect(result,(255,255,255),pygame.Rect(x,y,width,height),1)
      
      text_image = pygame.transform.rotate(self.gui_images["prompt"],math.sin(pygame.time.get_ticks() / 100) * 5)
      
      x = self.screen_center[0] - text_image.get_size()[0] / 2
      y = self.screen_center[1] - text_image.get_size()[1] / 2
      
      result.blit(text_image,(x,y))
    
    # map preview
    
    profiler.measure_start("menu rend. preview")
    
    if isinstance(menu_to_render,MapSelectMenu):       # also not too nice    
      if menu_to_render.show_map_preview():
        self.update_map_preview_image(menu_to_render.get_selected_map_name())
        result.blit(self.preview_map_image,(self.screen_center[0] + 180,items_y))
    
    profiler.measure_stop("menu rend. preview")
    
    # draw cursor only if control by mouse is not allowed - wouldn't make sense
    
    if not game.get_settings().control_by_mouse:
      result.blit(self.gui_images["cursor"],pygame.mouse.get_pos())
    
    return result

  #----------------------------------------------------------------------------

  def update_map_preview_image(self, map_filename):
    if map_filename == "":
      self.preview_map_name = ""
      self.preview_map_image = None
      return
    
    if self.preview_map_name != map_filename:
      debug_log("updating map preview of " + map_filename)
      
      self.preview_map_name = map_filename
      
      tile_size = 7
      tile_half_size = tile_size / 2
    
      map_info_border_size = 5
    
      self.preview_map_image = pygame.Surface((tile_size * GameMap.MAP_WIDTH,tile_size * GameMap.MAP_HEIGHT + map_info_border_size + Renderer.MAP_TILE_HEIGHT))
    
      with open(os.path.join(Game.MAP_PATH,map_filename)) as map_file:
        map_data = map_file.read()
        temp_map = GameMap(map_data,PlaySetup(),0,0)
        
        for y in range(GameMap.MAP_HEIGHT):
          for x in range(GameMap.MAP_WIDTH):
            tile = temp_map.get_tile_at((x,y))
            tile_kind = tile.kind
            
            pos_x = x * tile_size
            pos_y = y * tile_size
            
            tile_special_object = tile.special_object
            
            if tile_special_object == None: 
              if tile_kind == MapTile.TILE_BLOCK:
                tile_color = (120,120,120)
              elif tile_kind == MapTile.TILE_WALL:
                tile_color = (60,60,60)
              else:                                            # floor
                tile_color = (230,230,230)
            else:
              if tile_special_object == MapTile.SPECIAL_OBJECT_LAVA:
                tile_color = (200,0,0)
              elif tile_special_object == MapTile.SPECIAL_OBJECT_TELEPORT_A or tile_special_object == MapTile.SPECIAL_OBJECT_TELEPORT_B:
                tile_color = (0,0,200)
              elif tile_special_object == MapTile.SPECIAL_OBJECT_TRAMPOLINE:
                tile_color = (0,200,0)
              elif tile_kind == MapTile.TILE_FLOOR:           # arrow
                tile_color = (200,200,0)
              else:
                tile_color = (230,230,230)
            
            pygame.draw.rect(self.preview_map_image,tile_color,pygame.Rect(pos_x,pos_y,tile_size,tile_size))

        starting_positions = temp_map.get_starting_positions()

        for player_index in range(len(starting_positions)):
          draw_position = (int(starting_positions[player_index][0]) * tile_size + tile_half_size,int(starting_positions[player_index][1]) * tile_size + tile_half_size)
           
          pygame.draw.rect(self.preview_map_image,tile_color,pygame.Rect(pos_x,pos_y,tile_size,tile_size))
          pygame.draw.circle(self.preview_map_image,Renderer.COLOR_RGB_VALUES[player_index],draw_position,tile_half_size)

        y = tile_size * GameMap.MAP_HEIGHT + map_info_border_size
        column = 0

        self.preview_map_image.blit(self.environment_images[temp_map.get_environment_name()][0],(0,y))

        # draw starting item icons

        starting_x = Renderer.MAP_TILE_WIDTH + 5

        x = starting_x
        
        pygame.draw.rect(self.preview_map_image,(255,255,255),pygame.Rect(x,y,Renderer.MAP_TILE_WIDTH,Renderer.MAP_TILE_HEIGHT))

        starting_items = temp_map.get_starting_items()
        
        for i in range(len(starting_items)):
          item = starting_items[i]
          
          if item in self.icon_images:
            item_image = self.icon_images[item]
            
            self.preview_map_image.blit(item_image,(x + 1,y + 1))
            
            x += item_image.get_size()[0] + 1
            column += 1
            
            if column > 2:
              column = 0
              x = starting_x
              y += 12

  #----------------------------------------------------------------------------

  def __prerender_map(self, map_to_render):
    self.animation_events = []                  # clear previous animation

    debug_log("prerendering map...")

    # following images are only needed here, so we dont store them to self
    image_trampoline = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_trampoline.png"))
    image_teleport = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_teleport.png"))
    image_arrow_up = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_arrow_up.png"))
    image_arrow_right = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_arrow_right.png"))
    image_arrow_down = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_arrow_down.png"))
    image_arrow_left = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_arrow_left.png"))
    image_lava = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_lava.png"))
    image_background = pygame.image.load(os.path.join(Game.RESOURCE_PATH,"other_map_background.png"))

    self.prerendered_map_background.blit(image_background,(0,0))

    for j in range(GameMap.MAP_HEIGHT):
      for i in range(GameMap.MAP_WIDTH):
        render_position = (i * Renderer.MAP_TILE_WIDTH + Renderer.MAP_BORDER_WIDTH,j * Renderer.MAP_TILE_HEIGHT + + Renderer.MAP_BORDER_WIDTH)          
        self.prerendered_map_background.blit(self.environment_images[map_to_render.get_environment_name()][0],render_position)
       
        tile = map_to_render.get_tile_at((i,j))
          
        helper_mapping = {
            MapTile.SPECIAL_OBJECT_TELEPORT_A: image_teleport,
            MapTile.SPECIAL_OBJECT_TELEPORT_B: image_teleport,
            MapTile.SPECIAL_OBJECT_TRAMPOLINE: image_trampoline,
            MapTile.SPECIAL_OBJECT_ARROW_UP: image_arrow_up,
            MapTile.SPECIAL_OBJECT_ARROW_RIGHT: image_arrow_right,
            MapTile.SPECIAL_OBJECT_ARROW_DOWN: image_arrow_down,
            MapTile.SPECIAL_OBJECT_ARROW_LEFT: image_arrow_left,
            MapTile.SPECIAL_OBJECT_LAVA: image_lava
          }

        if tile.special_object in helper_mapping:
          self.prerendered_map_background.blit(helper_mapping[tile.special_object],render_position)
    
    game_info = map_to_render.get_game_number_info()    
      
    game_info_text = self.render_text(self.font_small,"game " + str(game_info[0]) + " of " + str(game_info[1]),(255,255,255))

    self.prerendered_map_background.blit(game_info_text,((self.prerendered_map_background.get_size()[0] - game_info_text.get_size()[0]) / 2,self.prerendered_map_background.get_size()[1] - game_info_text.get_size()[1]))

    self.prerendered_map = map_to_render

  #----------------------------------------------------------------------------

  ##< Gets an info about how given player whould be rendered in format (image to render, sprite center, relative pixel offset, draw_shadow, overlay images).

  def __get_player_render_info(self, player, game_map):
    profiler.measure_start("map rend. player")

    draw_shadow = True
    relative_offset = [0,0]
    overlay_images = []

    if player.is_dead():
      profiler.measure_stop("map rend. player")
      return (None, (0,0), (0,0), False, [])
        
    sprite_center = Renderer.PLAYER_SPRITE_CENTER
    animation_frame = (player.get_state_time() / 100) % 4
    color_index = player.get_number() if game_map.get_state() == GameMap.STATE_WAITING_TO_PLAY else player.get_team_number()

    if player.is_in_air():
      if player.get_state_time() < Player.JUMP_DURATION / 2:
        quotient = abs(player.get_state_time() / float(Player.JUMP_DURATION / 2))
      else:
        quotient = 2.0 - abs(player.get_state_time() / float(Player.JUMP_DURATION / 2))
              
      scale = (1 + 0.5 * quotient)
              
      player_image = self.player_images[color_index]["down"]
      image_to_render = pygame.transform.scale(player_image,(int(scale * player_image.get_size()[0]),int(scale * player_image.get_size()[1])))
      draw_shadow = False
              
      relative_offset[0] = -1 * (image_to_render.get_size()[0] / 2 - Renderer.PLAYER_SPRITE_CENTER[0])                   # offset caused by scale  
      relative_offset[1] = -1 * int(math.sin(quotient * math.pi / 2.0) * Renderer.MAP_TILE_HEIGHT * GameMap.MAP_HEIGHT)  # height offset

    elif player.is_teleporting():
      image_to_render = self.player_images[color_index][("up","right","down","left")[animation_frame]]

    elif player.is_boxing() or player.is_throwing():
      if not player.is_throwing() and animation_frame == 0:
        helper_string = ""
      else:
        helper_string = "box "

      helper_string += ("up","right","down","left")[player.get_direction_number()]

      image_to_render = self.player_images[color_index][helper_string]
    else:
      helper_string = ("up","right","down","left")[player.get_direction_number()]

      if player.is_walking():
        image_to_render = self.player_images[color_index]["walk " + helper_string][animation_frame]
      else:
        image_to_render = self.player_images[color_index][helper_string]

    if player.get_disease() != Player.DISEASE_NONE:
      overlay_images.append(self.other_images["disease"][animation_frame % 2]) 

    profiler.measure_stop("map rend. player") 

    return (image_to_render,sprite_center,relative_offset,draw_shadow,overlay_images)

  #----------------------------------------------------------------------------

  ##< Same as __get_player_render_info, but for bombs.

  def __get_bomb_render_info(self, bomb, game_map):
    profiler.measure_start("map rend. bomb")
    sprite_center = Renderer.BOMB_SPRITE_CENTER
    animation_frame = (bomb.time_of_existence / 100) % 4
    relative_offset = [0,0]   
    overlay_images = []      

    if bomb.has_detonator():
      overlay_images.append(self.other_images["antena"])
            
      if bomb.time_of_existence < Bomb.DETONATOR_EXPIRATION_TIME:
        animation_frame = 0                 # bomb won't pulse if within detonator expiration time

    if bomb.movement == Bomb.BOMB_FLYING:
      normalised_distance_travelled = bomb.flight_info.distance_travelled / float(bomb.flight_info.total_distance_to_travel)
            
      helper_offset = -1 * bomb.flight_info.total_distance_to_travel + bomb.flight_info.distance_travelled
            
      relative_offset = [
        int(bomb.flight_info.direction[0] * helper_offset * Renderer.MAP_TILE_WIDTH),
        int(bomb.flight_info.direction[1] * helper_offset * Renderer.MAP_TILE_HALF_HEIGHT)]

      relative_offset[1] -= int(math.sin(normalised_distance_travelled * math.pi) * bomb.flight_info.total_distance_to_travel * Renderer.MAP_TILE_HEIGHT / 2)  # height in air
          
    image_to_render = self.bomb_images[animation_frame]
          
    if bomb.has_spring:
      overlay_images.append(self.other_images["spring"])
        
    profiler.measure_stop("map rend. bomb")

    return (image_to_render,sprite_center,relative_offset,True,overlay_images)

  #----------------------------------------------------------------------------

  def render_map(self, map_to_render):
    result = pygame.Surface(self.screen_resolution)
    
    self.menu_background_image = None             # unload unneccessarry images
    self.menu_item_images = None
    self.preview_map_name = ""
    self.preview_map_image = None
    
    self.update_info_boards(map_to_render.get_players())
  
    if map_to_render != self.prerendered_map:     # first time rendering this map, prerender some stuff
      self.__prerender_map(map_to_render)

    profiler.measure_start("map rend. backg.")
    result.blit(self.prerendered_map_background,self.map_render_location)
    profiler.measure_stop("map rend. backg.")
    
    # order the players and bombs by their y position so that they are drawn correctly

    profiler.measure_start("map rend. sort")
    ordered_objects_to_render = []
    ordered_objects_to_render.extend(map_to_render.get_players())
    ordered_objects_to_render.extend(map_to_render.get_bombs())
    ordered_objects_to_render.sort(key = lambda what: 1000 if (isinstance(what,Bomb) and what.movement == Bomb.BOMB_FLYING) else what.get_position()[1])   # flying bombs are rendered above everything else
    profiler.measure_stop("map rend. sort")
    
    # render the map by lines:

    tiles = map_to_render.get_tiles()
    environment_images = self.environment_images[map_to_render.get_environment_name()]
    
    y = Renderer.MAP_BORDER_WIDTH + self.map_render_location[1]
    y_offset_block = Renderer.MAP_TILE_HEIGHT - environment_images[1].get_size()[1]
    y_offset_wall = Renderer.MAP_TILE_HEIGHT - environment_images[2].get_size()[1]
    
    line_number = 0
    object_to_render_index = 0
    
    flame_animation_frame = (pygame.time.get_ticks() / 100) % 2
    
    for line in tiles:
      x = (GameMap.MAP_WIDTH - 1) * Renderer.MAP_TILE_WIDTH + Renderer.MAP_BORDER_WIDTH + self.map_render_location[0]
      
      while True:                  # render players and bombs in the current line 
        if object_to_render_index >= len(ordered_objects_to_render):
          break
        
        object_to_render = ordered_objects_to_render[object_to_render_index]
        
        if object_to_render.get_position()[1] > line_number + 1:
          break
        
        if isinstance(object_to_render,Player):
          image_to_render, sprite_center, relative_offset, draw_shadow, overlay_images = self.__get_player_render_info(object_to_render, map_to_render)
        else:                                      # bomb
          image_to_render, sprite_center, relative_offset, draw_shadow, overlay_images = self.__get_bomb_render_info(object_to_render, map_to_render)
        
        if image_to_render == None:
          object_to_render_index += 1
          continue

        if draw_shadow:
          render_position = self.tile_position_to_pixel_position(object_to_render.get_position(),Renderer.SHADOW_SPRITE_CENTER)
          render_position = (
            (render_position[0] + Renderer.MAP_BORDER_WIDTH + relative_offset[0]) % self.prerendered_map_background.get_size()[0] + self.map_render_location[0],
            render_position[1] + Renderer.MAP_BORDER_WIDTH + self.map_render_location[1])

          result.blit(self.other_images["shadow"],render_position)
        
        render_position = self.tile_position_to_pixel_position(object_to_render.get_position(),sprite_center)
        render_position = ((render_position[0] + Renderer.MAP_BORDER_WIDTH + relative_offset[0]) % self.prerendered_map_background.get_size()[0] + self.map_render_location[0],render_position[1] + Renderer.MAP_BORDER_WIDTH + relative_offset[1] + self.map_render_location[1])
        
        result.blit(image_to_render,render_position)
        
        for additional_image in overlay_images:
          result.blit(additional_image,render_position)
      
        object_to_render_index += 1
            
      for tile in reversed(line):             # render tiles in the current line
        profiler.measure_start("map rend. tiles")
        
        if not tile.to_be_destroyed:          # don't render a tile that is being destroyed
          if tile.kind == MapTile.TILE_BLOCK:
            result.blit(environment_images[1],(x,y + y_offset_block))
          elif tile.kind == MapTile.TILE_WALL:
            result.blit(environment_images[2],(x,y + y_offset_wall))
          elif tile.item != None:
            result.blit(self.item_images[tile.item],(x,y))

        if len(tile.flames) != 0:             # if there is at least one flame, draw it
          sprite_name = tile.flames[0].direction
          result.blit(self.flame_images[flame_animation_frame][sprite_name],(x,y))

      # for debug: uncomment this to see danger values on the map
      # pygame.draw.rect(result,(int((1 - map_to_render.get_danger_value(tile.coordinates) / float(GameMap.SAFE_DANGER_VALUE)) * 255.0),0,0),pygame.Rect(x + 10,y + 10,30,30))

        x -= Renderer.MAP_TILE_WIDTH
  
        profiler.measure_stop("map rend. tiles")
  
      x = (GameMap.MAP_WIDTH - 1) * Renderer.MAP_TILE_WIDTH + Renderer.MAP_BORDER_WIDTH + self.map_render_location[0]
  
      y += Renderer.MAP_TILE_HEIGHT
      line_number += 1
      
    # update animations
    
    profiler.measure_start("map rend. anim")
    
    for animation_index in self.animations:
      self.animations[animation_index].draw(result)
    
    profiler.measure_stop("map rend. anim")
      
    # draw info boards
      
    profiler.measure_start("map rend. boards")
      
    players_by_numbers = map_to_render.get_players_by_numbers()
      
    x = self.map_render_location[0] + 12
    y = self.map_render_location[1] + self.prerendered_map_background.get_size()[1] + 20
      
    for i in players_by_numbers:
      if players_by_numbers[i] == None or self.player_info_board_images[i] == None:
        continue
        
      if players_by_numbers[i].is_dead():
        movement_offset = (0,0)
      else:
        movement_offset = (int(math.sin(pygame.time.get_ticks() / 64.0 + i) * 2),int(4 * math.sin(pygame.time.get_ticks() / 128.0 - i)))
        
      result.blit(self.player_info_board_images[i],(x + movement_offset[0],y + movement_offset[1]))
        
      x += self.gui_images["info board"].get_size()[0] - 2

    profiler.measure_stop("map rend. boards")

    profiler.measure_start("map rend. earthquake")

    if map_to_render.earthquake_is_active(): # shaking effect
      random_scale = random.uniform(0.99,1.01)
      result = pygame.transform.rotate(result,random.uniform(-4,4))
   
    profiler.measure_stop("map rend. earthquake")
   
    if map_to_render.get_state() == GameMap.STATE_WAITING_TO_PLAY:
      third = GameMap.START_GAME_AFTER / 3
      
      countdown_image_index = max(3 - map_to_render.get_map_time() / third,1)
      countdown_image = self.gui_images["countdown"][countdown_image_index]
      countdown_position = (self.screen_center[0] - countdown_image.get_size()[0] / 2,self.screen_center[1] - countdown_image.get_size()[1] / 2)
      
      result.blit(countdown_image,countdown_position)
   
    return result    

#==============================================================================
    
class AI(object):
  REPEAT_ACTIONS = (100,300)    ##< In order not to compute actions with every single call to
                                #   play(), actions will be stored in self.outputs and repeated
                                #   for next random(REPEAT_ACTIONS[0],REPEAT_ACTIONS[1]) ms - saves
                                #   CPU time and prevents jerky AI movement.

  #----------------------------------------------------------------------------
  
  def __init__(self, player, game_map):
    self.player = player
    self.game_map = game_map
    
    self.outputs = []           ##< holds currently active outputs
    self.recompute_compute_actions_on = 0
    
    self.do_nothing = False     ##< this can turn AI off for debugging purposes
    self.didnt_move_since = 0 

  #----------------------------------------------------------------------------
   
  def tile_is_escapable(self, tile_coordinates):
    if not self.game_map.tile_is_walkable(tile_coordinates) or self.game_map.tile_has_flame(tile_coordinates):
      return False
    
    tile = self.game_map.get_tile_at(tile_coordinates)
    
    if tile.special_object == MapTile.SPECIAL_OBJECT_LAVA:
      return False
    
    return True

  #----------------------------------------------------------------------------
   
  ## Returns a two-number tuple of x, y coordinates, where x and y are
  #  either -1, 0 or 1, indicating a rough general direction in which to
  #  move in order to prevent AI from walking in nonsensical direction (towards
  #  outside of the map etc.).
   
  def decide_general_direction(self):
    players = self.game_map.get_players()
    
    enemy_players = filter(lambda p: p.is_enemy(self.player) and not p.is_dead(), players)
    enemy_player = enemy_players[0] if len(enemy_players) > 0 else self.player
            
    my_tile_position = self.player.get_tile_position()
    another_player_tile_position = enemy_player.get_tile_position()

    dx = another_player_tile_position[0] - my_tile_position[0]
    dy = another_player_tile_position[1] - my_tile_position[1]
    
    dx = min(max(-1,dx),1)
    dy = min(max(-1,dy),1)
    
    return (dx,dy)
   
  #----------------------------------------------------------------------------
 
  ## Rates all 4 directions from a specified tile (up, right, down, left) with a number
  #  that says how many possible safe tiles are there accesible in that direction in
  #  case a bomb is present on the specified tile. A tuple of four integers is returned
  #  with numbers for each direction - the higher number, the better it is to run to
  #  safety in that direction. 0 means there is no escape and running in that direction
  #  means death.
    
  def rate_bomb_escape_directions(self, tile_coordinates):
                    #          up       right   down   left 
    axis_directions =          ((0,-1), (1,0),  (0,1), (-1,0))
    perpendicular_directions = ((1,0),  (0,1),  (1,0), (0,1))

    result = [0,0,0,0]
    
    for direction in (0,1,2,3):
      for i in range(1,self.player.get_flame_length() + 2):
        axis_tile = (tile_coordinates[0] + i * axis_directions[direction][0],tile_coordinates[1] + i * axis_directions[direction][1])
        
        if not self.tile_is_escapable(axis_tile):
          break
        
        perpendicular_tile1 = (axis_tile[0] + perpendicular_directions[direction][0],axis_tile[1] + perpendicular_directions[direction][1])
        perpendicular_tile2 = (axis_tile[0] - perpendicular_directions[direction][0],axis_tile[1] - perpendicular_directions[direction][1])

        if i > self.player.get_flame_length() and self.game_map.get_danger_value(axis_tile) >= GameMap.SAFE_DANGER_VALUE:
          result[direction] += 1
          
        if self.tile_is_escapable(perpendicular_tile1) and self.game_map.get_danger_value(perpendicular_tile1) >= GameMap.SAFE_DANGER_VALUE:
          result[direction] += 1
          
        if self.tile_is_escapable(perpendicular_tile2) and self.game_map.get_danger_value(perpendicular_tile2) >= GameMap.SAFE_DANGER_VALUE:  
          result[direction] += 1
    
    return tuple(result)

  #----------------------------------------------------------------------------
    
  ## Returns an integer score in range 0 - 100 for given file (100 = good, 0 = bad).
    
  def rate_tile(self, tile_coordinates):
    danger = self.game_map.get_danger_value(tile_coordinates)
    
    if danger == 0:
      return 0
    
    score = 0
    
    if danger < 1000:
      score = 20
    elif danger < 2500:
      score = 40
    else:
      score = 60
    
    tile_item = self.game_map.get_tile_at(tile_coordinates).item
    
    if tile_item != None:
      if tile_item != GameMap.ITEM_DISEASE:
        score += 20
      else:
        score -= 10
        
    top = (tile_coordinates[0],tile_coordinates[1] - 1)
    right = (tile_coordinates[0] + 1,tile_coordinates[1])
    down = (tile_coordinates[0],tile_coordinates[1] + 1)
    left = (tile_coordinates[0] - 1,tile_coordinates[1])
    
    if self.game_map.tile_has_lava(top) or self.game_map.tile_has_lava(right) or self.game_map.tile_has_lava(down) or self.game_map.tile_has_lava(left):
      score -= 5    # don't go near lava
    
    if self.game_map.tile_has_bomb(tile_coordinates):
      if not self.player.can_box():
        score -= 5
    
    return score

  #----------------------------------------------------------------------------
    
  def is_trapped(self):
    neighbour_tiles = self.player.get_neighbour_tile_coordinates()
  
    trapped = True
    
    for tile_coordinates in neighbour_tiles:
      if self.game_map.tile_is_walkable(tile_coordinates):
        trapped = False
        break
    
    return trapped

  #----------------------------------------------------------------------------
    
  def number_of_blocks_next_to_tile(self, tile_coordinates):
    count = 0
    
    for tile_offset in ((0,-1),(1,0),(0,1),(-1,0)):  # for each neigbour file
      helper_tile = self.game_map.get_tile_at((tile_coordinates[0] + tile_offset[0],tile_coordinates[1] + tile_offset[1]))
      
      if helper_tile != None and helper_tile.kind == MapTile.TILE_BLOCK:
        count += 1
      
    return count

  #----------------------------------------------------------------------------
    
  ## Returns a tuple in format: (nearby_enemies, nearby allies).
    
  def players_nearby(self):
    current_position = self.player.get_tile_position()
    
    allies = 0
    enemies = 0
    
    for player in self.game_map.get_players():
      if player.is_dead() or player == self.player:
        continue
      
      player_position = player.get_tile_position()
      
      if abs(current_position[0] - player_position[0]) <= 1 and abs(current_position[1] - player_position[1]) <= 1:
        if player.is_enemy(self.player):
          enemies += 1
        else:
          allies += 1
      
    return (enemies,allies)

  #----------------------------------------------------------------------------
    
  ## Decides what moves to make and returns a list of event in the same
  #  format as PlayerKeyMaps.get_current_actions().
    
  def play(self):
    if self.do_nothing or self.player.is_dead():
      return []
    
    current_time = self.game_map.get_map_time()
    
    if current_time < self.recompute_compute_actions_on or self.player.get_state() == Player.STATE_IN_AIR or self.player.get_state() == Player.STATE_TELEPORTING:
      return self.outputs          # only repeat actions
     
    # start decisions here:
    
    # moevement decisions:
    
    self.outputs = []
    
    current_tile = self.player.get_tile_position()
    trapped = self.is_trapped()
    escape_direction_ratings = self.rate_bomb_escape_directions(current_tile)
    
    # consider possible actions and find the one with biggest score:
    
    if trapped:
      # in case the player is trapped spin randomly and press box in hope to free itself
      chosen_movement_action = random.choice((PlayerKeyMaps.ACTION_UP,PlayerKeyMaps.ACTION_RIGHT,PlayerKeyMaps.ACTION_DOWN,PlayerKeyMaps.ACTION_LEFT))
    elif self.game_map.tile_has_bomb(current_tile):
      # standing on a bomb, find a way to escape
      
      # find maximum
      best_rating = escape_direction_ratings[0]
      best_action = PlayerKeyMaps.ACTION_UP
      
      if escape_direction_ratings[1] > best_rating:
        best_rating = escape_direction_ratings[1]
        best_action = PlayerKeyMaps.ACTION_RIGHT
        
      if escape_direction_ratings[2] > best_rating:
        best_rating = escape_direction_ratings[2]
        best_action = PlayerKeyMaps.ACTION_DOWN
      
      if escape_direction_ratings[3] > best_rating:
        best_rating = escape_direction_ratings[3]
        best_action = PlayerKeyMaps.ACTION_LEFT
      
      chosen_movement_action = best_action 
    else:             # not standing on a bomb
      
      # should I not move?
      
      maximum_score = self.rate_tile(current_tile)
      best_direction_actions = [None]
    
      general_direction = self.decide_general_direction()

                       # up                     # right                     # down                     # left
      tile_increment  = ((0,-1),                  (1,0),                      (0,1),                     (-1,0))
      action =          (PlayerKeyMaps.ACTION_UP, PlayerKeyMaps.ACTION_RIGHT, PlayerKeyMaps.ACTION_DOWN, PlayerKeyMaps.ACTION_LEFT)
    
      # should I move up, right, down or left?
    
      for direction in (0,1,2,3):
        score = self.rate_tile((current_tile[0] + tile_increment[direction][0],current_tile[1] + tile_increment[direction][1]))  
      
        # count in the general direction
        extra_score = 0
        
        if tile_increment[direction][0] == general_direction[0]:
          extra_score += 2
        
        if tile_increment[direction][1] == general_direction[1]:
          extra_score += 2
          
        score += extra_score
      
        if score > maximum_score:
          maximum_score = score
          best_direction_actions = [action[direction]]
        elif score == maximum_score:
          best_direction_actions.append(action[direction])
      
      chosen_movement_action = random.choice(best_direction_actions)
      
    if chosen_movement_action != None:
      if self.player.get_disease() == Player.DISEASE_REVERSE_CONTROLS:
        chosen_movement_action = PlayerKeyMaps.get_opposite_action(chosen_movement_action)
      
      self.outputs.append((self.player.get_number(),chosen_movement_action))
      
      self.didnt_move_since = self.game_map.get_map_time()

    if self.game_map.get_map_time() - self.didnt_move_since > 10000:   # didn't move for 10 seconds or more => force move
      chosen_movement_action = random.choice((PlayerKeyMaps.ACTION_UP,PlayerKeyMaps.ACTION_RIGHT,PlayerKeyMaps.ACTION_DOWN,PlayerKeyMaps.ACTION_LEFT))
      self.outputs.append((self.player.get_number(),chosen_movement_action))
      
    # bomb decisions
    
    bomb_laid = False
    
    if self.game_map.tile_has_bomb(current_tile):
      # should I throw?
      
      if self.player.can_throw() and max(escape_direction_ratings) == 0:
        self.outputs.append((self.player.get_number(),PlayerKeyMaps.ACTION_BOMB_DOUBLE))
    elif self.player.get_bombs_left() > 0 and (self.player.can_throw() or self.game_map.get_danger_value(current_tile) > 2000 and max(escape_direction_ratings) > 0): 
      # should I lay bomb?
      
      chance_to_put_bomb = 100    # one in how many
      
      players_near = self.players_nearby()
      
      if players_near[0] > 0 and players_near[1] == 0:  # enemy nearby and no ally nearby
        chance_to_put_bomb = 5
      else:
        block_tile_ratio = self.game_map.get_number_of_block_tiles() / float(GameMap.MAP_WIDTH * GameMap.MAP_HEIGHT)

        if block_tile_ratio < 0.4:   # if there is not many tiles left, put bombs more often
          chance_to_put_bomb = 80
        elif block_tile_ratio < 0.2:
          chance_to_put_bomb = 20
      
      number_of_block_neighbours = self.number_of_blocks_next_to_tile(current_tile)
     
      if number_of_block_neighbours == 1:
        chance_to_put_bomb = 3
      elif number_of_block_neighbours == 2 or number_of_block_neighbours == 3:
        chance_to_put_bomb = 2
      
      do_lay_bomb = random.randint(0,chance_to_put_bomb) == 0
      
      if do_lay_bomb:
        bomb_laid = True
        
        if random.randint(0,2) == 0 and self.should_lay_multibomb(chosen_movement_action):  # lay a single bomb or multibomb?
          self.outputs.append((self.player.get_number(),PlayerKeyMaps.ACTION_BOMB_DOUBLE))
        else:
          self.outputs.append((self.player.get_number(),PlayerKeyMaps.ACTION_BOMB))
  
    # should I box?
    
    if self.player.can_box() and not self.player.detonator_is_active():
      if trapped or self.game_map.tile_has_bomb(self.player.get_forward_tile_position()):
        self.outputs.append((self.player.get_number(),PlayerKeyMaps.ACTION_SPECIAL))
  
    if bomb_laid:   # if bomb was laid, the outputs must be recomputed fast in order to prevent laying bombs to other tiles
      self.recompute_compute_actions_on = current_time + 10
    else:
      self.recompute_compute_actions_on = current_time + random.randint(AI.REPEAT_ACTIONS[0],AI.REPEAT_ACTIONS[1])

    # should I detonate the detonator?
    
    if self.player.detonator_is_active():
      if random.randint(0,2) == 0 and self.game_map.get_danger_value(current_tile) >= GameMap.SAFE_DANGER_VALUE:
        self.outputs.append((self.player.get_number(),PlayerKeyMaps.ACTION_SPECIAL))
  
    return self.outputs

  #----------------------------------------------------------------------------

  def should_lay_multibomb(self, movement_action):
    if self.player.can_throw():    # multibomb not possible with throwing glove
      return False
    
    multibomb_count = self.player.get_multibomb_count()
    
    if multibomb_count > 1:        # multibomb possible
      current_tile = self.player.get_tile_position()

      player_direction = movement_action if movement_action != None else self.player.get_direction_number()

      # by laying multibomb one of the escape routes will be cut off, let's check
      # if there would be any escape routes left
      
      escape_direction_ratings = list(self.rate_bomb_escape_directions(current_tile))
      escape_direction_ratings[player_direction] = 0
      
      if max(escape_direction_ratings) == 0:
        return False

      direction_vector = self.player.get_direction_vector()
      
      multibomb_safe = True
      
      for i in range(multibomb_count):
        if not self.game_map.tile_is_walkable(current_tile) or not self.game_map.tile_is_withing_map(current_tile):
          break
        
        if self.game_map.get_danger_value(current_tile) < 3000 or self.game_map.tile_has_lava(current_tile):
          multibomb_safe = False
          break
        
        current_tile = (current_tile[0] + direction_vector[0],current_tile[1] + direction_vector[1])
        
      if multibomb_safe:
        return True
      
    return False

#==============================================================================
    
class Settings(StringSerializable):
  POSSIBLE_SCREEN_RESOLUTIONS = (
    (960,720),
    (1024,768),
    (1280,720),
    (1280,1024),
    (1366,768),
    (1680,1050),
    (1920,1080)
    )
  
  SOUND_VOLUME_THRESHOLD = 0.01
  CONTROL_MAPPING_DELIMITER = "CONTROL MAPPING"
  
  #----------------------------------------------------------------------------

  def __init__(self, player_key_maps):
    self.player_key_maps = player_key_maps
    self.reset()

  #----------------------------------------------------------------------------
         
  def reset(self):
    self.sound_volume = 0.7
    self.music_volume = 0.2
    self.screen_resolution = Settings.POSSIBLE_SCREEN_RESOLUTIONS[0]
    self.fullscreen = False
    self.control_by_mouse = False
    self.player_key_maps.reset()

  #----------------------------------------------------------------------------

  def save_to_string(self):
    result = ""
    
    result += "sound volume: " + str(self.sound_volume) + "\n"
    result += "music volume: " + str(self.music_volume) + "\n"
    result += "screen resolution: " + str(self.screen_resolution[0]) + "x" + str(self.screen_resolution[1]) + "\n"
    result += "fullscreen: " + str(self.fullscreen) + "\n"
    result += "control by mouse: " + str(self.control_by_mouse) + "\n"
    result += Settings.CONTROL_MAPPING_DELIMITER + "\n"
    
    result += self.player_key_maps.save_to_string() + "\n"

    result += Settings.CONTROL_MAPPING_DELIMITER + "\n"
    
    return result

  #----------------------------------------------------------------------------
    
  def load_from_string(self, input_string):
    self.reset()
    
    helper_position = input_string.find(Settings.CONTROL_MAPPING_DELIMITER)
    
    if helper_position >= 0:
      helper_position1 = helper_position + len(Settings.CONTROL_MAPPING_DELIMITER)
      helper_position2 = input_string.find(Settings.CONTROL_MAPPING_DELIMITER,helper_position1)

      debug_log("loading control mapping")

      settings_string = input_string[helper_position1:helper_position2].lstrip().rstrip()
      self.player_key_maps.load_from_string(settings_string)

      input_string = input_string[:helper_position] + input_string[helper_position2 + len(Settings.CONTROL_MAPPING_DELIMITER):]
    
    lines = input_string.split("\n")
    
    for line in lines:
      helper_position = line.find(":")
      
      if helper_position < 0:
        continue
      
      key_string = line[:helper_position]
      value_string = line[helper_position + 1:].lstrip().rstrip()
      
      if key_string == "sound volume":
        self.sound_volume = float(value_string)
      elif key_string == "music volume":
        self.music_volume = float(value_string)
      elif key_string == "screen resolution":
        helper_tuple = value_string.split("x")
        self.screen_resolution = (int(helper_tuple[0]),int(helper_tuple[1]))
      elif key_string == "fullscreen":
        self.fullscreen = True if value_string == "True" else False     
      elif key_string == "control by mouse":
        self.control_by_mouse = True if value_string == "True" else False

  #----------------------------------------------------------------------------
    
  def sound_is_on(self):
    return self.sound_volume > Settings.SOUND_VOLUME_THRESHOLD

  #----------------------------------------------------------------------------
  
  def music_is_on(self):
    return self.music_volume > Settings.SOUND_VOLUME_THRESHOLD

  #----------------------------------------------------------------------------
   
  def current_resolution_index(self):
    return next((i for i in range(len(Settings.POSSIBLE_SCREEN_RESOLUTIONS)) if self.screen_resolution == Settings.POSSIBLE_SCREEN_RESOLUTIONS[i]),0)

#==============================================================================
    
class Game(object):    
  # colors used for players and teams
  COLOR_WHITE = 0
  COLOR_BLACK = 1
  COLOR_RED = 2
  COLOR_BLUE = 3
  COLOR_GREEN = 4
  COLOR_CYAN = 5
  COLOR_YELLOW = 6
  COLOR_ORANGE = 7
  COLOR_BROWN = 8
  COLOR_PURPLE = 9

  COLOR_NAMES = [
    "white",
    "black",
    "red",
    "blue",
    "green",
    "cyan",
    "yellow",
    "orange",
    "brown",
    "purple"
    ]
    
  STATE_PLAYING = 0
  STATE_EXIT = 1
  STATE_MENU_MAIN = 2
  STATE_MENU_SETTINGS = 3
  STATE_MENU_ABOUT = 4
  STATE_MENU_PLAY_SETUP = 5
  STATE_MENU_MAP_SELECT = 6
  STATE_MENU_CONTROL_SETTINGS = 7
  STATE_MENU_PLAY = 8
  STATE_MENU_RESULTS = 9
  STATE_GAME_STARTED = 10
  
  CHEAT_PARTY = 0
  CHEAT_ALL_ITEMS = 1
  CHEAT_PLAYER_IMMORTAL = 2
  
  VERSION_STR = "0.95"
  
  NUMBER_OF_CONTROLLED_PLAYERS = 4    ##< maximum number of non-AI players on one PC
  
  RESOURCE_PATH = "resources"
  MAP_PATH = "maps"
  SETTINGS_FILE_PATH = "settings.txt"

  #----------------------------------------------------------------------------
  
  def __init__(self):
    pygame.mixer.pre_init(22050,-16,2,512)   # set smaller audio buffer size to prevent audio lag
    pygame.init()
    pygame.font.init()
    pygame.mixer.init()
    
    self.frame_number = 0
    
    self.player_key_maps = PlayerKeyMaps()
    
    self.settings = Settings(self.player_key_maps)
    
    self.game_number = 0
    
    if os.path.isfile(Game.SETTINGS_FILE_PATH):
      debug_log("loading settings from file " + Game.SETTINGS_FILE_PATH)
      
      self.settings.load_from_file(Game.SETTINGS_FILE_PATH)
 
    self.settings.save_to_file(Game.SETTINGS_FILE_PATH)  # save the reformatted settings file (or create a new one)
    
    pygame.display.set_caption("Bombman")
    
    self.renderer = Renderer()
    self.apply_screen_settings()
    
    self.sound_player = SoundPlayer()
    self.sound_player.change_music()
    self.apply_sound_settings()
    
    self.apply_other_settings()
             
    self.map_name = ""
    self.random_map_selection = False
    self.game_map = None
    
    self.play_setup = PlaySetup()
    
    self.menu_main = MainMenu(self.sound_player)
    self.menu_settings = SettingsMenu(self.sound_player,self.settings,self)
    self.menu_about = AboutMenu(self.sound_player)
    self.menu_play_setup = PlaySetupMenu(self.sound_player,self.play_setup)
    self.menu_map_select = MapSelectMenu(self.sound_player)
    self.menu_play = PlayMenu(self.sound_player)
    self.menu_controls = ControlsMenu(self.sound_player,self.player_key_maps,self)
    self.menu_results = ResultMenu(self.sound_player)
    
    self.ais = []
    
    self.state = Game.STATE_MENU_MAIN

    self.immortal_players_numbers = []
    self.active_cheats = set()

  #----------------------------------------------------------------------------

  def deactivate_all_cheats(self):
    self.active_cheats = set()

    debug_log("all cheats deactivated")

  #----------------------------------------------------------------------------
      
  def activate_cheat(self, what_cheat):
    self.active_cheats.add(what_cheat)
    
    debug_log("cheat activated")

  #----------------------------------------------------------------------------
    
  def deactivate_cheat(self, what_cheat):
    if what_cheat in self.active_cheats:
      self.active_cheats.remove(what_cheat)

  #----------------------------------------------------------------------------

  def cheat_is_active(self, what_cheat):
    return what_cheat in self.active_cheats

  #----------------------------------------------------------------------------

  def get_player_key_maps(self):
    return self.player_key_maps

  #----------------------------------------------------------------------------

  def get_settings(self):
    return self.settings

  #----------------------------------------------------------------------------

  def apply_screen_settings(self):
    display_flags = 0
    
    if self.settings.fullscreen:
      display_flags += pygame.FULLSCREEN
 
    self.screen = pygame.display.set_mode(self.settings.screen_resolution,display_flags)
    
    screen_center = (Renderer.get_screen_size()[0] / 2,Renderer.get_screen_size()[1] / 2)
    pygame.mouse.set_pos(screen_center)
    
    self.renderer.update_screen_info()

  #----------------------------------------------------------------------------
  
  def apply_sound_settings(self):
    self.sound_player.set_music_volume(self.settings.music_volume)
    self.sound_player.set_sound_volume(self.settings.sound_volume)

  #----------------------------------------------------------------------------
  
  def apply_other_settings(self):
    self.player_key_maps.allow_control_by_mouse(self.settings.control_by_mouse)

  #----------------------------------------------------------------------------
  
  def save_settings(self):
    self.settings.save_to_file(Game.SETTINGS_FILE_PATH)

  #----------------------------------------------------------------------------

  def __check_cheat(self, cheat_string, cheat = None):
    if self.player_key_maps.string_was_typed(cheat_string):
      if cheat != None:
        self.activate_cheat(cheat)
      else:
        self.deactivate_all_cheats()

      self.player_key_maps.clear_typing_buffer()

  #----------------------------------------------------------------------------

  ## Manages the menu actions and sets self.active_menu.

  def manage_menus(self):
    new_state = self.state
    prevent_input_processing = False
    
    # cheack if any cheat was typed:
    self.__check_cheat("party",game.CHEAT_PARTY)
    self.__check_cheat("herecomedatboi",game.CHEAT_ALL_ITEMS)
    self.__check_cheat("leeeroy",game.CHEAT_PLAYER_IMMORTAL)
    self.__check_cheat("revert")

    self.player_key_maps.get_current_actions()       # this has to be called in order for player_key_maps to update mouse controls properly
      
    # ================ MAIN MENU =================
    if self.state == Game.STATE_MENU_MAIN: 
      self.active_menu = self.menu_main
      
      if self.active_menu.get_state() == Menu.MENU_STATE_CONFIRM:
        new_state = [
          Game.STATE_MENU_PLAY_SETUP,
          Game.STATE_MENU_SETTINGS,
          Game.STATE_MENU_ABOUT,
          Game.STATE_EXIT
          ] [self.active_menu.get_selected_item()[0]]

    # ================ PLAY MENU =================
    elif self.state == Game.STATE_MENU_PLAY:
      self.active_menu = self.menu_play

      if self.active_menu.get_state() == Menu.MENU_STATE_CANCEL:
        new_state = Game.STATE_PLAYING

      elif self.active_menu.get_state() == Menu.MENU_STATE_CONFIRM:
        if self.active_menu.get_selected_item() == (0,0):
          new_state = Game.STATE_PLAYING
          
          for player in self.game_map.get_players():
            player.wait_for_bomb_action_release()
          
        elif self.active_menu.get_selected_item() == (1,0):
          new_state = Game.STATE_MENU_MAIN
          self.sound_player.change_music()
          self.deactivate_all_cheats()
    
    # ============== SETTINGS MENU ===============
    elif self.state == Game.STATE_MENU_SETTINGS: 
      self.active_menu = self.menu_settings
      
      if self.active_menu.get_state() == Menu.MENU_STATE_CANCEL:
        new_state = Game.STATE_MENU_MAIN
      elif self.active_menu.get_state() == Menu.MENU_STATE_CONFIRM:
        if self.active_menu.get_selected_item() == (5,0):
          new_state = Game.STATE_MENU_CONTROL_SETTINGS
        elif self.active_menu.get_selected_item() == (7,0):
          new_state = Game.STATE_MENU_MAIN

    # ========== CONTROL SETTINGS MENU ===========
    elif self.state == Game.STATE_MENU_CONTROL_SETTINGS:
      self.active_menu = self.menu_controls
      self.active_menu.update(self.player_key_maps)    # needs to be called to scan for pressed keys
      
      if self.active_menu.get_state() == Menu.MENU_STATE_CANCEL:
        new_state = Game.STATE_MENU_SETTINGS
      elif self.active_menu.get_state() == Menu.MENU_STATE_CONFIRM:
        if self.active_menu.get_selected_item() == (0,0):
          new_state = Game.STATE_MENU_SETTINGS
        
    # ================ ABOUT MENU =================
    elif self.state == Game.STATE_MENU_ABOUT: 
      self.active_menu = self.menu_about
      
      if self.active_menu.get_state() in (Menu.MENU_STATE_CONFIRM,Menu.MENU_STATE_CANCEL):
        new_state = Game.STATE_MENU_MAIN
    
    # ============== PLAY SETUP MENU ==============
    elif self.state == Game.STATE_MENU_PLAY_SETUP: 
      self.active_menu = self.menu_play_setup
      
      if self.active_menu.get_state() == Menu.MENU_STATE_CANCEL:
        new_state = Game.STATE_MENU_MAIN
      elif self.active_menu.get_state() == Menu.MENU_STATE_CONFIRM:
        if self.active_menu.get_selected_item() == (0,1):
          new_state = Game.STATE_MENU_MAP_SELECT
        elif self.active_menu.get_selected_item() == (0,0):
          new_state = Game.STATE_MENU_MAIN
    
    # ============== MAP SELECT MENU ==============
    elif self.state == Game.STATE_MENU_MAP_SELECT:
      self.active_menu = self.menu_map_select
      
      if self.active_menu.get_state() == Menu.MENU_STATE_CANCEL:
        new_state = Game.STATE_MENU_PLAY_SETUP
      elif self.active_menu.get_state() == Menu.MENU_STATE_CONFIRM:
        self.map_name = self.active_menu.get_selected_map_name()
        self.random_map_selection = self.active_menu.random_was_selected()
        self.game_number = 1     # first game
        new_state = Game.STATE_GAME_STARTED
        
        self.deactivate_cheat(Game.CHEAT_PARTY)
    
    # ================ RESULT MENU ================
    elif self.state == Game.STATE_MENU_RESULTS:
      self.active_menu = self.menu_results
    
      if self.active_menu.get_state() in (Menu.MENU_STATE_CONFIRM,Menu.MENU_STATE_CANCEL):
        new_state = Game.STATE_MENU_MAIN
      
    if new_state != self.state:  # going to new state
      self.state = new_state
      self.active_menu.leaving()
    
    self.active_menu.process_inputs(self.player_key_maps.get_current_actions())

  #----------------------------------------------------------------------------

  def acknowledge_wins(self, winner_team_number, players):
    for player in players:
      if player.get_team_number() == winner_team_number:
        player.set_wins(player.get_wins() + 1)    

  #----------------------------------------------------------------------------

  def run(self):
    time_before = pygame.time.get_ticks()

    show_fps_in = 0
    pygame_clock = pygame.time.Clock()

    while True:                                  # main loop
      profiler.measure_start("main loop")
      
      dt = min(pygame.time.get_ticks() - time_before,100)
      time_before = pygame.time.get_ticks()

      pygame_events = []

      for event in pygame.event.get():
        if event.type == pygame.QUIT:
          self.state = Game.STATE_EXIT
        
        pygame_events.append(event)

      self.player_key_maps.process_pygame_events(pygame_events,self.frame_number)

      if self.state == Game.STATE_PLAYING:
        self.renderer.process_animation_events(self.game_map.get_and_clear_animation_events()) # play animations
        self.sound_player.process_events(self.game_map.get_and_clear_sound_events())           # play sounds
        
        profiler.measure_start("map rend.")
        self.screen.blit(self.renderer.render_map(self.game_map),(0,0)) 
        profiler.measure_stop("map rend.")
        
        profiler.measure_start("sim.")
        self.simulation_step(dt)
        profiler.measure_stop("sim.")
        
        if self.game_map.get_state() == GameMap.STATE_GAME_OVER:
          self.game_number += 1
          
          if self.game_number > self.play_setup.get_number_of_games():
            previous_winner = self.game_map.get_winner_team()
            self.acknowledge_wins(previous_winner,self.game_map.get_players())
            self.menu_results.set_results(self.game_map.get_players())
            self.game_map = None
            self.state = Game.STATE_MENU_RESULTS   # show final results
            self.deactivate_all_cheats()
          else:
            self.state = Game.STATE_GAME_STARTED   # new game
      elif self.state == Game.STATE_GAME_STARTED:
        debug_log("starting game " + str(self.game_number))
    
        previous_winner = -1
    
        if self.game_number != 1:
          previous_winner = self.game_map.get_winner_team()
        
        kill_counts = [0 for i in range(10)]
        win_counts = [0 for i in range(10)]
        
        if self.game_map != None:
          for player in self.game_map.get_players():
            kill_counts[player.get_number()] = player.get_kills()
            win_counts[player.get_number()] = player.get_wins()
        
        map_name_to_load = self.map_name if not self.random_map_selection else self.menu_map_select.get_random_map_name()
        
        with open(os.path.join(Game.MAP_PATH,map_name_to_load)) as map_file:
          map_data = map_file.read()
          self.game_map = GameMap(map_data,self.play_setup,self.game_number,self.play_setup.get_number_of_games(),self.cheat_is_active(Game.CHEAT_ALL_ITEMS))
          
        player_slots = self.play_setup.get_slots()
        
        if self.cheat_is_active(Game.CHEAT_PLAYER_IMMORTAL):
          self.immortal_players_numbers = []
          
          for i in range(len(player_slots)):
            if player_slots[i] != None and player_slots[i][0] >= 0:   # cheat: if not AI
              self.immortal_players_numbers.append(i)                 # make the player immortal
        
        self.ais = []
        
        for i in range(len(player_slots)):
          if player_slots[i] != None and player_slots[i][0] < 0:  # indicates AI
            self.ais.append(AI(self.game_map.get_players_by_numbers()[i],self.game_map))
      
        for player in self.game_map.get_players():
          player.set_kills(kill_counts[player.get_number()])
          player.set_wins(win_counts[player.get_number()])
        
        self.acknowledge_wins(previous_winner,self.game_map.get_players())    # add win counts
        
        self.sound_player.change_music()
        self.state = Game.STATE_PLAYING
      elif self.state == Game.STATE_EXIT:
        break
      else:   # in menu
        self.manage_menus()
        
        profiler.measure_start("menu rend.")
        self.screen.blit(self.renderer.render_menu(self.active_menu,self),(0,0))  
        profiler.measure_stop("menu rend.")

      pygame.display.flip()
      pygame_clock.tick()

      if show_fps_in <= 0:
        if DEBUG_FPS:
          debug_log("fps: " + str(pygame_clock.get_fps()))

        show_fps_in = 255
      else:
        show_fps_in -= 1
        
      self.frame_number += 1
      
      profiler.measure_stop("main loop")
      
      if DEBUG_PROFILING:
        debug_log(profiler.get_profile_string())
        profiler.end_of_frame()

  #----------------------------------------------------------------------------

  ## Filters a list of performed actions so that there are no actions of
  #  human players that are not participating in the game.

  def filter_out_disallowed_actions(self, actions):
    player_slots = self.play_setup.get_slots()
    result = filter(lambda a: (player_slots[a[0]] != None and player_slots[a[0]] >=0) or (a[1] == PlayerKeyMaps.ACTION_MENU), actions)    
    return result

  #----------------------------------------------------------------------------

  def simulation_step(self, dt):
    actions_being_performed = self.filter_out_disallowed_actions(self.player_key_maps.get_current_actions())
    
    for action in actions_being_performed:
      if action[0] == -1:                                # menu key pressed
        self.state = Game.STATE_MENU_PLAY
        return
    
    profiler.measure_start("sim. AIs")
    
    for i in range(len(self.ais)):
      actions_being_performed = actions_being_performed + self.ais[i].play()
      
    profiler.measure_stop("sim. AIs")
    
    players = self.game_map.get_players()

    profiler.measure_start("sim. inputs")
    
    for player in players:
      player.react_to_inputs(actions_being_performed,dt,self.game_map)
      
    profiler.measure_stop("sim. inputs")
      
    profiler.measure_start("sim. map update")
    
    self.game_map.update(dt,self.immortal_players_numbers)
    
    profiler.measure_stop("sim. map update")

  #----------------------------------------------------------------------------

  ## Sets up a test game for debugging, so that the menus can be avoided.
 
  def setup_test_game(self, setup_number = 0):
    if setup_number == 0:
      self.map_name = "classic"
      self.random_map_selection = False
      self.game_number = 1
      self.state = Game.STATE_GAME_STARTED
    elif setup_number == 1:
      self.play_setup.player_slots = [(-1,i) for i in range(10)]
      self.random_map_selection = True
      self.game_number = 1
      self.state = Game.STATE_GAME_STARTED      
    else:
      self.play_setup.player_slots = [((i,i) if i < 4 else None) for i in range(10)]
      self.map_name = "classic"
      self.game_number = 1
      self.state = Game.STATE_GAME_STARTED      

#==============================================================================
    
if __name__ == "__main__":
  profiler = Profiler()   # profiler object is global, for simple access
  game = Game()

  if len(sys.argv) > 1: 
    if "--test" in sys.argv:       # allows to quickly init a game
      game.setup_test_game(0)
    elif "--test2" in sys.argv:
      game.setup_test_game(1)
    elif "--test3" in sys.argv:
      game.setup_test_game(2)

  game.run()
Haskell Game
{----------------------------------------

  raycasting game in Haskell
  
  Miloslav Číž, 2017
  
  released under CC0 1.0
  
----------------------------------------}

import System.IO
import System.Timeout
import Data.Fixed
import Data.Char
import Debug.Trace
import Control.Concurrent
import System.CPUTime
import Data.List

-- key mapping:

keyForward     = 'w'
keyBackward    = 's'
keyTurnLeft    = 'a'
keyTurnRight   = 'd'
keyStrafeLeft  = 'q'
keyStrafeRight = 'e'
keyFire        = 'p'
keyWeapon1     = '1'
keyWeapon2     = '2'
keyWeapon3     = '3'
keyQuit        = 'x'

disableAI = False                   -- for debug

frameDelayMs = 16                   -- in milliseconds
frameDelayUs = frameDelayMs * 1000  -- in microseconds
stepLength = 0.1
zombieStepLength = 0.01
demonStepLength = 0.09
rotationStep = 0.06
mapSize = (15,15)
infoBarHeight = 5
screenSize = (150,45)
viewSize = ( (fst screenSize) , (snd screenSize) - infoBarHeight )
fieldOfView = pi / 2
focalLength = 0.5
maxRaycastIterations = 20
spriteSize = (15,10)
spriteScale = fromIntegral (snd viewSize) / fromIntegral (snd spriteSize) * 2
totalMapSquares = (fst mapSize) * (snd mapSize)
rayAngleStep = fieldOfView / fromIntegral (fst viewSize)
infinity = 1.0 / 0.0
animationFrameStep = 4
spriteDepthBias = 1                 -- so that sprites don't disappear in walls
backgroundChar = ' '
transparentChar = 'X'               -- marks transparency in sprites
emptyLines = 15                     -- number of empty lines added before each rendered frame
emptyLineString = ['\n' | i <- [1..emptyLines]]
recomputeAIin = 64
aimAccuracy = 0.32                  -- this constant is used in fire function to determine if a monster was hit
knifeAttackDistance = 1.5
weaponDamage = 20                   -- damage of all weapons

fireRateKnife = 6
fireRateGun = 10
fireRateUzi = 4

monsterHealthZombie = 100           -- initial health amounts
monsterHealthDemon = 50

weaponSpritePosition = ((fst viewSize) - (fst viewSize) `div` 3,1 + snd viewSize - snd spriteSize)

type Position2D = (Double,Double)   -- in squares, starting top left
data MonsterType = Zombie | Demon deriving(Show, Eq)
data Normal = NormalNorth | NormalWest | NormalSouth | NormalEast deriving(Show, Eq)
data Weapon = Knife | Gun | Uzi deriving(Show, Eq)
data MapSquare = SquareEmpty | SquareWall deriving(Show, Eq)

sE = SquareEmpty                    -- short aliases
sW = SquareWall

gameMap1 :: [MapSquare]
gameMap1 = 
  [
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sW,sW,sE,sE,
    sE,sE,sE,sW,sE,sE,sW,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sW,sE,sE,sW,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sW,sE,sE,sW,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sW,sE,sE,sW,sE,sE,sE,sE,sE,sW,sE,sW,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sW,sE,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sW,sW,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sW,sW,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,
    sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE,sE
  ]

type SpriteType = Int
spriteNone = -1
spriteTree = 0
spriteZombie = 1   -- animated, 2 frames
-- skip
spriteDemon = 3    -- animated, 2 frames
-- skip
spriteGun = 5
spriteUzi = 6
spriteMedkit = 7
-- skip
spriteFPKnife = 8  -- animated, 2 frames
-- skip
spriteFPGun = 10   -- animated, 2 frames
-- skip
spriteFPUzi = 12   -- animated, 2 frames

grayscaleMap = ['M','$','o','?','/','!',';',':','\'','.','-']          -- characters sorted by brigtness

animatedSpriteIds = [1,3,8,10,12]     -- list of sprite IDs that are animated

spriteList =
  [
    [ -- 0
      "XXXXXXXXXXXXXXX",
      "XXXX/'''''\\XXXX",
      "XX/'       ''\\X",
      "X|   O        |",
      "X|        O   |",
      "XX\\_  O      /X",
      "XXXX\\_  ____/XX",
      "XXXXXX||XXXXXXX",
      "XXXXXX||XXXXXXX",
      "XX-=#/__\\#=-XXX"],
    [ -- 1
      "XXXXXXXXXXXXXXX",
      "XXXXX/```\\XXXXX",
      "XXXXX[o.o]XXXXX",
      "XXXXX\\II]/XXXXX",
      "XXX/^^````(III)",
      "X(III]    /XXXX",
      "XXXX(_____)XXXX",
      "XXXX(  _  )XXXX",
      "XXXX| |X\\ |XXXX",
      "X--(__]=|__)--X"],
    [ -- 2
      "XXXXXXXXXXXXXXXX",
      "XXXXX/```\\XXXXX",
      "XXXXX[o.o]XXXXX",
      "XXXXX\\[II/XXXXX",
      "X(III]```^^\\XXX",
      "XXXX\\    (III)X",
      "XXXX|_____)XXXX",
      "XXXX(  _  )XXXX",
      "XXXX/ | | |XXXX",
      "X--(__/=|__)--X"],
    [ -- 3
      "X|\\X-''`''-X/|X",
      "X\\;`       `;/X",
      "X/ ,_     _, \\X",
      "X( \\0) , (0/ )X",
      "XX\\_:  ^  :_/XX",
      "XXXX\\ |^| /XXXX",
      "XXXX| [_] |XXXX",
      "XXXXX\\___/XXXXX",
      "XXXXXXXXXXXXXXX",
      "X--==#####==--X"],
    [ -- 4
      "|\\XX-'```'-XX/|",
      "\\ ;`       `; /",
      "X/ ,_ \\ / _, \\X",
      "X( (0)   (0) )X",
      "XX\\_   A   _/XX",
      "XXXX) ___ (XXXX",
      "XXXX( ' ' )XXXX",
      "XXXXX'---'XXXXX",
      "XXXXXXXXXXXXXXX",
      "X--==#####==--X"],
    [ -- 5
      "XXXXXXXXXXXXXXX",
      "XXXXXXXXXXXXXXX",
      "Xl_/_\\\\\\^^^^^^]",
      "X/  P\\_______/X",
      "/    ({_)XXXXXX",
      "|   /XXXXXXXXXX",
      "(___)XXXXXXXXXX",
      "XXXXXXXXXXXXXXX",
      "XXXXXXXXXXXXXXX",
      "X--==#####==--X"],
    [ -- 6
      "|^\\XXXXXXXXX/^|",
      "|  ^^^^^^^^^ _|",
      "|  -o-- [[[(_o)",
      "|___________  |",
      "XX\\  __|X[_]\\_|",
      "XX/ /_]XX| |XXX",
      "X/ /XXXXX| |XXX",
      "|_/XXXXXX|_|XXX",
      "XXXXXXXXXXXXXXX",
      "--===#####===--"],
    [ -- 7
      "XXXXXXXXXXXXXXX",
      "XX/`````````\\XX",
      "X| ..  _  .. |X",
      "X|   _| |_   |X",
      "X|  [  +  ]  |X",
      "X|   `|_|`   |X",
      "X| ..     .. |X",
      "XX\\_________/XX",
      "XXXXXXXXXXXXXXX",
      " --==#####==-- "],
    [ -- 8
      "XXXXXXXXXXXXXXX",
      "XXXXXXXXXXXXXXX",
      "XXXXXXXXXXXXXXX",
      "XXXXXXXXX/|XXXX",                   
      "XXXXXXXX/ |XXXX",
      "XXXXXXX( ,|XXXX",
      "XXXXXXX| |<XXXX",
      "XXXXXXX| |<XXXX",
      "XXXXXXX| |<XXXX",
      "XXXXXXX| |<XXXX"],
     [ -- 9
      "XXXXXXXXXXXXXXX",
      "XXXXXXXXXXXXXXX",
      "XX|\\XXXXXXXXXXX",
      "XX| \\XXXXXXXXXX",
      "XX( ,\\XXXXXXXXX",
      "XXX\\ \\LXXXXXXXX",
      "XXXX\\ \\LXXXXXXX",
      "XXXXX\\ \\LX/\\XXX",
      "XXXXXX\\ \\V /XXX",
      "XXXX\\^^ ,  \\XXX"],
     [ -- 10
      "X/^^\\XXXXXXXXXX",
      "[:\\ Y\\XXXXXXXXX",
      "X\\:\\__`\\XXXXXXX",
      "XX\\:\\ \\ \\XXXXXX",
      "XXX\\:\\`  `\\XXXX",
      "XXX/\\:\\____\\XXX",
      "XX(_|::\\ P |\\XX",
      "XX( \\_:|   | )X",
      "XX(\\_ )-___/ /X",
      "XXX\\ \\      |XX"],
     [ -- 11
      "XWWWWWWWXXXXXXX",
      "WW/^^\\WWXXXXXXX",
      "WW|:) Y\\WXXXXXX",
      "XW(:( _ \\XXXXXX",
      "XXX|:( \\ \\XXXXX",
      "XXX\\::)`  \\XXXX",
      "XXXX\\:(    \\XXX",
      "XXXX(::\\____|\\X",
      "XXX/|::|  P | |",
      "XX(  \\_|    | /"],
     [ -- 12
      "X[\\^^\\XXXXXXXXX",
      "X|:\\__\\XXXXXXXX",
      "C|::|__|XXXXXXX",
      "X|: :\\ \\XXXXXXX",
      "X|:  :\\ \\XXXXXX",
      "X|::\\ :\\ `\\XXXX",
      "XX\\_:\\ :\\  \\XXX",
      "XXX|\\:\\ :\\__\\XX",
      "XX/|:\\:O :\\  `\\",
      "X( |:|\\:::|^^^|"],
     [ -- 13
      "WXXXXXXXXXXXXXX",
      "WWXXXXXXXXXXXXX",
      "WWW[\\^^\\XXXXXXX",
      "XWW|:\\__\\XXXXXX",
      "XWC|::|__|XXXXX",
      "XXW|: :\\ \\XXXXX",
      "XXX|:  :\\ \\XXXX",
      "XXX|::\\ :\\ `\\XX",
      "XXXX\\_:\\ :\\  \\X",
      "XXXX/ \\:\\ :\\__\\"
     ]
  ]

data GameState = GameState
  {
    playerPos ::      Position2D,
    playerRot ::      Double,                          -- rotation in radians, CCW, 0 = facing right
    frameNumber ::    Int,
    currentWeapon ::  Weapon,
    currentLevel ::   Int,
    currentScore ::   Int,
    gameMap ::        [MapSquare],
    monsters ::       [Monster],                       -- list of monsters
    sprites ::        [Sprite],                        -- list of sprites
    fireCountdown ::  Int                              -- counter for implementing different fire rates
  } deriving (Show)
  
data Sprite = Sprite
  {
    spriteType ::      SpriteType,
    spritePos ::       Position2D
  } deriving (Show)
  
data Monster = Monster
  {
    monsterType ::    MonsterType,
    monsterPos ::     Position2D,
    health ::         Int,
    countdownAI ::    Int,
    monsterRot ::     Double
  } deriving (Show)
  
newMonster :: MonsterType -> Position2D -> Monster
newMonster monsterType initialPosition = Monster
  {
    monsterType = monsterType,
    monsterPos = initialPosition,
    health = 
      if monsterType == Zombie
        then monsterHealthZombie
        else monsterHealthDemon,
    countdownAI = 0,
    monsterRot = 0
  }
  
initialGameState :: GameState
initialGameState = GameState
  {
    playerPos       = (7.5,8.5),
    playerRot       = 0.0,
    frameNumber     = 0,
    currentWeapon   = Knife,
    currentLevel    = 1,
    currentScore    = 0,
    gameMap         = gameMap1,
    monsters        =
      [
        newMonster Zombie (6,7),
        newMonster Demon (8,5),
        newMonster Demon (10,2),
        newMonster Demon (2,10)
      ],
    sprites = [],
    fireCountdown   = 0
  }

-----------------------------------------------   Functions for 3-item tuples.

fst3 (x, _, _) = x
snd3 (_, x, _) = x
thd3 (_, _, x) = x

-----------------------------------------------   Splits given list to chunks of size n.

splitChunks _ [] = []
splitChunks n list = first : (splitChunks n rest)
  where
    (first,rest) = splitAt n list

-----------------------------------------------   Fills given string with spaces to given length.

toLength :: String -> Int -> String
toLength what outputLength =
  what ++ [' ' | i <- [1.. outputLength - length(what)]]

-----------------------------------------------   Alternative version of trace for debugging.

trace2 :: a -> (a -> String) -> a
trace2 what func =
  trace (func what) what

-----------------------------------------------   Ensures given values is in given interval by clamping it.

clamp :: (Ord a) => a -> (a, a) -> a
clamp value (minimum, maximum) =
  (min maximum . max minimum) value

-----------------------------------------------   Adds two 2-item pair tuples, itemwise.

addPairs :: (Num a) => (Num b) => (a, b) -> (a, b) -> (a, b)
addPairs (x1, y1) (x2, y2) = (x1 + x2, y1 + y2)

-----------------------------------------------

substractPairs :: (Num a) => (Num b) => (a, b) -> (a, b) -> (a, b)
substractPairs (x1, y1) (x2, y2) = (x1 - x2, y1 - y2)

-----------------------------------------------   Applies floor function to both items of a pair.

floorPair :: (RealFrac a) => (RealFrac b) => (a, b) -> (Int, Int)
floorPair couple =
  (floor (fst couple),floor (snd couple))

-----------------------------------------------   Makes the angle safe for tan function.

tanSafeAngle :: Double -> Double
tanSafeAngle angle
  | mod' angle (pi / 2) == 0.0 = angle + 0.00001
  | otherwise                  = angle

-----------------------------------------------

vectorAngle :: Position2D -> Double
vectorAngle vector =
  atan2 (-1 * (snd vector)) (fst vector)

-----------------------------------------------   Returns the result of angle1 - angle2 closest to 0.

angleAngleDifference :: Double -> Double -> Double
angleAngleDifference angle1 angle2 
  | difference > pi = difference - 2 * pi
  | otherwise       = difference
  where 
    difference = angleTo02Pi (angle1 - angle2)
    
-----------------------------------------------

angleTo02Pi :: Double -> Double
angleTo02Pi angle =
  mod' angle (2 * pi)

-----------------------------------------------   Gets distance of two points.

pointPointDistance :: Position2D -> Position2D -> Double
pointPointDistance point1 point2 =
  let
    dx = (fst point1) - (fst point2)
    dy = (snd point1) - (snd point2)
  in
    sqrt (dx * dx + dy * dy)
     
-----------------------------------------------   Converts 2D map coords to 1D array coords.

mapToArrayCoords :: (Int, Int) -> Int
mapToArrayCoords coords =
  snd coords * (fst mapSize) + fst coords

-----------------------------------------------   Converts 1D array coords to 2D map coords.

arrayToMapCoords :: Int -> (Int, Int)
arrayToMapCoords coords =
  (mod coords (fst mapSize),div coords (fst mapSize))

-----------------------------------------------   Computes an intersection point of two lines.

lineLineIntersection :: Position2D -> Double -> Position2D -> Double -> Position2D
lineLineIntersection (x1,y1) angle1 (x2,y2) angle2 = (x,y)
  where
    tan1 = tan (tanSafeAngle angle1)
    tan2 = tan (tanSafeAngle angle2)
    x = (y2 - tan2 * x2 - y1 + tan1 * x1) / (tan1 - tan2)
    y = if abs tan1 < abs tan2 then tan1 * x + (y1 - tan1 * x1) else tan2 * x + (y2 - tan2 * x2)

-----------------------------------------------   Maps normalized intensity to ASCII character.

intensityToChar :: Double -> Char
intensityToChar intensity =
  let
    safeIndex = clamp (floor (intensity * fromIntegral (length grayscaleMap))) (0,(length grayscaleMap) - 1)
  in
    grayscaleMap !! safeIndex 
    
-----------------------------------------------   Returns an intensity addition (possibly negative) cause by distance.

distanceToIntensity :: Double -> Double
distanceToIntensity distance =
  (min (distance / 7.0) 1.0) * (-0.3)

-----------------------------------------------   Maps worldspace distance to normalized screenspace size (caused by perspective).

distanceToSize :: Double -> Double
distanceToSize distance =
  1.0 / (distance + 1.0)
  
-----------------------------------------------   Projects sprites to screen space, returns a list representing screen, each
                                             --   pixel has (sprite id,sprite x pixel,distance), sprite id = -1 => empty.

projectSprites :: GameState -> [(SpriteType,Int,Double)]
projectSprites gameState =
  let
    -- project all sprites to screenspace first:
    screenspaceSprites =                                         -- [(sprite id,sprite x pixel,distance)]
      [
        (
          spriteType sprite,                                     
            0.5 +                                                -- sprite center in screenspace, normalized
            (
              angleAngleDifference (playerRot gameState) ( vectorAngle ( fst (spritePos sprite) - fst (playerPos gameState), snd (spritePos sprite) - snd (playerPos gameState) ) )
            )
            / fieldOfView
            ,
          (pointPointDistance (playerPos gameState) (spritePos sprite)) - spriteDepthBias   -- sprite distance
        )
        | sprite <- (sprites gameState)
      ]
      
    -- projects one sprite (sprite,x,y) to a screen list [(sprite id,sprite x pixel,distance)]
    projectOneSprite :: (SpriteType,Double,Double) -> [(SpriteType,Int,Double)] -> [(SpriteType,Int,Double)]  
    projectOneSprite =                  -- projects a single sprite to screen list
      (
        \spriteInfo screenList ->
          let
            spritePos = (snd3 spriteInfo) * fromIntegral ((length screenList) - 1)
            spriteLength = (distanceToSize (thd3 spriteInfo)) * fromIntegral (fst spriteSize) * spriteScale
            spriteInterval = ( floor (spritePos - spriteLength / 2) , floor (spritePos + spriteLength / 2) )
          in
            map
              (
                \item ->
                  if (snd item) >= (fst spriteInterval) && (snd item) <= (snd spriteInterval)
                    then
                      (
                        (fst3 spriteInfo),
                        round $ ((fromIntegral ( (snd item) - (fst spriteInterval) )) / spriteLength) * fromIntegral ((fst spriteSize) - 1),
                        (thd3 spriteInfo)
                      )
                    else (fst item)
              )
              (zip screenList [0..])
      )
      
    emptyScreenlList = [(spriteNone,0,infinity) | i <- [0..(fst viewSize) - 1]]
  in
    foldl
      (
        \screenList1 screenList2 ->
          map
            (
              \itemPair ->                  -- compare depths
                if (thd3 (fst itemPair)) <= (thd3 (snd itemPair))
                  then (fst itemPair)
                  else (snd itemPair)
            )
            (zip screenList1 screenList2)
      )
             
      emptyScreenlList
          
      [projectOneSprite spriteItem emptyScreenlList | spriteItem <- screenspaceSprites]
      
-----------------------------------------------   Samples given sprite.

sampleSprite :: SpriteType -> (Int,Int) -> Int -> Char
sampleSprite spriteId coordinates animationFrame =
  let
    safeCoords =
      (
        clamp (fst coordinates) (0,(fst spriteSize) - 1),
        clamp (snd coordinates) (0,(snd spriteSize) - 1)
      )
  in
    ((spriteList !! (spriteId + animationFrame)) !! (snd safeCoords)) !! (fst safeCoords)
    
-----------------------------------------------   Gets animation frame for current frame number.

animationFrameForSprite :: SpriteType -> Int -> Int
animationFrameForSprite spriteId frameNumber
  | ((frameNumber `div` animationFrameStep) `mod` 2 == 1) && (spriteId `elem` animatedSpriteIds) = 1
  | otherwise = 0

-----------------------------------------------   Renders the 3D player view (no bar or weapon) into String.

render3Dview :: [(Double, Normal)] -> [(SpriteType,Int,Double)] -> Int -> Int -> String
render3Dview wallMap spriteMap height frameNumber =
  let
    middle = div height 2 + 1                     -- middle line of the view
    heightDouble = (fromIntegral height)
  in
    concat
      [
        let
          distanceFromMiddle = middle - i
          absDistanceFromMiddle = abs distanceFromMiddle
        in
          map
            (
              \item ->
                let                  
                  normal = (snd (fst item))
                  distance = (fst (fst item))
                  columnHeight = floor ((distanceToSize distance) * heightDouble)
                  spriteInfo = (snd item)
                  
                  wallSample =
                    if absDistanceFromMiddle < columnHeight
                      then
                        if normal == NormalNorth then      intensityToChar $ 0.25 + distanceToIntensity distance
                        else if normal == NormalEast then  intensityToChar $ 0.50 + distanceToIntensity distance
                        else if normal == NormalSouth then intensityToChar $ 0.75 + distanceToIntensity distance
                        else                               intensityToChar $ 1.00 + distanceToIntensity distance
                      else backgroundChar
                  
                  spriteHalfHeight = floor ( spriteScale * distanceToSize (thd3 spriteInfo) * fromIntegral (snd spriteSize) / 2 )
                  sampleX = snd3 spriteInfo
                  sampleY = round (((1 - (1 + (fromIntegral distanceFromMiddle) / (fromIntegral spriteHalfHeight)) / 2)) * fromIntegral ((snd spriteSize) - 1))
                  spriteSample = sampleSprite (fst3 spriteInfo) (sampleX,sampleY) (animationFrameForSprite (fst3 spriteInfo) frameNumber)
                in
                  if (thd3 spriteInfo) >= distance                  -- is wall closer than sprite?
                    then wallSample                                 
                    else                                            -- sprite is closer  
                      if absDistanceFromMiddle <= spriteHalfHeight  
                        then
                          if spriteSample /= transparentChar
                            then spriteSample
                            else wallSample
                        else wallSample
            )
            (zip wallMap spriteMap) ++ "\n"
        | i <- [1..height]
      ]

-----------------------------------------------   Renders the lower info bar to String.

renderInfoBar :: GameState -> String
renderInfoBar gameState =
  let
    separatorPositions = [0,15,31,63]
    separator = "+" ++ [if i `elem` separatorPositions then '+' else '~' | i <- [3..(fst viewSize)]] ++ "+"
    emptyLine = "|" ++ [if i `elem` separatorPositions then '|' else ' ' | i <- [3..(fst viewSize)]] ++ "|\n"
    infoLine = "|  level: " ++ (toLength (show (currentLevel gameState)) 3) ++ "|  score: " ++ (toLength (show (currentScore gameState)) 6) ++ "|  health: 100/100  ##########  |  ammo: 100/100"
  in
    separator ++ "\n" ++
    emptyLine ++
    (toLength infoLine ((fst screenSize) - 1)) ++ "|\n" ++
    emptyLine ++
    separator
      
-----------------------------------------------   Overlays a string image over another

overlay :: String -> String -> (Int,Int) -> (Int,Int) -> (Int,Int) -> Char -> String
overlay background foreground position backgroundResolution foregroundResolution transparentChar =
  let
    backgroundLines = splitChunks (fst backgroundResolution) background
    
    (firstLines,restLines) = splitAt (snd position) backgroundLines
    (secondLines,thirdLines) = splitAt (snd foregroundResolution) restLines
    
    foregroundLines =
      [
        take (fst position) (snd item) ++
          [
            if (fst chars) == transparentChar then (snd chars) else (fst chars)
            | chars  <- zip (fst item) ( take (fst foregroundResolution)  (drop (fst position) (snd item)))
          ] ++
        drop (fst position + fst foregroundResolution) (snd item)
        | item <- zip (splitChunks (fst foregroundResolution) foreground) secondLines
      ]
  in   
    concat (firstLines) ++
    concat (foregroundLines) ++
    concat (thirdLines)

-----------------------------------------------

weaponFireRate :: Weapon -> Int
weaponFireRate weaponId
  | weaponId == Knife = fireRateKnife
  | weaponId == Gun   = fireRateGun
  | weaponId == Uzi   = fireRateUzi
  | otherwise         = 1
 
-----------------------------------------------

weaponSprite :: Weapon -> Int
weaponSprite weaponId
  | weaponId == Knife = spriteFPKnife
  | weaponId == Gun   = spriteFPGun
  | weaponId == Uzi   = spriteFPUzi
  | otherwise         = spriteFPKnife
  
-----------------------------------------------   Renders the game in 3D.

renderGameState :: GameState -> String
renderGameState gameState =
  let
    wallDrawInfo = castRays gameState
    gunSprite = weaponSprite (currentWeapon gameState) +
      if (fireCountdown gameState) /= 0
        then 1
        else 0
  in
    (
      overlay
        (render3Dview wallDrawInfo (projectSprites gameState) (snd viewSize) (frameNumber gameState))
        (concat (spriteList !! gunSprite))
        weaponSpritePosition
        (addPairs viewSize (1,0))
        spriteSize
        transparentChar
    )
    ++
    renderInfoBar gameState 
    
-----------------------------------------------   Renders the game state into string, simple version.

renderMap :: GameState -> String
renderMap gameState =
  concat
    (
      map
        (   
          \square ->
            (
              if mod (snd square) (fst mapSize) == 0
                then "\n"
                else ""
            )
            ++
            (
              if floor (fst (playerPos gameState)) == fst (arrayToMapCoords (snd square)) &&
                 floor (snd (playerPos gameState)) == snd (arrayToMapCoords (snd square))
                then
                  case round (4.0 * (playerRot gameState) / pi)  of
                    0 -> "->"
                    1 -> "/^"
                    2 -> "|^"
                    3 -> "^\\"
                    4 -> "<-"
                    5 -> "./"
                    6 -> ".|"
                    7 -> "\\."
                    8 -> "->"
                else if fst square == SquareEmpty
                  then "  "
                  else "[]"
            )
        ) (zip (gameMap gameState) [0..])
    )
    
-----------------------------------------------   Gets the distance from projection origin to projection plane.

distanceToProjectionPlane :: Double -> Double -> Double
distanceToProjectionPlane focalDistance angleFromCenter =
  focalDistance * (cos angleFromCenter)

-----------------------------------------------   Casts all rays needed to render player's view, returns a list of ray cast results.

castRays :: GameState -> [(Double, Normal)]
castRays gameState =
  [
    let
      rayDirection = (playerRot gameState) + fieldOfView / 2 - (fromIntegral x) * rayAngleStep
      rayResult = castRay gameState (playerPos gameState) (floorPair (playerPos gameState)) rayDirection maxRaycastIterations
    in
      (
        max
          ( (fst rayResult) - (distanceToProjectionPlane focalLength (abs $ (playerRot gameState) - rayDirection)) )
          0.0,
        snd rayResult
      )

    | x <- [0..(fst viewSize) - 1]
  ]

-----------------------------------------------   Casts a ray and returns an information (distance, normal) about a wall it hits.

castRay :: GameState -> Position2D -> (Int, Int) -> Double -> Int ->  (Double, Normal)
castRay gameState rayOrigin square rayDirection maxIterations =
  let
    squareCoords = floorPair rayOrigin
    angle = angleTo02Pi rayDirection
  in
    if (mapSquareAt gameState square) /= SquareEmpty || maxIterations == 0
      then (0,NormalNorth)
      else
        let
          squareCastResult = castRaySquare square rayOrigin angle
          recursionResult = castRay gameState (fst squareCastResult) (addPairs square (snd squareCastResult)) angle (maxIterations - 1)
        in
          (
            pointPointDistance rayOrigin (fst squareCastResult) + (fst recursionResult),
            if (fst recursionResult) /= 0
              then (snd recursionResult)
              else
                case (snd squareCastResult) of
                  (1,0)  -> NormalEast
                  (0,1)  -> NormalSouth
                  (-1,0) -> NormalWest
                  _      -> NormalNorth
          )

-----------------------------------------------   Casts a ray inside a single square, returns (intersection point with square bounds,next square offset)

castRaySquare :: (Int, Int) -> Position2D -> Double -> (Position2D,(Int, Int))
castRaySquare squareCoords rayPosition rayAngle =
  let
    angle = 2 * pi - rayAngle
    boundX = (fst squareCoords) + if angle < (pi / 2) || angle > (pi + pi / 2) then 1 else 0
    boundY = (snd squareCoords) + if angle < pi then 1 else 0
    intersection1 = lineLineIntersection rayPosition angle (fromIntegral boundX,fromIntegral (snd squareCoords)) (pi / 2)
    intersection2 = lineLineIntersection rayPosition angle (fromIntegral (fst squareCoords),fromIntegral boundY) 0
  in
    if (pointPointDistance rayPosition intersection1) <= (pointPointDistance rayPosition intersection2)
      then (intersection1,(if boundX == (fst squareCoords) then -1 else 1,0))
      else (intersection2,(0,if boundY == (snd squareCoords) then -1 else 1))

-----------------------------------------------   Returns map square at given coords.

mapSquareAt :: GameState -> (Int, Int) -> MapSquare
mapSquareAt gameState coords 
  | (fst coords) < (fst mapSize) && (fst coords) >= 0 && (snd coords) < (snd mapSize) && (snd coords) >= 0 = (gameMap gameState) !! (mapToArrayCoords coords)
  | otherwise = SquareWall

-----------------------------------------------   Checks if given player position is valid (collisions).

positionIsWalkable :: GameState -> Position2D -> Bool
positionIsWalkable gameState position =
  (mapSquareAt gameState (floorPair position)) == SquareEmpty

-----------------------------------------------

monsterSprite :: MonsterType -> Int
monsterSprite monsterId
  | monsterId == Zombie = spriteZombie
  | otherwise                  = spriteDemon
  
-----------------------------------------------

monsterStepLength :: MonsterType -> Double
monsterStepLength monsterId
  | monsterId == Zombie = zombieStepLength
  | otherwise                  = demonStepLength
  
-----------------------------------------------   Creates sprites and places them on the map depending on current state of things.

updateSprites :: GameState -> GameState
updateSprites gameState =
  gameState
    {
      sprites =
        [
          Sprite {spriteType = monsterSprite (monsterType monster), spritePos = (monsterPos monster)}
          | monster <- (monsters gameState)
        ]
    }

-----------------------------------------------   

monsterAI :: GameState -> Monster -> Monster
monsterAI gameState whatMonster =
  let
    rotation =
      if (monsterType whatMonster) == Zombie
        then vectorAngle $ substractPairs (playerPos gameState) (monsterPos whatMonster)  -- zombie walks towards the player
        else
          if (countdownAI whatMonster) == 0
            then angleTo02Pi ((fst (monsterPos whatMonster)) + (snd (monsterPos whatMonster)) + (fromIntegral (frameNumber gameState)) / 100.0)
            else (monsterRot whatMonster)
  in
    whatMonster
      {
        monsterPos = moveWithCollision gameState (monsterPos whatMonster) (monsterRot whatMonster) (monsterStepLength (monsterType whatMonster))
      }
      {
        monsterRot = rotation
      }
      {
        countdownAI = 
          if (countdownAI whatMonster) <= 0
            then recomputeAIin
            else (countdownAI whatMonster) - 1
      }
    
-----------------------------------------------   Runs the AI for each monster, updating their positions etc.

updateMonsters :: GameState -> GameState
updateMonsters gameState =
  if disableAI
    then
      gameState
    else
      gameState
        {
          monsters =
            [
              monsterAI gameState monster
              | monster <- filter (\m -> (health m) > 0) (monsters gameState)  -- health = 0 => monster is dead, filter it out
            ]
        }
    
-----------------------------------------------

moveWithCollision :: GameState -> Position2D -> Double -> Double -> Position2D
moveWithCollision gameState positionFrom angle distance =
  let
    plusX = cos angle * distance
    plusY = -1 * (sin angle * distance)
  in
    (
      (fst positionFrom) + 
      if positionIsWalkable gameState ((fst positionFrom) + plusX,snd positionFrom)
        then plusX
        else 0,
      
      (snd positionFrom) + 
      if positionIsWalkable gameState (fst positionFrom,(snd positionFrom) + plusY)
        then plusY
        else 0
    )
      
-----------------------------------------------   Moves player by given distance in given direction, with collisions.

movePlayerInDirection :: GameState -> Double -> Double -> GameState
movePlayerInDirection previousGameState angle distance =
  let
    plusX = cos angle * distance
    plusY = -1 * (sin angle * distance)
  in
    previousGameState
      {
        playerPos =
          (
            fst (playerPos previousGameState) + 
            if positionIsWalkable previousGameState ((fst (playerPos previousGameState)) + plusX,snd (playerPos previousGameState))
              then plusX
              else 0,
            snd (playerPos previousGameState) + 
            if positionIsWalkable previousGameState (fst (playerPos previousGameState),(snd (playerPos previousGameState)) + plusY)
              then plusY
              else 0
          )
      }

-----------------------------------------------   Moves the player forward by given distance, with collisions.

movePlayerForward :: GameState -> Double -> GameState
movePlayerForward previousGameState distance =
  previousGameState
    {
      playerPos = moveWithCollision previousGameState (playerPos previousGameState) (playerRot previousGameState) distance
    }

-----------------------------------------------   Strafes the player left by given distance (with collisions).

strafePlayer :: GameState -> Double -> GameState
strafePlayer previousGameState distance =
  previousGameState
    {
      playerPos = moveWithCollision previousGameState (playerPos previousGameState) (angleTo02Pi ((playerRot previousGameState) + pi / 2)) distance
    }

-----------------------------------------------

fire :: GameState -> GameState
fire gameState =
  if (fireCountdown gameState) == 0
    then
      gameState
        { 
          fireCountdown = weaponFireRate (currentWeapon gameState)
        }
        {
          monsters =
            filter
              (\m -> (health m) > 0)

              (
                map
                  (\m ->
                    let
                      angleDifference = abs $ angleAngleDifference (playerRot gameState) (vectorAngle $ substractPairs (monsterPos m) (playerPos gameState))
                      monsterDistance = pointPointDistance (playerPos gameState) (monsterPos m)
                      angleRange = 1.0 / (monsterDistance + aimAccuracy)
                      wallDistance = fst $ castRay gameState (playerPos gameState) (floorPair (playerPos gameState)) (playerRot gameState) maxRaycastIterations
                      maxDistance = if (currentWeapon gameState) == Knife then knifeAttackDistance else infinity
                      hit = angleDifference < angleRange / 2 && monsterDistance <= wallDistance && monsterDistance <= maxDistance
                    in
                      m
                        {
                          health = if hit then (health m) - weaponDamage else (health m) 
                        }
                  )
            
                (monsters gameState)
              )
        }
    else gameState
  
-----------------------------------------------   Computes the next game state.

nextGameState :: GameState -> Char -> GameState
nextGameState previousGameState inputChar =
  let
    newGameState =
      case () of _ -- case with expressions hack
                   | inputChar == keyForward     -> movePlayerForward previousGameState stepLength
                   | inputChar == keyBackward    -> movePlayerForward previousGameState (-1 * stepLength)
                   | inputChar == keyTurnLeft    -> previousGameState { playerRot = angleTo02Pi ((playerRot previousGameState) + rotationStep) }
                   | inputChar == keyTurnRight   -> previousGameState { playerRot = angleTo02Pi ((playerRot previousGameState) - rotationStep) }
                   | inputChar == keyStrafeLeft  -> strafePlayer previousGameState stepLength
                   | inputChar == keyStrafeRight -> strafePlayer previousGameState (-1 * stepLength)
                   | inputChar == keyFire        -> fire previousGameState
                   | inputChar == keyWeapon1     -> previousGameState { currentWeapon = Knife }
                   | inputChar == keyWeapon2     -> previousGameState { currentWeapon = Gun }
                   | inputChar == keyWeapon3     -> previousGameState { currentWeapon = Uzi }
                   | otherwise                   -> previousGameState
  in
    (
      updateMonsters $ updateSprites newGameState
    )
    {
      frameNumber = (frameNumber newGameState) + 1
    }
    {
      fireCountdown = max ((fireCountdown newGameState) - 1) 0
    }
  
-----------------------------------------------   Reads all available chars on input and returns the last one, or ' ' if not available.
  
getLastChar :: IO Char
getLastChar =
  do
    isInput <- hWaitForInput stdin 1
    
    if isInput
      then do
        c1 <- getChar
        c2 <- getLastChar
             
        if c2 == ' '
          then return c1
          else return c2
               
      else do
        return ' '
    
-----------------------------------------------   Main game loop.

gameLoop :: GameState -> IO ()
gameLoop gameState =
  do
    t1 <- getCPUTime
    
    putStrLn (emptyLineString ++ renderGameState gameState)
    
    c <- getLastChar
    
    t2 <- getCPUTime
    threadDelay (frameDelayUs - ( (fromIntegral (t2 - t1)) `div` 1000000) )       -- wait for the rest of frame time
    
--    t3 <- getCPUTime
--    putStrLn (show (fromIntegral (t3 - t1) / 10e9) ++ " ms")  -- for profiling, comment out otherwise
    
    hFlush stdout
    
    if c == keyQuit
      then do putStrLn "quitting"
      else do gameLoop (nextGameState gameState c)
      
-----------------------------------------------
        
main = 
  do
    hSetBuffering stdin NoBuffering                     -- to read char without [enter]
    hSetBuffering stdout (BlockBuffering (Just 20000))  -- to read flickering
    hSetEcho stdout False                               
    gameLoop initialGameState

ASM Minesweeper
; This is an assembly language implementation of Minesweeper game. This
; file was created as a school project for IPA course at FIT BUT.
;
; Miloslav Číž, 2013
; license: CC0

;=======================================================================

bits 32

; include:
%include 'win32n.inc'     ; WinApi declarations
%include 'general.mac'    ; general macros
%include 'rw32.inc'       ; input/output library

; dll function import:

dllimport DeleteDC,gdi32.dll
dllimport Rectangle,gdi32.dll
dllimport GetModuleHandle,kernel32.dll,GetModuleHandleA
dllimport GetCommandLine,kernel32.dll,GetCommandLineA
dllimport GetLastError,kernel32.dll
dllimport ExitProcess,kernel32.dll
dllimport GetSystemTime,kernel32.dll
dllimport CreateCompatibleDC,Gdi32.dll
dllimport SelectObject,gdi32.dll
dllimport GetObject,gdi32.dll,GetObjectA
dllimport ShowWindow,user32.dll
dllimport ShowCursor,user32.dll
dllimport GetDC,user32.dll
dllimport InvalidateRect,user32.dll
dllimport UpdateWindow,user32.dll
dllimport TranslateMessage,user32.dll
dllimport RegisterClassEx,user32.dll, RegisterClassExA
dllimport LoadIcon,user32.dll,LoadIconA
dllimport LoadCursor,user32.dll,LoadCursorA
dllimport CreateWindowEx,user32.dll,CreateWindowExA
dllimport GetMessage,user32.dll,GetMessageA
dllimport PeekMessage,user32.dll,PeekMessageA
dllimport DispatchMessage,user32.dll,DispatchMessageA
dllimport PostQuitMessage,user32.dll
dllimport MessageBox,user32.dll,MessageBoxA
dllimport DefWindowProc,user32.dll,DefWindowProcA
dllimport LoadMenu,user32.dll,LoadMenuA
dllimport BeginPaint,user32.dll
dllimport EndPaint,user32.dll
dllimport TextOut,gdi32.dll,TextOutA
dllimport BitBlt,gdi32.dll
dllimport DeleteObject,gdi32.dll
dllimport LoadImage,user32.dll,LoadImageA
dllimport SetWindowPos,user32.dll
dllimport MoveWindow,user32.dll
dllimport GetCursor,user32.dll
dllimport SetCursor,user32.dll
dllimport GetSystemMetrics,user32.dll
dllimport LoadCursor,user32.dll,LoadCursorA
dllimport SetTimer,user32.dll
dllimport KillTimer,user32.dll
dllimport PlaySound,winmm.dll,PlaySoundA
dllimport GetWindowRect,user32.dll

;=======================================================================

; DATA SEGMENT:

[section .data class=DATA use32 align=16]

INFO_BAR_HEIGHT  equ    30                   ; upper info bar height

mapWidth     dd 10      ; map width in squares
mapHeight    dd 10      ; map height in squares
mapArray     resb 10000 ; 2D map array (saved by rows), value semantics:
                        ;   7 6 5 4 3 2 1 0
                        ;
                        ;   2 MSB (bits 7 and 6):
                        ;     00 = revealed
                        ;     01 = hidden
                        ;     10 = marked as mine
                        ;     11 = marked with question mark
                        ;
                        ;   3 LSB (bits 3, 2, 1 and 0):
                        ;     number 0 - 8 = number of mines in the
                        ;                    neighbourhood
                        ;     1111 = mine

hWnd         dd 0       ; window handle
dwWndWidth   dd 300     ; window width
dwWndHeight  dd 200     ; window height
hHDC         dd 0       ; device context handle
hMHDC        dd 0       ; memory device context handle
hBitmapOld   dd 0       ; helper handle
hMenu        dd 0       ; menu handle
hIcon        dd 0       ; application icon

randomValue  dd 0       ; randomly generated value
helperX      db 0
helperY      db 0
helperA      db 0
helperB      db 0
helperC      db 0
gameOver     db 0       ; whether the game is over (1) or not (0)
windowWidth  dd 0       ; window width in pixels
windowHeight dd 0       ; window height in pixels
timerId      dd 0       ; id of the timer object
timerCount   dd 0       ; increments each second
mineCount    dd 5       ; number of mines left to find
helper       dd 0       ; a helper variable
gameTime     dd 0xFFFFFFFF     ; game time counter, 0xFFFFFFFF = stopped

neighbourhood:          ; 8-square neighbourhood offsets (x,y)
             db -1      ; upper left
             db -1
             db 0       ; upper
             db -1
             db 1       ; upper right
             db -1
             db -1      ; left
             db 0
             db 1       ; right
             db 0
             db -1      ; bottom left
             db 1
             db 0       ; bottom
             db 1
             db 1       ; bottom right
             db 1

message:     resb MSG_size

                               ; resource paths:

pathBitmapMine               db "images/mine.bmp",0
pathBitmapSquareHidden       db "images/square_hidden.bmp",0
pathBitmapSquareUnknown      db "images/square_unknown.bmp",0
pathBitmapSquareMine1        db "images/square_mine_1.bmp",0
pathBitmapSquareMine2        db "images/square_mine_2.bmp",0
pathBitmapSquareRevealed0    db "images/square_empty_0.bmp",0
pathBitmapSquareRevealed1    db "images/square_empty_1.bmp",0
pathBitmapSquareRevealed2    db "images/square_empty_2.bmp",0
pathBitmapSquareRevealed3    db "images/square_empty_3.bmp",0
pathBitmapSquareRevealed4    db "images/square_empty_4.bmp",0
pathBitmapSquareRevealed5    db "images/square_empty_5.bmp",0
pathBitmapSquareRevealed6    db "images/square_empty_6.bmp",0
pathBitmapSquareRevealed7    db "images/square_empty_7.bmp",0
pathBitmapSquareRevealed8    db "images/square_empty_8.bmp",0
pathSoundExplosion           db "sounds/explosion.wav",0

string szWndClassName,       "minesweeper window"   ; window class name
string szWndCaption,         "Assembly Minesweeper" ; window caption

string menuName,             "MinesweeperMenu"
string textTime,             "time: "
string textMines,            "mines left: "
string timeString,           "00:00"
string mineString,           "99"
string textLost,             "You have lost."
string textWon,              "You have won."
string textMessage,          "game message"
string textNewGame,          "Do you want an easy game?"
string textAbout,            "Assembly Minesweeper v 1.0, (c) Miloslav Ciz 2013"
string textHelp,             "Reveal all squares that don't have mines on them, if you click a square containing a mine, you lose. Each empty square that has been revealed is marked with a number that says how many mines there are in its 8-square neighbourhood (no number means 0). You can lose with your first move. The right mouse button can help you mark the squares. Good luck."

hBitmapMine                  dd   0 ; bitmap handle - mine
hBitmapSquareHidden          dd   0 ; bitmap handle - hidden square
hBitmapSquareUnknown         dd   0 ; bitmap handle - '?' marked square
hBitmapSquareMine1           dd   0 ; bitmap handle - square marked with mine (frame 0)
hBitmapSquareMine2           dd   0 ; bitmap handle - square marked with mine (frame 1)
hBitmapSquareRevealed        resd 9 ; 9 bitmap handles - revealed squares with numbers on them
hBitmapHelper                dd   0 ; helper handle to bitmap

WndClass:                      ;WndClass struct initialisation:
    istruc WNDCLASSEX
      at WNDCLASSEX.cbSize,             dd WNDCLASSEX_size
      at WNDCLASSEX.style,              dd CS_VREDRAW + CS_HREDRAW
      at WNDCLASSEX.lpfnWndProc,        dd WndProc
      at WNDCLASSEX.cbClsExtra,         dd 0
      at WNDCLASSEX.cbWndExtra,         dd 0
      at WNDCLASSEX.hInstance,          dd NULL
      at WNDCLASSEX.hIcon,              dd NULL
      at WNDCLASSEX.hCursor,            dd NULL
      at WNDCLASSEX.hbrBackground,      dd NULL
      at WNDCLASSEX.lpszMenuName,       dd NULL
      at WNDCLASSEX.lpszClassName,      dd szWndClassName
      at WNDCLASSEX.hIconSm,            dd NULL
    iend

systemTime:                    ; system time structure:
    istruc SYSTEMTIME
    iend

paintStructure:                ; for painting
  istruc PAINTSTRUCT
  iend

bitmapStruct:                  ; also for painting
  istruc BITMAP
  iend

rectangle:                     ; for retrieving window coordinations
  istruc RECT
  iend

;=======================================================================

; CODE SEGMENT:

[section .code use32 class=CODE]

  ; the program starts here:
  prologue                    ; initial instructions

  invoke GetSystemTime,systemTime   ; get the system time

  mov eax,[systemTime + SYSTEMTIME.wMilliseconds]
  shl eax,16
  mov eax,[systemTime + SYSTEMTIME.wSecond]
  mov [randomValue],eax       ; set the seed for random number generator

  mov esi,szWndClassName
  invoke GetModuleHandle,NULL                  ; get module handle
  mov [hInstance],eax                          ; eax <- module handle
  mov [WndClass + WNDCLASSEX.hInstance],eax    ; WndClass.hInstance <- module handle

  ; set the cursor for the window class

  invoke LoadCursor,NULL,IDC_ARROW
  mov [WndClass + WNDCLASSEX.hCursor],eax

  ; load images:

  invoke LoadImage,[hInstance],pathBitmapMine,IMAGE_BITMAP,0,0,16
  mov [hBitmapMine],eax
  invoke LoadImage,[hInstance],pathBitmapSquareHidden,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareHidden],eax
  invoke LoadImage,[hInstance],pathBitmapSquareUnknown,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareUnknown],eax
  invoke LoadImage,[hInstance],pathBitmapSquareMine1,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareMine1],eax
  invoke LoadImage,[hInstance],pathBitmapSquareMine2,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareMine2],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed0,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed1,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 4],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed2,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 8],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed3,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 12],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed4,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 16],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed5,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 20],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed6,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 24],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed7,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 28],eax
  invoke LoadImage,[hInstance],pathBitmapSquareRevealed8,IMAGE_BITMAP,0,0,16
  mov [hBitmapSquareRevealed + 32],eax

  invoke LoadMenu,[hInstance],menuName         ; load the menu
  mov [hMenu],eax

  invoke LoadIcon,NULL,32518                   ; load the icon (standard Windows shield)
  mov [hIcon],eax
  mov [WndClass + WNDCLASSEX.hIcon],eax

  invoke RegisterClassEx,WndClass              ; register window class
                                               ; create the window:
  invoke CreateWindowEx,0,szWndClassName,szWndCaption,WS_OVERLAPPED + WS_CAPTION + WS_SYSMENU + WS_MINIMIZEBOX,50,50,200,200,NULL,[hMenu],[hInstance],NULL

  mov [hWnd],eax                               ; eax <- window handle
  invoke ShowWindow,eax,SW_SHOWDEFAULT         ; show the window
  invoke UpdateWindow,[hWnd]                   ; redraw the window




  call newGame,1
  invoke GetWindowRect,[hWnd],rectangle
  invoke MoveWindow,[hWnd],[rectangle + RECT.left],[rectangle + RECT.top],[windowWidth],[windowHeight],1


  call updateMineString                  ; update the mine string

  invoke SetTimer,[hWnd],1,1000,NULL  ; set the timer
  mov [timerId],eax

;----------------------------
; Windows message loop:
messageLoop:
  invoke GetMessage,message,NULL,0,0  ; get the message

  cmp eax,0                           ; if zero was returned, go to end
  je .Finish

  invoke TranslateMessage,message     ; translate the message
  invoke DispatchMessage,message      ; send the message to processing

  jmp messageLoop                     ; loop
;----------------------------

.Finish:                              ; end of program

  ; free the resources:

  invoke DeleteObject,[hBitmapMine]
  invoke DeleteObject,[hBitmapSquareHidden]
  invoke DeleteObject,[hBitmapSquareUnknown]
  invoke DeleteObject,[hBitmapSquareMine1]
  invoke DeleteObject,[hBitmapSquareMine2]
  invoke DeleteObject,[hBitmapSquareRevealed]
  invoke DeleteObject,[hBitmapSquareRevealed + 1]
  invoke DeleteObject,[hBitmapSquareRevealed + 2]
  invoke DeleteObject,[hBitmapSquareRevealed + 3]
  invoke DeleteObject,[hBitmapSquareRevealed + 4]
  invoke DeleteObject,[hBitmapSquareRevealed + 5]
  invoke DeleteObject,[hBitmapSquareRevealed + 6]
  invoke DeleteObject,[hBitmapSquareRevealed + 7]
  invoke DeleteObject,[hBitmapSquareRevealed + 8]
  invoke KillTimer,[hWnd],[timerId]

  epilogue                            ; final instructions

;-----------------------------------------------------------------------

  function WndProc,hWnd,wMsg,wParam,lParam

  ; This function processes window messages.
  ; changes: eax, ebx, ecx

  begin

  cmp dword [wMsg],WM_PAINT      ; repaint the window
  je paintWindow

  cmp dword [wMsg],WM_LBUTTONUP
  je leftClick                   ; left button click

  cmp dword [wMsg],WM_RBUTTONUP
  je rightClick                  ; right button click

  cmp dword [wMsg],WM_TIMER      ; timer notification
  je timerEvent

  cmp dword [wMsg],WM_CLOSE      ; close the window
  je closeProgram

  cmp dword [wMsg],WM_DESTROY    ; the window is being destroyed
  je closeProgram

  cmp dword [wMsg], WM_COMMAND   ; menu item clicked
  je menuItem

  ; other message - pass to default processing function:
  invoke DefWindowProc,[hWnd],[wMsg],[wParam],[lParam]
  return eax      ; return the DefWindowProc return value

menuItem:

  mov eax,dword [wParam]
  cmp eax,1       ; MENU_NEW_GAME
  jne menuNext1

  invoke MessageBox,NULL,textNewGame,textMessage,MB_YESNOCANCEL ; display the game difficulty dialog

  cmp eax,6       ; "yes" selected
  jne menuSkip
  call newGame,0  ; easy game
  invoke GetWindowRect,[hWnd],rectangle
  invoke MoveWindow,[hWnd],[rectangle + RECT.left],[rectangle + RECT.top],[windowWidth],[windowHeight],1
  invoke InvalidateRect,[hWnd],NULL,1   ; repaint
menuSkip:
  cmp eax,7       ; "no" selected
  jne menuSkip2
  call newGame,1  ; hard game
  invoke GetWindowRect,[hWnd],rectangle
  invoke MoveWindow,[hWnd],[rectangle + RECT.left],[rectangle + RECT.top],[windowWidth],[windowHeight],1
  invoke InvalidateRect,[hWnd],NULL,1   ; repaint
menuSkip2:
  return 0

menuNext1:
  cmp eax,2       ; MENU_EXIT
  jne menuNext2
  jmp closeProgram

menuNext2:
  cmp eax,4       ; MENU_ABOUT
  jne menuNext3
  invoke MessageBox,NULL,textAbout,textMessage,MB_OK
  return 0;

menuNext3:
  cmp eax,3       ; MENU_HELP
  jne menuNext4
  invoke MessageBox,NULL,textHelp,textMessage,MB_OK
  return 0;

menuNext4:
  return 0

timerEvent:
  mov eax,[timerCount]  ; increment the time count
  inc eax
  mov [timerCount],eax

  call updateTimeString

  mov eax,[gameTime]    ; increment game time (if not 0xFFFF or the game is over)

  cmp eax,0xFFFFFFFF    ; 0xFFFFFFFF = stopped
  je dontIncrement
  mov bl,[gameOver]
  cmp bl,1
  je dontIncrement
  inc eax
  mov [gameTime],eax
dontIncrement:
  invoke InvalidateRect,[hWnd],NULL,1   ; repaint
  return 0

leftClick:
  mov al,[gameOver]                     ; don't handle clicks if the game is over
  cmp al,1
  jne leftClickContinue
  return 0

leftClickContinue:
  call mouseToMap,[lParam]
  call handleLeftClick,eax
  invoke InvalidateRect,[hWnd],NULL,1   ; repaint
  return 0

rightClick:
  mov al,[gameOver]                     ; don't handle clicks if the game is over
  cmp al,1
  jne rightClickContinue
  return 0

rightClickContinue:

  call mouseToMap,[lParam]
  call handleRightClick,eax
  invoke InvalidateRect,[hWnd],NULL,1   ; repaint
  call updateMineString                 ; update the mine count string
  return 0

paintWindow:                         ; repaint the window

  invoke BeginPaint,[hWnd],paintStructure
  mov [hHDC],eax                     ; save the device context
  invoke CreateCompatibleDC,[hHDC]   ; create the memory DC
  mov [hMHDC],eax                    ; save its handle
  invoke SelectObject,[hMHDC],[hBitmapMine]  ; get the old bitmap handle
  mov [hBitmapOld],eax                       ; save the old bitmap handle

  invoke Rectangle,[hHDC],0,0,[windowWidth],INFO_BAR_HEIGHT   ; draw the upper info bar

  invoke TextOut,[hHDC],5,5,textTime,lenof.textTime  ; draw the text on the bar
  invoke TextOut,[hHDC],50,5,timeString,lenof.timeString
  invoke TextOut,[hHDC],150,5,textMines,lenof.textMines
  invoke TextOut,[hHDC],230,5,mineString,lenof.mineString

  ;----------------         draw loop

  mov [helperX],byte -1     ; helperX := -1
  mov [helperY],byte -1     ; helperY := -1

drawLoopY:
  mov al,[helperY]
  inc al
  mov [helperY],al          ; helperY++

drawLoopX:                  ; draw the map in loop
  mov al,[helperX]
  inc al
  mov [helperX],al          ; helperX++

  mov bl,[helperX]
  mov bh,[helperY]
  call selectBitmapForSquare,ebx

  mov [hBitmapHelper],eax

  invoke SelectObject,[hMHDC],[hBitmapHelper]  ; set the bitmap
  invoke GetObject,[hBitmapHelper],BITMAP_size,bitmapStruct ; get the information about the bitmap

  mov eax,0
  mov al,[helperX]
  mul word [bitmapStruct + BITMAP.bmWidth]
  mov ecx,eax                               ; ecx := x * bitmap width
  mov eax,0
  mov al,[helperY]
  mul word [bitmapStruct + BITMAP.bmHeight]
  add eax,INFO_BAR_HEIGHT                   ; eax := y * bitmap width + INFO_BAR_HEIGHT

  mov [bitmapStruct + BITMAP.bmWidth],word 43    ; set the resolution manually, GetObject doesn't work on some systems
  mov [bitmapStruct + BITMAP.bmHeight],word 43

  invoke BitBlt,[hHDC],ecx,eax,[bitmapStruct + BITMAP.bmWidth],[bitmapStruct + BITMAP.bmHeight],[hMHDC],0,0,SRCCOPY ; draw

  mov al,[helperX]
  cmp al,[mapWidth]
  jne drawLoopX             ; helperX == 0 ?

  mov al,byte -1
  mov [helperX],al          ; reset the column count

  mov al,[helperY]
  cmp al,[mapHeight]
  jne drawLoopY             ; helperY == 0 ?

  ;----------------

  invoke SelectObject,[hMHDC],[hBitmapOld]     ; set the old bitmap back
  invoke DeleteDC,[hMHDC]                      ; free the memory DC
  invoke EndPaint,[hWnd],paintStructure

  return 0


closeProgram:

  invoke PostQuitMessage,0       ; send the message to quit the process
  return 0

  end
;-----------------------------------------------------------------------

  function indexOffset2D,xIndex,yIndex,arrayWidth,arrayHeight

  ; Converts 2D array index [xIndex,yIndex] to a single index for an
  ; array of arrayWidth times arrayHeight saved by rows. The index is
  ; returned in eax. All operands are 32 bit, but only lower 16 bits
  ; are are considered, all numbers are unsigned.
  ; changes: eax, ebx

  begin

  mov eax,[yIndex]
  mov ebx,[arrayWidth]
  mul bx                 ; bx <- yIndex * arrayWidth
  shl eax,16             ; set 16 high bits of eax to zero
  shr eax,16
  add eax,[xIndex]       ; bx <- bx + xIndex

  return eax
  end

;-----------------------------------------------------------------------

  function placeMines,numberOfMines,arrayAddress,arrayLength

  ; This function fills given array of bytes with given length with
  ; zeroes, then places numberOfMines mines randomly within the array
  ; and initialises all squares (bytes) to be hidden. Number of mines
  ; must be <= array length.
  ; changes: eax, ebx, ecx, edx

  begin

  mov ecx,[arrayLength]
  mov eax,[arrayAddress]

arrayLoop:            ; fill the array with 01000000b (0 mines, hidden)
  mov [eax],byte 01000000b
  inc eax                   ; next index
  loop arrayLoop            ; loop


  mov ecx,0                 ; number of mines places

mineLoop:                   ; place mines randomly
  call randomNumber         ; get random number
  mov edx,0

  div dword [arrayLength]   ; edx := radnom mod arrayLength

  mov eax,[arrayAddress]
  add eax,edx               ; eax := address of mapArray[edx]
  mov bl,byte [eax]         ; bl := mapArray[edx]

  cmp bl,01001111b          ; bl = 01000111b ? (is there a mine?)

  je mineLoop               ; mine already there => generate another

                            ; no mine here => place it
  mov [eax],byte 01001111b  ; mine + hidden square
  inc ecx                   ; increment number of mines placed

  cmp ecx,[numberOfMines]   ; have we placed all mines already?
  jne mineLoop              ; if not, then loop again

  return eax
  end

;-----------------------------------------------------------------------

  function countMines,addressOfArray,WidthOfArray,HeightOfArray

  ; The function counts number of mines in 8 square neighbourhood for
  ; each empty (containing no mine) square in given two-dimensional
  ; array and saves the value to that square.
  ; changes: eax, ebx, ecx, edx

  begin

  mov eax,[HeightOfArray]
  mov [helperB],al      ; y count

mineCountLoopY:   ; for each array line

  mov al,[helperB]        ; y count --
  dec al
  mov [helperB],al

  mov eax,[WidthOfArray]
  mov [helperA],al      ; x count

mineCountLoopX:   ; for each array column

  mov al,[helperA]        ; x count --
  dec al
  mov [helperA],al

  mov [helper],byte 0   ; number of mines
  mov [helperC],byte 8  ; check the 8-square neighbourhood for mines

mineCountLoopN:
  mov al,[helperC]        ; neighbourhood count --
  dec al
  mov [helperC],al

  mov al,[helperC]        ; al := neighbourhood count
  mov ah,2
  mul ah                  ; multiply by 2 because we store by 2 bytes
  mov edx,0
  mov dl,al
  mov ax,word [neighbourhood + edx]   ; get the neighbourhood offset

  add al,[helperA]           ; add the offset to current position
  add ah,[helperB]

  mov [helperX],al           ; helperX := x + offset_x
  mov [helperY],ah           ; helperY := y + offset_y

  mov ebx,0                  ; expand to dword in eax and ebx
  mov bl,[helperY]
  mov eax,0
  mov al,[helperX]

  call checkRange,eax,ebx    ; check the array range

  cmp eax,0  ; outside of the array => don't check
  je cmSkip

  mov eax,0                  ; expand to dword in eax and ebx
  mov al,[helperX]
  mov ebx,0
  mov bl,[helperY]

  call indexOffset2D,eax,ebx,[mapWidth],[mapHeight]

  mov al,[mapArray + eax] ; al = mapArray[helperX][helperY]

  and al,00001111b        ; mask out the lower 4 bits
  cmp al,00001111b        ; is there a mine?
  jne cmSkip

  mov al,[helper]         ; number of mines ++
  inc al
  mov [helper],al

cmSkip:

  mov al,[helperC]        ; al := neighbourhood count
  cmp al,0
  jne mineCountLoopN      ; loop in neighbourhood search

                          ; write the number of mines to the square
  mov eax,0               ; expand the coordinations to dword
  mov ebx,0
  mov al,[helperA]
  mov bl,[helperB]

  call indexOffset2D,eax,ebx,[mapWidth],[mapHeight]

  mov cl,[mapArray + eax] ; cl := mapArray[x][y]
  mov ch,cl
  and ch,00001111b
  cmp ch,00001111b
  je cmDontWrite          ; mine on the square => don't write here
  and cl,11110000b
  or  cl,[helper]
  mov [mapArray + eax],cl

cmDontWrite:

  mov al,[helperA]        ; x count == 0 ?
  cmp al,0
  jne mineCountLoopX      ; loop in x

  mov al,[helperB]        ; y count == 0 ?
  cmp al,0
  jne mineCountLoopY      ; loop in y

  return eax
  end

;-----------------------------------------------------------------------

  function handleLeftClick,coordinationsL

  ; Handles left click on a map square, the coordinations are expected
  ; in format: bits [0:7] - x square coordination, bits [8 - 15] - y
  ; square coordination, other bits are ignored
  ; changes: eax, ebx, ecx, edx

  begin

  mov eax,[coordinationsL]

  mov ebx,0
  mov ecx,0

  mov bl,al
  mov cl,ah

  call checkRange,ebx,ecx
  cmp eax,0
  je hlcNotInRange

  call indexOffset2D,ebx,ecx,[mapWidth],[mapHeight]

  mov bl,[mapArray + eax]   ; bl := mapArray[x][y]
  mov bh,bl                 ; bh := bl

  and bh,11000000b
  cmp bh,01000000b          ; is the square hidden?
  jne hlcNotInRange

  and bl,00111111b          ; set the square to "revealed"
  mov [mapArray + eax],bl   ; write the value back

  push ebx                  ; keep the ebx content, the next function messes it up

  call checkVictory         ; check the victory
  cmp eax,1
  jne hlcNoWin
                            ; victory here
  mov [gameOver],byte 1     ; end the game
  invoke MessageBox,NULL,textWon,textMessage,NULL    ; display lose message

hlcNoWin:

  pop ebx

  and bl,00001111b          ; if the square has mine count of 0
  cmp bl,0
  jne hlcNext1
                            ; reveal all neighbour squares automatically
  push dword 8              ; 8 square neighbourhood count on stack
hlcLoop:
  pop eax
  dec eax
  push eax                  ; neighbourhood count --

  mov eax,[coordinationsL]
  mov ecx,0
  mov ebx,0
  mov cl,al                 ; cl := current x
  mov ch,ah                 ; ch := current y

  mov ebx,[coordinationsL]  ; bl := current x; bh := current y
  pop eax                   ; eax := neighbourhood count
  push eax                  ; keep the value on the stack
  mov edx,2
  mul dl                    ; al := neighbourhood count * 2 (array stored by 2 bytes)
  mov edx,[neighbourhood + eax] ; edx := neighbourhood[neighbourhood count]
  add dl,bl                 ; add neighbourhood offset for x
  add dh,bh                 ; add neighbourhood offset for y
                            ; now in edx are modified coordinations (with neighbourhood offset added)
  mov eax,0                 ; expand the coordinations to dword
  mov al,dl
  mov ebx,0
  mov bl,dh

  call checkRange,eax,ebx
  cmp eax,0
  je hlcSkip

  call handleLeftClick,edx  ; recursively call the function to reveal all neighbourhood squares

hlcSkip:

  pop eax
  push eax
  cmp eax,0
  jne hlcLoop

  pop eax
  jmp hlcNext2

hlcNext1:

  cmp bl,00001111b          ; is there a mine on the clicked square?
  jne hlcNext2
                            ; game over here:
  mov [gameOver],byte 1     ; end the game
  call revealAll            ; reveal all squares
  invoke PlaySound,pathSoundExplosion,NULL,SND_FILENAME + SND_ASYNC ; play the explosion sound
  invoke MessageBox,NULL,textLost,textMessage,NULL    ; display lose message

hlcNext2:

  mov eax,[gameTime]
  cmp eax,0xFFFFFFFF
  jne hlcNotInRange

  mov [gameTime],word 0     ; first move done => start the time count

hlcNotInRange:

  return eax

  end

;-----------------------------------------------------------------------

  function handleRightClick,coordinationsR

  ; Handles right click on a map square, the coordinations are expected
  ; in format: bits [0:7] - x square coordination, bits [8 - 15] - y
  ; square coordination, other bits are ignored
  ; changes: eax, ebx, ecx

  begin

  mov eax,[coordinationsR]

  mov ebx,0
  mov ecx,0

  mov bl,al
  mov cl,ah

  call checkRange,ebx,ecx
  cmp eax,0
  je hrcEnd

  call indexOffset2D,ebx,ecx,[mapWidth],[mapHeight]

  mov bl,[mapArray + eax]   ; bl := mapArray[x][y]
  mov bh,bl                 ; bh := bl

  and bl,11000000b          ; mask out the highest 2 bits

  cmp bl,00000000b      ; revealed?
  je hrcEnd2
  cmp bl,01000000b      ; hidden?
  jne hrcNext1

  mov ecx,[mineCount]   ; update the mine counter
  cmp ecx,0
  je hrcEnd
  dec ecx
  mov [mineCount],ecx

  and bh,00111111b
  or  bh,10000000b      ; mark the square with mine

  jmp hrcEnd
hrcNext1:
  cmp bl,10000000b      ; marked as mine?
  jne hrcNext2
  and bh,00111111b
  or  bh,11000000b      ; mark the square with question mark

  mov ecx,[mineCount]   ; update the mine counter
  inc ecx
  mov [mineCount],ecx

  jmp hrcEnd
hrcNext2:
  and bh,00111111b      ; marked with question mark here
  or  bh,01000000b      ; unmark the square
hrcEnd:

  mov [mapArray + eax],bh ; write the value back
hrcEnd2:

  return eax
  end

;-----------------------------------------------------------------------

  function randomNumber

  ; Returns a random combination of zeroes and ones in eax. The value
  ; depends on the number in seed.
  ; changes: eax, edx

  begin

  ; congruent generator:

  mov eax,[randomValue]
  mov edx,413             ; some random number
  mul edx
  add eax,8944393         ; another random value

  mov [randomValue],eax

  return eax

  end

;-----------------------------------------------------------------------

  function mouseToMap,mouseCoordinations

  ; Converts mouse coordinations to game map coordinations, the result
  ; is returned in format: al = map x, ah = map y, the mouse
  ; coordinations are expected in format: lower 16 bits - mouse x,
  ; upper 16 bits - mouse y
  ; changes: eax, ebx, ecx

  begin

  mov ebx,0
  mov ecx,43            ; tile resolution

  mov eax,[mouseCoordinations]

  div cl
  mov bl,al             ; bl := mouse_x / 43

  shr eax,16
  cmp eax,INFO_BAR_HEIGHT
  jl mtmSkip

  sub eax,INFO_BAR_HEIGHT
  div cl
  mov bh,al             ; bh := (mouse_y - INFO_BAR_HEIGHT) / 43
  jmp mtmSkip2

mtmSkip:
  mov bh,0
mtmSkip2:

  mov eax,ebx

  return eax

  end

;-----------------------------------------------------------------------

  function selectBitmapForSquare,squareCoords

  ; Returns (in eax) a bitmap handle representing given map square, the
  ; coordinations are expected in format: bits [0:7] - x coordination of
  ; the square, bits [8:15] - y coordinations of the square, other bits
  ; are ignored.
  ; changes: eax, ebx, ecx

  begin

  mov eax,[squareCoords]

  mov ebx,0
  mov ecx,0

  mov bl,al   ; bl := x
  mov cl,ah   ; cl := y

  call indexOffset2D,ebx,ecx,[mapWidth],[mapHeight]

  mov bl,[mapArray + eax]   ; bl := mapArray[x][y]

  mov eax,ebx

  and al,11000000b
  cmp al,01000000b                 ; hidden? (01)
  jne sbfsNext1
  mov eax,[hBitmapSquareHidden]
  jmp sbfsEnd
sbfsNext1:
  cmp al,10000000b                 ; marked as mine? (10)
  jne sbfsNext2
  mov ecx,[timerCount]             ; decide the animation frame
  and cl,00000001b
  cmp cl,0
  jne sbfsFrame2
  mov eax,[hBitmapSquareMine1]
  jmp sbfsEnd
sbfsFrame2:
  mov eax,[hBitmapSquareMine2]
  jmp sbfsEnd
sbfsNext2:
  cmp al,11000000b                 ; marked with question mark? (11)
  jne sbfsNext3
  mov eax,[hBitmapSquareUnknown]
  jmp sbfsEnd
sbfsNext3:                         ; revealed (00)
  and bl,00001111b                 ; see the number of mines

  cmp bl,00001111b                 ; mine?
  je sbfsMine

  mov eax,0
  mov ecx,4                        ; to multiply by 4 bytes
  mov al,bl
  mul cl                           ; eax := mines * 4 (address offset)
  mov eax,[hBitmapSquareRevealed + eax]

  jmp sbfsEnd

sbfsMine:
  mov eax,[hBitmapMine]

sbfsEnd:

  return eax

  end

;-----------------------------------------------------------------------

  function checkRange,coordinationX,coordinationY

  ; Checks if the specified coordinations are in the range of the map
  ; array, i.e. x in <0,mapWidth> and y in <0,mapHeight>, the result
  ; is returned in eax (1 = the coordinations are in range, 0
  ; otherwise).
  ; changes: eax

  begin

  mov eax,[coordinationX]
  cmp eax,[mapWidth]        ; coordinationX > mapWidth?
  jge crNotInRange
  mov eax,[coordinationY]
  cmp eax,[mapHeight]       ; coordinationY > mapHeight?
  jge crNotInRange

  mov eax,1                 ; coordinations in range here

  return eax

crNotInRange:
  mov eax,0
  return eax

  end

;-----------------------------------------------------------------------

  function updateTimeString

  ; Updates the global time string depending on global timer count
  ; variable.
  ; changes: eax, ecx

  begin

  mov eax,[gameTime]

  cmp eax,0xFFFFFFFF
  je utsEnd            ; the timer is stopped, don't update

  mov ecx,60           ; seconds in minute
  div cl               ; al := minutes ; ah := seconds
  mov ebx,eax

  mov ecx,10           ; for dividing by 10
  mov ah,0             ; ax := minutes
  div cl               ; al := minutes div 10; ah := minutes mod 10

  add al,'0'           ; make the numbers characters
  add ah,'0'

  mov [timeString + 1],ah
  mov [timeString],al

  mov ax,bx            ; now handle seconds
  shr ax,8
  div cl               ; al := seconds div 10; ah := seconds mod 10

  add al,'0'           ; make the numbers characters
  add ah,'0'

  mov [timeString + 4],ah
  mov [timeString + 3],al

utsEnd:

  return eax

  end

;-----------------------------------------------------------------------

  function updateMineString

  ; Updates the global mine count string depending on global mine count
  ; variable.
  ; changes: eax, ebx

  begin

  mov eax,[mineCount]

  mov ebx,10           ; to divide by 10
  div bl               ; al := mineCount div 10; ah := mineCount mod 10

  add al,'0'           ; make numbers character
  add ah,'0'           ; make numbers character

  cmp al,'0'           ; replace the possible leading zero with space
  jne umsSkip
  mov al,' '

umsSkip:
  mov [mineString + 1],ah  ; write the string
  mov [mineString],al

  return eax
  end

;-----------------------------------------------------------------------

  function revealAll

  ; Reveals all game map squares.
  ; changes: eax, ebx

  begin

  mov eax,[mapWidth]
  mov ebx,[mapHeight]
  mul al                  ; ax := mapWidth * mapHeight
  mov ebx,0
  mov bx,ax
  mov eax,ebx             ; eax = index

raLoop:                   ; mark all squares as revealed
  dec eax                 ; position--

  mov bl,[mapArray + eax] ; bl := mapArray[index]
  and bl,00111111b        ; mark as revealed
  mov [mapArray + eax],bl

  cmp eax,0
  jne raLoop

  return eax
  end

;-----------------------------------------------------------------------

  function checkVictory

  ; Checks if the game was won (i.e. all empty squares are revealed).
  ; The result is returned in eax as 1 (victory) or 0 (no victory).
  ; changes: eax, ebx

  begin

  mov eax,[mapWidth]
  mov ebx,[mapHeight]
  mul al                  ; ax := mapWidth * mapHeight
  mov ebx,0
  mov bx,ax
  mov eax,ebx             ; eax = index

cvLoop:                   ; check all squares
  dec eax                 ; position--

  mov bl,[mapArray + eax] ; bl := mapArray[index]
  mov bh,bl
  and bl,00001111b        ; mask out the lower 4 bits
  cmp bl,00001111b        ; is there a mine?
  je cvSkip               ; mine => continue
  and bh,11000000b        ; mask out the upper 2 bits
  cmp bh,0                ; is the square revealed?
  je cvSkip               ; if so, continue checking
  return 0                ; unrevealed square with a mine => no victory here
cvSkip:

  cmp eax,0
  jne cvLoop

  return 1                ; victory here
  end

;-----------------------------------------------------------------------

  function newGame,difficulty

  ; Initialises a new game with one of two difficulties (0 or 1). It
  ; sets up the map array and variables such as window size etc.
  ; changes: eax, ebx, ecx

  begin

  cmp [difficulty], dword 1   ; set the difficulty parameters
  je ngSkip
  mov [mineCount], dword 10   ; 0 = 9 x 9, 10 mines
  mov [mapWidth], dword 9
  mov [mapHeight], dword 9
  jmp ngSkip2
ngSkip:
  mov [mineCount], dword 30   ; 1 = 12 x 12, 30 mines
  mov [mapWidth], dword 12
  mov [mapHeight], dword 12
  jmp ngSkip2
ngSkip2:

  mov eax,[mapWidth]
  mov ebx,[mapHeight]
  mul bx                      ; eax := mapWidth * mapHeight

  call placeMines,[mineCount],mapArray,eax   ; initialise the map
  call countMines,mapArray,[mapWidth],[mapHeight]

  mov [gameOver],byte 0
  mov [gameTime],dword 0
  call updateTimeString                      ; redraw the timer string
  call updateMineString                      ; redraw the mine string
  mov [gameTime],dword 0xFFFFFFFF            ; reset the timer

                         ; set the window size variables:
  mov ecx,43             ; tile size in pixels
  mov eax,[mapWidth]
  mul cx
  mov [windowWidth],eax
  mov eax,[mapHeight]
  mul cx
  add eax,INFO_BAR_HEIGHT                ; add the info bar height to total height
  mov ebx,eax                            ; ebx := total height

  invoke GetSystemMetrics,SM_CYCAPTION   ; get the title bar size

  add ebx,eax                            ; and add it to height

  invoke GetSystemMetrics,SM_CYMENU      ; get the menu height

  add ebx,eax                            ; and add it to height

  mov [windowHeight],ebx



  return eax
  end
Brutal Sudoku Solver
program BrutalSudokuSolver;

{                O==============================O
                 |                              |
                 | This program should be able  |
                 | to solve a sudoku riddle.    |
                 |                              |
                 |                              |
                 | by: Miloslav "TastyFish" Èíž |
                 | year: 2008                   |
                 |                              |
                 O==============================O                                   }

uses  crt;

const VERSION = '1.5';                            { current program version         }
      POS_X = 2;                                  { position of the upper left      }
      POS_Y = 3;                                  {   corner at the screen          }

type  TNumber = 0..9;                             { only numbers 1..9 are allowed   } 
                                                  { 0 = unknown number              }
      TSet    = set of TNumber;

      TSquare = record
                 Solution : TNumber;              { solution of a single square     }
                 PossibleNumbers : TSet;          { set of possible solutions       }
               end;

      TSudoku = array [1..9, 1..9] of TSquare;    { a sudoku sheet                  }

var   Sudoku  : TSudoku;                          { our sudoku sheet variable       }
      OK      : Boolean;                          { (un)succes of solving           }
      Choice  : Char;                             { to capture user's choice (y/n)  }
      A, B    : Byte;                             { used for reseting the sudoku    }

{-----------------------------------------------------------------------------------}
function GetSetSize (S: TSet): Byte;              { returns a size of a set (= how  }
                                                  {   many TNumbers it contains)    }
var Size, N: Byte;

begin
  Size := 0;
  for N:=1 to 9 do
    if N in S then
      Size := Size + 1;
  GetSetSize := Size;
end; {GetSetSize}

{-----------------------------------------------------------------------------------}
procedure DrawSudoku (What: TSudoku; WhereX, WhereY: byte);             
                                                  { draws the "What" sudoku at the  }                 
var Xx, Yy: Byte;                                 {   screen                        }

begin
  GoToXY (WhereX,WhereY);
  TextColor (LightRed);
  WriteLn ('ÚÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄ¿');

  for Yy := 1 to 9 do begin

    for Xx:=2 to WhereX do
      Write (' ');

    for Xx := 1 to 9 do begin

      if (Xx-1) mod 3 = 0 then
        TextColor (LightRed)
        else
          TextColor (White); 
      Write ('³');
      TextColor (LightGreen);
      if What[Xx,Yy].Solution <> 0 then
        Write (What[Xx,Yy].Solution,' ')
        else
          Write ('  ');
      if Xx=9 then begin
        TextColor (LightRed);
        Writeln ('³');
      end;        
    end;

    for Xx:=2 to WhereX do
      Write (' ');

    TextColor (LightRed);

    case Yy of
      3,6: WriteLn ('ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
        9: WriteLn ('ÀÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÙ')
      else begin
             Write ('Ã');
             TextColor (White);
             Write ('ÄÄÅÄÄÅÄÄ'); 
             TextColor (LightRed);
             Write ('Å');
             TextColor (White);
             Write ('ÄÄÅÄÄÅÄÄ'); 
             TextColor (LightRed);
             Write ('Å'); 
             TextColor (White);
             Write ('ÄÄÅÄÄÅÄÄ'); 
             TextColor (LightRed);
             Writeln ('´'); 
           end;
    end; { case }
  end;

  TextColor (White);
end; { DrawSudoku }

{-----------------------------------------------------------------------------------}
procedure GetNumbers (var ToWhat: TSudoku; XWhere, YWhere: Byte);                     
                                                  { allows the user to set the      }
var Xxx, Yyy: byte;                               {   numbers at the beggining      }
    Key     : char;                               { key being pressed               }
                               
begin
  Xxx := 1;                                       { set cursor to 1;1               }
  Yyy := 1;
  repeat
    DrawSudoku(ToWhat,POS_X,POS_Y);               { redraw the sheet                }
    GoToXY (1+3*(Xxx-1)+XWhere,1+2*(Yyy-1)+YWhere);
    key := ReadKey;
    case key of
      #72: if Yyy>1 then                          { up                              }
             Yyy := Yyy-1;
      #77: if Xxx<9 then                          { right                           }
             Xxx := Xxx+1;
      #80: if Yyy<9 then                          { down                            }
             Yyy := Yyy+1;
      #75: if Xxx>1 then                          { left                            }
             Xxx := Xxx-1;
      #8 : ToWhat[Xxx,Yyy].Solution := 0;         { backspace = delete number       }
      '1': ToWhat[Xxx,Yyy].Solution := 1;         { and 1..9 values:                }
      '2': ToWhat[Xxx,Yyy].Solution := 2;
      '3': ToWhat[Xxx,Yyy].Solution := 3;
      '4': ToWhat[Xxx,Yyy].Solution := 4;
      '5': ToWhat[Xxx,Yyy].Solution := 5;
      '6': ToWhat[Xxx,Yyy].Solution := 6;
      '7': ToWhat[Xxx,Yyy].Solution := 7;
      '8': ToWhat[Xxx,Yyy].Solution := 8;
      '9': ToWhat[Xxx,Yyy].Solution := 9;
    end;
  until key = #13;                                { until enter pressed             }
end; { GetNumbers }

{-----------------------------------------------------------------------------------}
function Check (No, PX, PY: TNumber; Whr: Tsudoku): Boolean;
                                                  { returns true if the "No" number }
var O, P: TNumber;                                {   does not violate the rules    }
    CheckOK: Boolean;                             {   when at PX;PY position in the }
                                                  {   "Whr" sudoku                  }
begin
  CheckOK := true;
  
  for O := 1 to 9 do                              { check column and line           }
    if ( (No = Whr[PX,O].Solution) and (O<>PY) ) or ( (No=Whr[O,PY].Solution) and (O<>PX) ) then begin
      CheckOK := false;
      Break;
    end;

  for O := 1 to 3 do                              { check a 3x3 square              }
    for P := 1 to 3 do
      if (No = Whr[P+((PX-1) div 3)*3, O+((PY-1) div 3)*3].Solution) and
         ( ( P+((PX-1) div 3)*3 <> PX ) or ( O+((PY-1) div 3)*3 <> PY) ) then begin
        CheckOK := false;
        Break;
      end;

  Check := CheckOK;
end; { Check }

{-----------------------------------------------------------------------------------}
procedure FindPossibleNumbers (var Where: TSudoku; var Done: Boolean);
                                                  { makes a set of possible solluti-}
var X, Y, I: Byte;                                {   ons for each square in "Where"}
                                                  {   , returns false if any square }
begin                                             {   remains unfilled              }
  for Y := 1 to 9 do
    for X := 1 to 9 do
      if Where[X,Y].Solution = 0 then begin       { if unsolved yet                 }
      Where[X,Y].Possiblenumbers := Where[X,Y].Possiblenumbers - [0];
      Done := false;
      for I := 1 to 9 do
        if Check (I,X,Y,Where) then
          Where[X,Y].Possiblenumbers := Where[X,Y].Possiblenumbers + [I]
          else
            Where[X,Y].Possiblenumbers := Where[X,Y].Possiblenumbers - [I];
      end
      else
        Where[X,Y].Possiblenumbers := [];         { empty set for solved squares    } 
end; { FindPossibleNumbers }

{-----------------------------------------------------------------------------------}
procedure FindFinalNumbers1 (var Where: TSudoku; var Change: Boolean);
                                                  { makes final solution of squares }
var X, Y, I: Byte;                                {   from sets of their possible   }
                                                  {   numbers (method 1), returns,  }
begin                                             {   false if no change happened   }
  for Y := 1 to 9 do
    for X := 1 to 9 do
      if Where[X,Y].Solution = 0 then
        if GetSetSize (Where[X,Y].PossibleNumbers) = 1 then
          for I := 1 to 9 do
            if I in Where[X,Y].PossibleNumbers then begin
              Where[X,Y].Solution := I;
              Change := true;
            end;
end; { FindFinalNumbers1 }

{-----------------------------------------------------------------------------------}
procedure FindFinalNumbers2 (var Where: TSudoku; var Change: Boolean);
                                                  { makes final solution of squares }
var X, Y, I, J, K, L: Byte;                       {   from sets of their possible   }
                                                  {   numbers (method 2), returns,  }
begin                                             {   false if no change happened   }
  for Y := 1 to 9 do                              { for each line do:               }
    for I := 1 to 9 do begin                      { -  check whether there is a     }
      J := 0;                                     {    line-unique number ( J =     }
      for X := 1 to 9 do                          {    number count, I = current    }
        if I in Where[X,Y].PossibleNumbers then   {    number being checked )       }
          J := J + 1;
      if J = 1 then                               { -  if so then find it again     }
        for X := 1 to 9 do
          if I in Where[X,Y].PossibleNumbers then begin
            Where[X,Y].Solution := I;             { -  and make it the solution     }
            Change := true;
            Break;
          end;            
    end;

  for X := 1 to 9 do                              { do the same for each column:    }
    for I := 1 to 9 do begin                      { -  check whether there is a     }
      J := 0;                                     {    column-unique number ( J =   }
      for Y := 1 to 9 do                          {    number count, I = current    }
        if I in Where[X,Y].PossibleNumbers then   {    number being checked )       }
          J := J + 1;
      if J = 1 then                               { -  if so then find it again     }
        for Y := 1 to 9 do
          if I in Where[X,Y].PossibleNumbers then begin
            Where[X,Y].Solution := I;             { -  and make it the solution     }
            Change := true;
            Break;
          end;            
    end;

  for K := 0 to 2 do                              { and do the sam for each 3x3 sqr:}
    for L := 0 to 2 do                            { K and L define the "3x3 square" }
      for I := 1 to 9 do begin                    {   currently being checked       }
       J := 0;
       for Y := 1 to 3 do
          for X := 1 to 3 do
            if I in Where[X+L*3,Y+K*3].PossibleNumbers then
              J := J + 1;
        if J = 1 then
          for Y := 1 to 3 do
            for X := 1 to 3 do
              if I in Where[X+L*3,Y+K*3].PossibleNumbers then begin
                Where[X+L*3,Y+K*3].Solution := I;
                Change := true;
              end;
      end;  
end; { FindFinalNumbers2 }

{-----------------------------------------------------------------------------------}
procedure SolveSudoku (var Wht: TSudoku; var GotSolution: Boolean);
                                                  { attempts to solve a sudoku,     }
var Solved, Changed: Boolean;                     {   returns true if solved        }                 

begin

  repeat
    Changed := false;                             { to detect if any change happened}
    Solved := true;                               { let's suppose the solution has  }
                                                  {   been found                    }    
    FindPossibleNumbers (Wht, Solved);
    FindFinalNumbers1 (Wht, Changed);
    FindFinalNumbers2 (Wht, Changed);                                                
  until Solved or not(Changed);                   { repeat until solved or not      }
                                                  {   changed (= no solution)       } 
  if Solved then
    GotSolution :=true
    else
      GotSolution :=false;
 
end; { SolveSudoku }


{-----------------------------------------------------------------------------------}
procedure BruteForce (var Sud: TSudoku; var Okay: Boolean);
                                                  { attempts to solve a sudoku      }
var XPos, YPos: Byte;                             {   using a brute force method    }
    Nr: TNumber;
    SquareCoordsList: array[1..81,'X'..'Y'] of TNumber;
    ListLength: Byte;
    NumberAdded: Boolean;

begin
  ListLength := 0;                                { make a list of empty squares'   }
  for YPos := 1 to 9 do                           {   coordination and remember its }
    for XPos := 1 to 9 do                         {   length                        }
      if Sud[XPos,YPos].Solution = 0 then begin
        ListLength := ListLength + 1;
        SquareCoordsList[ListLength,'X'] := XPos;
        SquareCoordsList[ListLength,'Y'] := YPos;
      end;

  XPos := 1;                                      { from now XPos = position in the }
  Okay := true;                                   {   list of empty squares         }
  repeat
    NumberAdded := false;

    for Nr := 1 to 9 do
      if( Sud[SquareCoordsList[XPos,'X'],SquareCoordsList[XPos,'Y']].Solution + Nr <= 9 )
        and 
        ( Check (Sud[SquareCoordsList[XPos,'X'],SquareCoordsList[XPos,'Y']].Solution + Nr,
                SquareCoordsList[XPos,'X'],SquareCoordsList[XPos,'Y'],Sud) )
        then begin
          NumberAdded := true;
          Sud[SquareCoordsList[XPos,'X'],SquareCoordsList[XPos,'Y']].Solution :=
          Sud[SquareCoordsList[XPos,'X'],SquareCoordsList[XPos,'Y']].Solution + Nr;
          Break;
        end;

   if NumberAdded then
      XPos := XPos + 1
      else begin
        Sud[SquareCoordsList[XPos,'X'],SquareCoordsList[XPos,'Y']].Solution := 0;
        if XPos > 1 then
          XPos := XPos - 1
          else begin
            Okay := false;
            Break;
          end;
      end;    
    DrawSudoku(Sud,POS_X,POS_Y);    
  until XPos > ListLength;                        { till we reach the end           }
end; { BruteForce }

{===================================================================================}
{                                     Program                                       }
{===================================================================================}

begin { program }

  ClrScr;
  WriteLn ('  Vita vas program BrutalSudokuSolver (v',VERSION,', autor: Miloslav "TastyFish" Ciz)    ');
  WriteLn ('-------------------------------------------------------------------------------');
  WriteLn;
  WriteLn ('  Tento program se snazi hledat reseni hadanky sudoku podle zadani, ktere  '); 
  WriteLn ('  dostane. Nejdriv se pokusi aplikovat logicke metody reseni, ktere vsak   ');
  WriteLn ('  nejsou 100% uspesne, proto od verze 1.5 nabizi take moznost metody Brute ');
  WriteLn ('  Force (casove narocnejsi, avsak s jistotou uspechu). Chtel bych Vas take ');
  WriteLn ('  upozornit na chybu, ktera obcas nastane pri zadavani cisel a zpusobi, ze ');
  WriteLn ('  se cislo nezobrazi hned, ale az po zadani nekolika dalsich cisel. Tato   ');
  WriteLn ('  drobnost nijak neovlivni beh programu a presto, ze se nejedna o chybu mou');
  WriteLn ('  ale prekladace, se za ni omlouvam. Doufam, ze Vam bude program jakkoli   ');
  WriteLn ('  uzitecnym :)                                                             ');

  Write ('- Pokracujte stiskem klavesy ');
  TextColor (LightRed);
  Write ('[ENTER]');
  TextColor (White);
  Write (': ');
  ReadLn;

  repeat
    for A := 1 to 9 do                            { reset: set all squares to empty}
      for B := 1 to 9 do
        Sudoku[B,A].Solution := 0;

    ClrScr;
    Write ('    BrutalSudokuSolver ',VERSION);
    GetNumbers (Sudoku,POS_X,POS_Y);
    SolveSudoku (Sudoku,OK);
    DrawSudoku (Sudoku,POS_X,POS_Y);
    GoToXY(1,22);

    if not(OK) then begin
      WriteLn('Program zatim nedokazal nalezt reseni. Ma pouzit metodu Brute Foce? (a/n)');
      repeat
        Choice := ReadKey;                        { get an answer                  }
      until choice in ['a','n'];
      if choice = 'a' then
        BruteForce (Sudoku,OK);
    end;
    
    Writeln;
    if not(OK) then
      Write('Sudoku nema reseni. ');
    
    Write('Prejete si pokracovat? (a/n)');        { continue?                      } 
 
    repeat
      Choice := ReadKey;                          { get an answer                  }
    until choice in ['a','n'];                    {   which can only be 'a' or 'n' }
  until choice='n';
  
  ClrScr;
  Write('Nashledanou :p');                        { say "goodbye"                  }
  ReadLn;                                         { and wait for enter             }

end. { program }
Mage Rage
--- FILE ./animation.cpp ---
﻿/**
 * Animation object class implementation.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "animation.h"

//----------------------------------------------

c_animation::c_animation(long int *global_time, string file_prefix, int number_of_frames, int offset_x, int offset_y, int speed,
  bool has_sound, string sound_path, double sound_gain)
  {
	int i;

	if (has_sound)
	  {
	    this->sound = al_load_sample(sound_path.c_str());

	    if (!this->sound)
          this->succesfully_loaded = false;
	  }
	else
	  this->sound = NULL;

	this->sound_gain = sound_gain;
	this->playing_sound = false;
	this->animation_period = number_of_frames;
	this->offset_x = offset_x;
	this->offset_y = offset_y;
	this->speed = speed;
	this->global_time = global_time;
	this->succesfully_loaded = true;

	for (i = 0; i < MAX_ANIMATION_FRAMES; i++)
	  this->frames[i] = NULL;

	for (i = 0; i < number_of_frames; i++)
	  {
		this->frames[i] = al_load_bitmap((file_prefix + "_" + to_string((long long)(i + 1)) + ".png").c_str());

		if (this->frames[i] == NULL)
		  {
			this->succesfully_loaded = false;
			break;
		  }
	  }
  }

//----------------------------------------------

c_animation::~c_animation()
  {
	int i;

	al_destroy_sample(this->sound);

	for (i = 0; i < MAX_ANIMATION_FRAMES; i++)
	  al_destroy_bitmap(this->frames[i]);
  }

//----------------------------------------------

void c_animation::draw(int x, int y)
  {
	this->animation_frame = (*this->global_time - this->started_playing) / this->speed;

	if (!this->looping_animation)
	  if (this->animation_frame >= this->animation_period)
	    {
		  this->stop_animation();
	      return;
	    }

	al_draw_bitmap(this->frames[this->animation_frame % this->animation_period],this->offset_x + x,this->offset_y + y,0);
  }

//----------------------------------------------
--- FILE ./animation.h ---
﻿#ifndef GRAPHIC_ANIMATION_H
#define GRAPHIC_ANIMATION_H

/**
 * Animation object class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"
#include "graphic_object.h"

using namespace std;

class c_animation: public c_graphic_object
  {
	/**
	  This class represents an animation object.
	  It contains one animation, that can be
	  played on the screen. It does not affect
	  the game itself, only makes it look nicer.
	*/

    protected:
	  int speed;                                    /** animation speed, 1 is normal, 2 is twice as slow and so on */
	  int offset_x;                                 /** x offset for drawing in pixels */
	  int offset_y;                                 /** y offset for drawing in pixels */	  

	  ALLEGRO_BITMAP *frames[MAX_ANIMATION_FRAMES]; /** bitmaps- animation frames */

    public:

	  c_animation(long int *global_time, string file_prefix, int number_of_frames, int offset_x, int offset_y, int speed,
        bool has_sound, string sound_path, double sound_gain);

	    /**
		  Class constructor, initialises a new
		  object.

		  @param global_time reference to a global
		    time counter
		  @param file_prefix string prefix of
		    file names, that contain the
			animation frames - for example if
			"a" is specified and number of frames
			is 3, then this method will search
			for files "a_1.png", "a_2.png" and
			"a_3.png"
		  @param number_of_frames number of
		    animation frames (there must be
			corresponding number of png
			files)
		  @param offset_x x offset for drawing
		    in pixels (can be negative)
		  @param offset_y y offset for drawing
		    in pixels (can be negative)
		  @param speed speed of the animation,
		    1 is normal, 2 is twice as slow
			and so on
		  @param has_sound set this to true
		    if sound should be loaded for this
			animation, otherwise false
		  @param sound_path if the previous
		    parameter is true, this specifies
			the path to the sound file
		  @param sound_gain sound gain
		    (volume), 1.0 is normal
		*/

	  ~c_animation();

	    /**
		  Class destructor, frees all it's
		  memory.
		*/

      virtual void draw(int x, int y);

	    /**
	      Tells the object to draw itself at given
	  	  coordinations on the screen.

		  @param x x coordination of the screen
		  @param y y coordination of the screen
	    */
  };

#endif
--- FILE ./associative_array.cpp ---
﻿/**
 * Associative array class implementation.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "associative_array.h"

//-----------------------------------------------

c_associative_array::c_associative_array()
  {
	this->keys = new vector<string>();
	this->values = new vector<string>();
  }
  
//-----------------------------------------------

c_associative_array::~c_associative_array()
  {
	delete this->keys;
	delete this->values;
  }

//-----------------------------------------------
  
void c_associative_array::set_text(string identifier, string value)
  {
	this->delete_text(identifier); // delete the item if it already exists

	this->keys->push_back(identifier);
	this->values->push_back(value);
  }

 //----------------------------------------------

string c_associative_array::get_text(string identifier)
  {
	int i;
		  
	for(i = 0; (unsigned int) i < this->keys->size(); i++)
	  {
		if(this->keys->at(i).compare(identifier) == 0)
		  {
		    return this->values->at(i);
		  }
	  }

	return "";
  }

//-----------------------------------------------

void c_associative_array::delete_text(string identifier)
  { 
	int i;
	
	for(i = 0; (unsigned int) i < this->keys->size(); i++)
	  {
		if(this->keys->at(i).compare(identifier) == 0)
		  {
  		    this->values->erase(this->values->begin() + i,this->values->begin() + i + 1);
			this->keys->erase(this->values->begin() + i,this->values->begin() + i + 1);
		  }
	  }
  }

//-----------------------------------------------

bool c_associative_array::load_from_file(string file_name)
  {
	 ifstream file(file_name);
	 string line, key, value;
	 int i, separator_position;

	 if (!file.is_open())
	   return false;

	 this->keys->clear();
	 this->values->clear();

	 while (getline(file,line))
       { 
		 separator_position = 0;

		 for (i = 0; (unsigned int) i < line.length(); i++)
		   if (line[i] == ':')
		     {
				separator_position = i;
				break;
		     }

		 try
		   {
		     key = line.substr(0,i); 
		     value = line.substr(i + 1,line.length() - key.length());
             this->set_text(key,value);
		   }
		 catch(...)
		   {
		   }
       }

	 file.close();

	 return true;
  }

//-----------------------------------------------

bool c_associative_array::save_to_file(string file_name)
  {
	ofstream file(file_name);
	int i;

	if (!file.is_open())
	  return false;

	for (i = 0; (unsigned int) i < this->keys->size(); i++)
	  {
		file << this->keys->at(i) << ":" << this->values->at(i) << endl;
	  }

	file.close();

	return true;
  }

//-----------------------------------------------
--- FILE ./associative_array.h ---
﻿#ifndef ASSOCIATIVE_ARRAY_H
#define ASSOCIATIVE_ARRAY_H

/**
 * Associative array class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"
#include <string>
#include <vector>
#include <algorithm>
#include <fstream>
#include <sstream>

class c_associative_array
  {

    protected:
	  vector<string> *keys;      /** list of keys */
	  vector<string> *values;    /** list of values */

    public:
      c_associative_array();

	    /**
	      Class constructor, initialises a new
		  object.
	    */

	  ~c_associative_array();

	    /**
		  Class destructor, frees all it's memory.
		*/

	  bool load_from_file(string file_name);

	    /**
	      Loads the array from given file. The
		  file contains texts separated by
		  newlines, each line in format:
		  identifier:text

		  @param file_name path to the file
		  @return true if the file was loaded
		    succesfully, false otherwise
	    */

	  bool save_to_file(string file_name);

	  	/**
	      Saves the array to given file.

		  @param file_name path to the file
		  @return true if the file was saved
		    succesfully, false otherwise
	    */

	  string get_text(string identifier);

	    /**
          Returns text with given identifier.		  
		
		  @param identifier identifier of the
		    text to be returned
		  @return text with given identifier,
			or (if the text was not found)
			returns an empty string
		*/

	  void set_text(string identifier, string value);

	    /**
          Sets the value for given identifier.
		  If the identifier already exists,
		  it's current value will be
		  overwritten, otherwise a new key is
		  created with this value.
		
		  @param identifier identifier of the
		    text to be returned
		  @param value value for the identifier
		*/

	  void delete_text(string identifier);
	    
	    /**
		  Deletes given item. If the item
		  doesn't exist, nothing happens.

		  @param identifier identifier of the
		    item to be deleted
		*/
  };

#endif
--- FILE ./character.cpp ---
﻿/**
 * Character class implementation file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "character.h"

//-----------------------------------------------

void c_character::move_by(double x, double y)
  {
	this->position_x += x;
	this->position_y += y;
  }

//-----------------------------------------------

void c_character::set_direction(t_direction direction)
  {
	this->direction = direction;
  }

//-----------------------------------------------

void c_character::set_position(double x, double y)
  {
	this->position_x = x;
	this->position_y = y;
  }

//-----------------------------------------------

void c_character::set_square_position(int x, int y)
  {
	this->position_x = c_character::square_to_position(x,true);
	this->position_y = c_character::square_to_position(y,false);
  }

//-----------------------------------------------

double c_character::get_position_x()
  {
	return this->position_x;
  }
	
//-----------------------------------------------

double c_character::get_position_y()
  {
	return this->position_y;
  }

//-----------------------------------------------

int c_character::position_to_square(double position, bool take_x)
  {
	if (take_x)
	  return floor(position + 0.3);
	else
	  return position > -0.3 ? floor(position + 0.3) + 1 : 0;
  }

//-----------------------------------------------

double c_character::square_to_position(int square_position, bool take_x)
  {
	if (take_x)
	  return square_position + 0.25;
	else
	  return square_position > 0.0 ? square_position - 0.5 : -0.31;
  }

//-----------------------------------------------

int c_character::get_square_x()
  {
	return this->position_to_square(this->position_x,true);
	// return floor(this->position_x + 0.3);  // 0.3 is a centering constant
  }

//-----------------------------------------------

int c_character::get_square_y()
  {
	return this->position_to_square(this->position_y,false);
	//return this->position_y > -0.3 ? floor(this->position_y + 0.3) + 1 : 0;
  }

//-----------------------------------------------

double c_character::get_fraction_x()
  {
	double helper;

	return modf(this->position_x + 0.3,&helper);
  }

//-----------------------------------------------

double c_character::get_fraction_y()
  {
	double helper;

	return this->position_y > -0.3 ? modf(this->position_y + 0.3,&helper) : 1.3 + this->position_y;
  }

//-----------------------------------------------

t_direction c_character::get_direction()
  {
	return this->direction;
  }

//-----------------------------------------------

void c_character::loop_animation(t_animation_type animation)
  { 
	this->stop_animation();
	this->playing_animation = animation;
	this->animation_frame = 0;
	this->looping_animation = true;
	this->started_playing = *this->global_time;
	this->update_animation_period();

	switch (animation)
	  {
	    case ANIMATION_RUN:
		  if (this->sound_footsteps != NULL)
		    {
			  al_play_sample(this->sound_footsteps,this->footsteps_gain,0.0,1.0,ALLEGRO_PLAYMODE_LOOP,&this->playing_sound_id);
		      this->playing_sound = true;
		    }

		  break;

		case ANIMATION_SKATE:
		  if (this->sound_skate != NULL)
		    {
			  al_play_sample(this->sound_skate,this->skate_gain,0.0,1.0,ALLEGRO_PLAYMODE_LOOP,&this->playing_sound_id);
		      this->playing_sound = true;
		    }

		  break;
	  }
  }

//-----------------------------------------------
--- FILE ./character.h ---
﻿#ifndef CHARACTER_H
#define CHARACTER_H

/**
 * Character class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"
#include "graphic_object.h"

class c_character: public c_graphic_object
  {
    /**
	  This abstract class represents an ingame
	  character.
	*/

    protected:

	  double position_x;     /** x position on the map */
	  double position_y;     /** y position on the map */
	  t_direction direction; /** direction, in which the character is facing */
	  double footsteps_gain; /** footstep sound gain */
	  double skate_gain;     /** skate sound gain */

	  ALLEGRO_BITMAP *shadow;                        /** shadow bitmap */
	  ALLEGRO_BITMAP *sprite_north;                  /** character facing north */
	  ALLEGRO_BITMAP *sprite_north_running_1;        /** character running north, frame 1 */
	  ALLEGRO_BITMAP *sprite_north_running_2;        /** character running north, frame 2 */
	  ALLEGRO_BITMAP *sprite_east;                   /** character facing east */
	  ALLEGRO_BITMAP *sprite_east_running_1;         /** character running east, frame 1 */
	  ALLEGRO_BITMAP *sprite_east_running_2;         /** character running east, frame 2 */
	  ALLEGRO_BITMAP *sprite_south;                  /** character facing south */
	  ALLEGRO_BITMAP *sprite_south_running_1;        /** character running south. frame 1 */
	  ALLEGRO_BITMAP *sprite_south_running_2;        /** character running south, frame 2 */
	  ALLEGRO_BITMAP *sprite_west;                   /** character facing west */
	  ALLEGRO_BITMAP *sprite_west_running_1;         /** character running west, frame 1 */
	  ALLEGRO_BITMAP *sprite_west_running_2;         /** character running west, frame 2 */
	  ALLEGRO_SAMPLE *sound_footsteps;               /** sound - footsteps */
	  ALLEGRO_SAMPLE *sound_skate;                   /** sound - skate */

    public:

	  static int position_to_square(double position, bool take_x);

	    /**
	      Converts either x or y double position
		  to integer position in map squares.

		  @param position position to be converted
		  @param take_x if true, the position is
		    considered as x position, otherwise
			y position
		  @return position in map squares
		*/

	  static double square_to_position(int square_position, bool take_x);

	    /**
	      Converts position in map squares to
		  double position.

		  @param square_position position in map
		    squares to be converted
		  @param take_x if true, the position is
		    considered as x position, otherwise
			y position
		  @return double position
		*/

	  void set_position(double x, double y);

	    /**
	      Sets the character's new position.

		  @param x new position x
		  @param y new position y
	    */

	  void set_square_position(int x, int y);

	    /**
		  Sets the player's position given in
		  map squares.

		  @param x
		  @param y
		*/

	  void set_direction(t_direction direction);

	    /**
	      Sets the character's facing direction.

		  @param direction new direction
	    */

	  void move_by(double x, double y);

	    /**
	      Sets the character's position relatively
		  to current position.

		  @param x value to be added to x position
		  @param y value to be added to y position
	    */

	  double get_position_x();

	    /**
	      Returns x position of the character.

		  @return x position
	    */

	  double get_position_y();
     
	    /**
	      Returns y position of the character.
		
		  @return y position
	    */

	  int get_square_x();

	    /**
	      Returns x coordination of the square at
		  which the character is standing.

		  @return x coordination of the
		    character's square 
	    */

	  int get_square_y();

	    /**
	      Returns y coordination of the square at
		  which the character is standing.

		  @return y coordination of the
		    character's square 
	    */

	  double get_fraction_x();

	    /**
	      Returns fraction part of the position,
		  which is position within current square.

		  @return x position within current
		    square (value in range <0;1>)
	    */

	  double get_fraction_y();

	    /**
	      Returns fraction part of the position,
		  which is position within current square.

	  	  @return y position within current
		    square (value in range <0;1>)
	    */

	  virtual void loop_animation(t_animation_type animation);

	    /**
		  Loops the given animation untill it's
		  stopped by stop_animation().

		  @param animation animation to be looped
		*/

	  t_direction get_direction();

	    /**
	      Returns character's direction.

		  @return character's direction
	    */
  };

#endif
--- FILE ./game.cpp ---
﻿/**
 * Game class implementation file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "game.h"

//-----------------------------------------------

c_game::c_game()
  {   
	string help_array[1];
	ALLEGRO_DISPLAY_MODE display_data;

	if (!al_init())                                // initialise allegro
	  {
	    cerr << "ERROR: failed to initialize allegro." << endl;
	  }
 
	if (!al_init_image_addon())                    // initialise image addon
	  {
		cerr << "ERROR: failed to initialize al_init_image_addon." << endl; 
	  }
 
	if (!al_install_keyboard())                    // initialise keyboard
	  {
        cerr << "ERROR: failed to initialize the keyboard." << endl;
      }

	if (!al_install_audio())                       // initialise audio
	  {
        cerr << "ERROR: failed to initialize audio." << endl;
      }
 
	if (!al_reserve_samples(20))                   // reserve audio samples
	  {
        cerr << "ERROR: failed to reserve samples." << endl;
      }

    if (!al_init_acodec_addon())                   // initialise audio codec addon
	  {
        cerr << "ERROR: failed to initialize audio codecs." << endl;
      }

    if (!al_init_primitives_addon())               // initialise primitives addon
	  {
		cerr << "ERROR: failed to initialize primitives addon." << endl;
	  }

	al_init_font_addon();                          // initialise the font addon
	
	if (!al_init_ttf_addon())                      // initialise the ttf addon
	  {
		cerr << "ERROR: failed to initialize ttf addon." << endl;
	  }

	if(!al_install_mouse())
	  {
        cerr << "ERROR: failed to initialize mouse." << endl;
      }
	
	this->win_sound = al_load_sample("resources/win.wav");
	this->lose_sound = al_load_sample("resources/lose.wav");

	if (this->win_sound == NULL || this->lose_sound == NULL)
	  {
        cerr << "ERROR: failed to load game sounds." << endl;
      }

	this->load();                                  // load the progress and settings from the data file

	if (this->settings.fullscreen)
	  {
		al_get_display_mode(al_get_num_display_modes() - 1,&display_data);
		al_set_new_display_flags(ALLEGRO_FULLSCREEN);
		this->input_output_state.screen_x = display_data.width;
		this->input_output_state.screen_y = display_data.height;
	  }
	else
	  {
		this->input_output_state.screen_x = 800;
		this->input_output_state.screen_y = 600;
	  }

    this->display = al_create_display(this->input_output_state.screen_x,this->input_output_state.screen_y);  // initialise screen

	if(!this->display)
	  {
		cerr << "ERROR: failed to initialize display." << endl; 
	  }
	
	this->event_queue = al_create_event_queue();   // initialise event queue

	if(!this->event_queue)
	  {
        cerr << "ERROR: failed to create event_queue." << endl;
      }

	this->global_timer = al_create_timer(0.05);    // initialise the timer
	
	if(!this->global_timer)
	  {
        cerr << "ERROR: failed to create global timer." << endl;
      }

	this->local_texts = new c_associative_array();      // set the language
	this->set_language(this->settings.language);

	al_register_event_source(this->event_queue,al_get_display_event_source(display));
	al_register_event_source(this->event_queue,al_get_timer_event_source(this->global_timer));
	al_register_event_source(this->event_queue,al_get_keyboard_event_source());
	this->global_time = 0;
	
	this->cheat_buffer[0] = 0;
	this->cheat_used = false;

	al_hide_mouse_cursor(display);
	
	this->set_keys();
	this->update_volume();

	this->input_output_state.key_down = false;            // set keyboard/mouse state
	this->input_output_state.key_up = false;
	this->input_output_state.key_left = false;
	this->input_output_state.key_right = false;
	this->input_output_state.key_1 = false;
	this->input_output_state.key_2 = false;
	this->input_output_state.key_3 = false;
	this->input_output_state.mouse_x = 0;
	this->input_output_state.mouse_y = 0;
	this->input_output_state.key_use = false;
	this->input_output_state.key_cast_1 = false;
	this->input_output_state.key_cast_2 = false;
	this->input_output_state.key_cast_3 = false;
	this->input_output_state.mouse_1 = false; 
	this->input_output_state.key_map_explore = false;
	this->input_output_state.key_back = false;
	this->music = NULL;

	this->map = NULL;
  }

//-----------------------------------------------

void c_game::initialise_new_game(int level_number)
  {
	int language;

	if (this->map != NULL)
	  {
	    delete this->map;
	  }

	if (this->settings.language.compare("english") == 0)
	  language = 0;
	else
	  language = 1;

	if (level_number >= 1 && level_number <= 22)
	  this->map = new c_map("resources/map" + to_string((long long) level_number),&this->input_output_state,&this->global_time,language);
  }

//-----------------------------------------------

void c_game::update_volume()
  {
	double gain;

	gain = this->settings.sound_volume / (double) 100;

	if (gain > 1.0)
	  gain = 1.0;
	else if (gain < 0.0)
      gain = 0.0;

	al_set_mixer_gain(al_get_default_mixer(),gain);
  }

//-----------------------------------------------

void c_game::set_keys()
  {
	this->key_up = ALLEGRO_KEY_UP;
	this->key_down = ALLEGRO_KEY_DOWN;
	this->key_right = ALLEGRO_KEY_RIGHT;
	this->key_left = ALLEGRO_KEY_LEFT;
	this->key_cast1 = ALLEGRO_KEY_Q;
	this->key_cast2 = ALLEGRO_KEY_W;
	this->key_cast3 = ALLEGRO_KEY_E;
	this->key_switch1 = ALLEGRO_KEY_1;
	this->key_switch2 = ALLEGRO_KEY_2;
	this->key_switch3  = ALLEGRO_KEY_3;
	this->key_use = ALLEGRO_KEY_ENTER;
	this->key_use_alt = ALLEGRO_KEY_F;
	this->key_back = ALLEGRO_KEY_ESCAPE;
	this->key_map = ALLEGRO_KEY_SPACE;
  }

//-----------------------------------------------

void c_game::set_language(string language)
  {
	this->settings.language = language;

	if (this->settings.language.compare("english") == 0)
	  this->local_texts->load_from_file("resources/local_texts_english");
	else
	  this->local_texts->load_from_file("resources/local_texts_czech");

    this->main_menu_title = this->local_texts->get_text("main_menu_title");
	this->main_menu_items[0] = this->local_texts->get_text("main_menu_0");
	this->main_menu_items[1] = this->local_texts->get_text("main_menu_1");
	this->main_menu_items[2] = this->local_texts->get_text("main_menu_2");
	this->main_menu_items[3] = this->local_texts->get_text("main_menu_3");
	this->main_menu_items[4] = this->local_texts->get_text("main_menu_4");
	this->game_menu_title = this->local_texts->get_text("game_menu_title");
	this->game_menu_items[0] = this->local_texts->get_text("game_menu_0");
	this->game_menu_items[1] = this->local_texts->get_text("game_menu_1");
	this->game_menu_items[2] = this->local_texts->get_text("game_menu_2");
	this->game_menu_items[3] = this->local_texts->get_text("game_menu_3");
	this->settings_menu_title = this->local_texts->get_text("settings_menu_title");
	this->settings_menu_items[0] = this->local_texts->get_text("settings_menu_0");
	this->settings_menu_items[1] = this->local_texts->get_text("settings_menu_1");
	this->settings_menu_items[2] = this->local_texts->get_text("settings_menu_2");
	this->settings_menu_items[3] = this->local_texts->get_text("settings_menu_3");
	this->settings_menu_items[4] = this->local_texts->get_text("settings_menu_4");
	this->about_lines[0] = this->local_texts->get_text("about_0") + VERSION;         // append the program version number
	this->about_lines[1] = this->local_texts->get_text("about_1");
	this->about_lines[2] = this->local_texts->get_text("about_2");
	this->intro_lines_1[0] = this->local_texts->get_text("intro_0");
	this->intro_lines_1[1] = this->local_texts->get_text("intro_1");
	this->intro_lines_1[2] = this->local_texts->get_text("intro_2");
	this->intro_lines_1[3] = this->local_texts->get_text("intro_3");
	this->intro_lines_1[4] = this->local_texts->get_text("intro_4");
	this->intro_lines_1[5] = this->local_texts->get_text("intro_5");
	this->intro_lines_1[6] = this->local_texts->get_text("intro_6");
	this->intro_lines_1[7] = this->local_texts->get_text("intro_7");
	this->intro_lines_1[8] = this->local_texts->get_text("intro_8");
	this->intro_lines_1[9] = this->local_texts->get_text("intro_9");
	this->intro_lines_2[0] = this->local_texts->get_text("intro_10");
	this->intro_lines_2[1] = this->local_texts->get_text("intro_11");
	this->intro_lines_2[2] = this->local_texts->get_text("intro_12");
	this->intro_lines_2[3] = this->local_texts->get_text("intro_13");
	this->intro_lines_2[4] = this->local_texts->get_text("intro_14");
	this->intro_lines_2[5] = this->local_texts->get_text("intro_15");
	this->intro_lines_2[6] = this->local_texts->get_text("intro_16");
	this->intro_lines_2[7] = this->local_texts->get_text("intro_17");
	this->intro_lines_2[8] = this->local_texts->get_text("intro_18");
	this->intro_lines_2[9] = this->local_texts->get_text("intro_19");
	this->outro_lines[0] = this->local_texts->get_text("outro_0");
	this->outro_lines[1] = this->local_texts->get_text("outro_1");
	this->outro_lines[2] = this->local_texts->get_text("outro_2");
	this->outro_lines[3] = this->local_texts->get_text("outro_3");
	this->outro_lines[4] = this->local_texts->get_text("outro_4");
	this->outro_lines[5] = this->local_texts->get_text("outro_5");
	this->outro_lines[6] = this->local_texts->get_text("outro_6");
	this->outro_lines[7] = this->local_texts->get_text("outro_7");
	this->outro_lines[8] = this->local_texts->get_text("outro_8");
	this->outro_lines[9] = this->local_texts->get_text("outro_9");
	this->how_to_play_lines[0] = this->local_texts->get_text("how_to_play_0");
	this->how_to_play_lines[1] = this->local_texts->get_text("how_to_play_1");
	this->how_to_play_lines[2] = this->local_texts->get_text("how_to_play_2");
	this->how_to_play_lines[3] = this->local_texts->get_text("how_to_play_3");
	this->how_to_play_lines[4] = this->local_texts->get_text("how_to_play_4");
	this->how_to_play_lines[5] = this->local_texts->get_text("how_to_play_5");
	this->how_to_play_lines[6] = this->local_texts->get_text("how_to_play_6");
	this->how_to_play_lines[7] = this->local_texts->get_text("how_to_play_7");
	this->how_to_play_lines[8] = this->local_texts->get_text("how_to_play_8");
	this->how_to_play_lines[9] = this->local_texts->get_text("how_to_play_9");
  }

//-----------------------------------------------

c_game::~c_game()
  {
	al_stop_samples();                           // stop all sounds	
	delete this->map;
	delete this->menu;
	delete this->local_texts;
	al_uninstall_keyboard();
	al_uninstall_mouse();
	al_shutdown_primitives_addon();
	al_shutdown_image_addon();
	al_shutdown_font_addon();
	al_destroy_timer(this->global_timer); 
	al_destroy_display(this->display);
	al_destroy_event_queue(this->event_queue);
	al_destroy_sample(this->win_sound);
	al_destroy_sample(this->lose_sound);
	al_destroy_sample(this->music);
	al_uninstall_audio();
  }

//-----------------------------------------------

void c_game::load()
  {
    c_associative_array *associate_array;

	associate_array = new c_associative_array();

	if (associate_array == NULL)
	  return;

	associate_array->load_from_file("data");
	this->settings.fullscreen = (associate_array->get_text("fullscreen").compare("1") == 0);
	this->settings.music_on = (associate_array->get_text("music_on").compare("1") == 0);
	this->settings.sound_volume = atoi(associate_array->get_text("sound_volume").c_str());
	this->settings.last_level = atoi(associate_array->get_text("last_level").c_str());
	this->settings.language = associate_array->get_text("language");

	delete associate_array;
  }

//-----------------------------------------------

void c_game::save()
  {
    c_associative_array *associate_array;

	associate_array = new c_associative_array();

	if (associate_array == NULL)
	  return;

	if (this->settings.fullscreen)
	  associate_array->set_text("fullscreen","1");
	else
	  associate_array->set_text("fullscreen","0");

	if (this->settings.music_on)
	  associate_array->set_text("music_on","1");
	else
	  associate_array->set_text("music_on","0");

	associate_array->set_text("sound_volume",to_string((long long) this->settings.sound_volume));
	associate_array->set_text("last_level",to_string((long long) this->settings.last_level));
	associate_array->set_text("language",this->settings.language);

	associate_array->save_to_file("data");

	delete associate_array;
  }

//-----------------------------------------------

void c_game::update_settings_menu_items()
  {
	if (this->settings.fullscreen)
	  this->settings_menu_items_done[0] = this->settings_menu_items[0] + ": " + this->local_texts->get_text("option_on");
	else
      this->settings_menu_items_done[0] = this->settings_menu_items[0] + ": " + this->local_texts->get_text("option_off");

	if (this->settings.music_on)
	  this->settings_menu_items_done[1] = this->settings_menu_items[1] + ": " + this->local_texts->get_text("option_on");
	else
      this->settings_menu_items_done[1] = this->settings_menu_items[1] + ": " + this->local_texts->get_text("option_off");

	this->settings_menu_items_done[2] = this->settings_menu_items[2] + ": " + to_string((long long) this->settings.sound_volume);

	if (this->settings.language.compare("english") == 0)
	  this->settings_menu_items_done[3] = this->settings_menu_items[3] + ": EN";
	else
	  this->settings_menu_items_done[3] = this->settings_menu_items[3] + ": CZ";

	this->settings_menu_items_done[4] = this->settings_menu_items[4];
  }
 
//-----------------------------------------------

void c_game::run()
  { 
	string help_str;
	int menu_return_value;
	int i;
	bool quit_program;
	bool event_occured;
	ALLEGRO_EVENT program_event;
	ALLEGRO_TIMEOUT timeout;
	string help_string_array[2];
	ALLEGRO_KEYBOARD_STATE keyboard_state;
	char character;
	t_game_state game_state;
	
	this->menu = new c_menu(&this->input_output_state);

	this->menu_state = MENU_STATE_FIRST_SCREEN; 
	this->menu->set_menu_info_screen("resources/introduction.png",NULL,0,5.0,255,255,255); 

	al_start_timer(this->global_timer);

	al_init_timeout(&timeout, 0.05);

	quit_program = false;
	
	while (true)                   // main loop
	  {
		switch (this->menu_state)             // manage the menu state machine
		  {
		    case MENU_STATE_PLAYING:

			  game_state = map->update();

			  if (this->cheat_used)
			    {
				  game_state = GAME_STATE_WIN;
				  this->cheat_used = false;
			    }

			  switch (game_state)
			    {
				  case GAME_STATE_PLAYING:
				    break;

				  case GAME_STATE_LOSE:
					al_stop_samples();
					al_play_sample(this->lose_sound,1.0,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
					this->menu_state = MENU_STATE_LOST;
					help_string_array[0] = this->local_texts->get_text("lost");
					this->menu->set_menu_info_screen("",help_string_array,1,-1,240,0,0);

					this->initialise_new_game(this->current_level);
				    break;

				  case GAME_STATE_WIN:
					al_stop_samples();
					al_play_sample(this->win_sound,1.0,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);

                    if (this->current_level == 22) // last level - the game is won
					  {
						this->play_music("university of magic");
					    this->menu_state = MENU_STATE_OUTRO;
						this->menu->set_menu_info_screen("resources/characters.png",this->outro_lines,10,-1.0,255,255,255);
					  }
					else  
					  {
						if (this->current_level == this->settings.last_level) // unlock the next level
						  {
							this->settings.last_level++;
					        this->save();
						  }

						this->menu_state = MENU_STATE_LEVEL_CHOOSING;
						this->menu->set_menu_choose_level(this->settings.last_level);
					  }				
					
					break;

				  case GAME_STATE_PAUSE:
					al_stop_samples();        // stops the looping sounds
					this->menu_state = MENU_STATE_GAME_MENU;
					this->menu->set_menu_items(this->game_menu_items,3,this->game_menu_title,false);
				    break;
			    }

		      break;

			case MENU_STATE_LOST:
			  menu_return_value = this->menu->update();

			  if (menu_return_value >= 0)
			    {
				  this->menu_state = MENU_STATE_PLAYING;
				  this->play_music(this->map->get_music_name());
				  this->initialise_new_game(this->current_level);
			    }

			  break;

			case MENU_STATE_GAME_MENU:
			  menu_return_value = this->menu->update();

			  switch (menu_return_value)
			    {
			      case 0:   // resume
					this->menu_state = MENU_STATE_PLAYING;
					this->play_music(this->map->get_music_name());
					break;

				  case 1:   // restart the game
					this->initialise_new_game(this->current_level);
					this->play_music(this->map->get_music_name());
					help_string_array[0] = this->local_texts->get_text("level") + " " + to_string((long long) this->current_level);
				    help_string_array[1] = this->map->get_description();
					this->menu->set_menu_info_screen("",help_string_array,2,-1,255,255,255);
					this->menu_state = MENU_STATE_LEVEL_INTRO;
					break;

				  case 2:   // back to menu
					this->menu_state = MENU_STATE_MAIN_MENU;
					this->play_music("university of magic");
				    this->menu->set_menu_items(this->main_menu_items,5,this->main_menu_title,false);
					break;
			    }

			  break;

		    case MENU_STATE_FIRST_SCREEN:
			case MENU_STATE_ABOUT:
			case MENU_STATE_HOW_TO_PLAY:
              menu_return_value = this->menu->update();

			  if (menu_return_value > 0)
			    {
				  if (this->menu_state == MENU_STATE_FIRST_SCREEN)
                    this->play_music("university of magic");

				  this->menu_state = MENU_STATE_MAIN_MENU;
				  this->menu->set_menu_items(this->main_menu_items,5,this->main_menu_title,false);
			    }

			  break;

			case MENU_STATE_OUTRO:
			  menu_return_value = this->menu->update();

			  if (menu_return_value > 0)
			    {
				  this->menu_state = MENU_STATE_ABOUT;
				  this->menu->set_menu_info_screen("resources/characters.png",this->about_lines,3,-1.0,255,255,255);
			    }

			  break;

			case MENU_STATE_LEVEL_INTRO:
              menu_return_value = this->menu->update();

			  if (menu_return_value > 0)
				this->menu_state = MENU_STATE_PLAYING;
			  
			  break;

			case MENU_STATE_INTRO:
			  menu_return_value = this->menu->update();

			  if (menu_return_value >= 0)
			    {
				  this->menu_state = MENU_STATE_INTRO2;
				  this->menu->set_menu_info_screen("resources/characters.png",this->intro_lines_2,10,-1,255,255,255);
			    }

			  break;

			case MENU_STATE_INTRO2:
			  menu_return_value = this->menu->update();	

			  if (menu_return_value >= 0)
			    {
			  	  this->menu->set_menu_choose_level(this->settings.last_level);
				  this->menu_state = MENU_STATE_LEVEL_CHOOSING;
			    }

			  break;

			case MENU_STATE_LEVEL_CHOOSING:
			  menu_return_value = this->menu->update();
			  
			  if (menu_return_value < 0)
			    { 
				  // nothing chosen - do nothing
			    }
			  else if (menu_return_value == this->settings.last_level + 1) // back pressed
			    {
				  this->menu_state = MENU_STATE_MAIN_MENU;
				  this->menu->set_menu_items(this->main_menu_items,5,this->main_menu_title,false);				  
			    }
			  else if (menu_return_value == this->settings.last_level) // intro pressed
			    {
                  this->menu_state = MENU_STATE_INTRO;
				  this->menu->set_menu_info_screen("resources/characters.png",this->intro_lines_1,10,-1,255,255,255);				  
			    }
			  else  // a level was chosen
			    {
				  this->current_level = menu_return_value + 1;
				  this->initialise_new_game(this->current_level);
				  this->play_music(this->map->get_music_name());
				  help_string_array[0] = this->local_texts->get_text("level") + " " + to_string((long long) this->current_level);
				  help_string_array[1] = this->map->get_description();
				  this->menu->set_menu_info_screen("",help_string_array,2,-1,255,255,255);
				  this->menu_state = MENU_STATE_LEVEL_INTRO;
			    }

			  break;

			case MENU_STATE_MAIN_MENU:
			  menu_return_value = this->menu->update();

			  al_get_keyboard_state(&keyboard_state);

			  if (al_key_down(&keyboard_state,ALLEGRO_KEY_H) && al_key_down(&keyboard_state,ALLEGRO_KEY_I)) // easter egg when E and I pressed together
				this->menu->display_easter_egg();

			  switch (menu_return_value)
			    {
			      case 0: // new game
					if (this->settings.last_level == 0)
					  {
						this->settings.last_level = 1;        // set information that the intro has been played
						this->save();
						this->menu_state = MENU_STATE_INTRO;
						this->menu->set_menu_info_screen("resources/characters.png",this->intro_lines_1,10,-1,255,255,255);
					  }
					else
					  { 
						this->menu->set_menu_choose_level(this->settings.last_level);
						this->menu_state = MENU_STATE_LEVEL_CHOOSING;
					  }

					break;

				  case 1: // settings
					this->menu_state = MENU_STATE_SETTINGS_MENU;
					this->update_settings_menu_items();
					this->menu->set_menu_items(this->settings_menu_items_done,5,this->settings_menu_title,false);
					break;

				  case 2: // how to play
					this->menu_state = MENU_STATE_HOW_TO_PLAY;
					this->menu->set_menu_info_screen("",this->how_to_play_lines,10,-1.0,253,221,91);
                    break;

				  case 3: // about
					this->menu_state = MENU_STATE_ABOUT;
					this->menu->set_menu_info_screen("",this->about_lines,3,-1.0,253,221,91);
					break;

				  case 4: // exit
					quit_program = true;
					break;
			    }

			  break;

			case MENU_STATE_SETTINGS_MENU:

			  menu_return_value = this->menu->update();

			  switch (menu_return_value)
			    {
			      case 0: // fullscreen
					this->settings.fullscreen = !this->settings.fullscreen;
					this->update_settings_menu_items();
					this->menu->set_menu_items(this->settings_menu_items_done,5,this->settings_menu_title,true);
				    break;

				  case 1: // music on/off
					this->settings.music_on = !this->settings.music_on;				
                    this->play_music("university of magic");
					this->update_settings_menu_items();
					this->menu->set_menu_items(this->settings_menu_items_done,5,this->settings_menu_title,true);
					break;

				  case 2: // sound volume
					this->settings.sound_volume += 20;

					if (this->settings.sound_volume > 100)
					  this->settings.sound_volume = 0;
					
					this->update_volume();

					this->update_settings_menu_items();
					this->menu->set_menu_items(this->settings_menu_items_done,5,this->settings_menu_title,true);
					break;

				  case 3: // language
					if (this->settings.language.compare("english") == 0)
					  this->settings.language = "czech";
					else
					  this->settings.language = "english";

					this->set_language(this->settings.language);
					this->update_settings_menu_items();
					this->menu->set_menu_items(this->settings_menu_items_done,5,this->settings_menu_title,true);
					break;

				  case 4:
					this->menu_state = MENU_STATE_MAIN_MENU;
				    this->menu->set_menu_items(this->main_menu_items,5,this->main_menu_title,false);
					this->save();
					break;
			    }

			  break;
		  }

		al_flip_display();
		
		this->input_output_state.key_use = false;      // we only want to detect one key press

		event_occured = al_get_next_event(this->event_queue, &program_event);

		if (event_occured)                             // handle events
		  switch (program_event.type)
		    {
		      case ALLEGRO_EVENT_DISPLAY_CLOSE:        // program close
                quit_program = true;
				break;

			  case ALLEGRO_EVENT_TIMER:                // global timer event
				this->global_time++;
				break;

			  case ALLEGRO_EVENT_KEY_DOWN:             // key down event
				if (program_event.keyboard.keycode == this->key_up)
				  this->input_output_state.key_up = true;
                else if (program_event.keyboard.keycode == this->key_down)
				  this->input_output_state.key_down = true;
                else if (program_event.keyboard.keycode == this->key_left)
				  this->input_output_state.key_left = true;
                else if (program_event.keyboard.keycode == this->key_right)
				  this->input_output_state.key_right = true;
                else if (program_event.keyboard.keycode == this->key_switch1)
				  this->input_output_state.key_1 = true;
			    else if (program_event.keyboard.keycode == this->key_switch2)
				  this->input_output_state.key_2 = true;
			    else if (program_event.keyboard.keycode == this->key_switch3)
				  this->input_output_state.key_3 = true; 
                else if (program_event.keyboard.keycode == this->key_cast1)
				  this->input_output_state.key_cast_1 = true;
				else if (program_event.keyboard.keycode == this->key_cast2)
				  this->input_output_state.key_cast_2 = true;
				else if (program_event.keyboard.keycode == this->key_cast3)
				  this->input_output_state.key_cast_3 = true;
				else if (program_event.keyboard.keycode == this->key_use ||
				  program_event.keyboard.keycode == this->key_use_alt)
				  this->input_output_state.key_use = true;
				else if (program_event.keyboard.keycode == this->key_map)
				  this->input_output_state.key_map_explore = true;
				else if (program_event.keyboard.keycode == this->key_back)
				  this->input_output_state.key_back = true;
				else if (!this->letter_pressed)       // possibly typing a cheatcode
				  {
					 switch (program_event.keyboard.keycode)
					   {
					     case ALLEGRO_KEY_I:
						   character = 'i';
						   this->letter_pressed = true;
						   break;

                         case ALLEGRO_KEY_A:
						   character = 'a';
						   this->letter_pressed = true;
						   break;

						 case ALLEGRO_KEY_M:
						   character = 'm';
						   this->letter_pressed = true;
						   break;

						 case ALLEGRO_KEY_N:
						   character = 'n';
						   this->letter_pressed = true;
						   break;

						 case ALLEGRO_KEY_O:
						   character = 'o';
						   this->letter_pressed = true;
						   break;

						 case ALLEGRO_KEY_B:
						   character = 'b';
						   this->letter_pressed = true;
						   break;

						 default:
                           character = '-';
						   break;
					   }

					 if (character != '-')
					   {
						 for (i = 0; i < 6; i++) // shift the buffer to the left
						   this->cheat_buffer[i] = this->cheat_buffer[i + 1];

						 this->cheat_buffer[6] = character;

						 if (this->cheat_buffer[0] == 'i' && this->cheat_buffer[1] == 'a' &&
						   this->cheat_buffer[2] == 'm' && this->cheat_buffer[3] == 'n' &&
						   this->cheat_buffer[4] == 'o' && this->cheat_buffer[5] == 'o' &&
						   this->cheat_buffer[6] == 'b')
						   {
						     if (this->menu_state == MENU_STATE_PLAYING)
						       this->cheat_used = true;
							 else
                               this->cheat_buffer[0] = '-';
						   }
					   }
				  }
				
				break;

			  case ALLEGRO_EVENT_KEY_UP:               // key up event
				if (program_event.keyboard.keycode == this->key_up)
				  this->input_output_state.key_up = false;
                else if (program_event.keyboard.keycode == this->key_down)
				  this->input_output_state.key_down = false;
                else if (program_event.keyboard.keycode == this->key_left)
				  this->input_output_state.key_left = false;
                else if (program_event.keyboard.keycode == this->key_right)
				  this->input_output_state.key_right = false;
                else if (program_event.keyboard.keycode == this->key_switch1)
				  this->input_output_state.key_1 = false;
			    else if (program_event.keyboard.keycode == this->key_switch2)
				  this->input_output_state.key_2 = false;
			    else if (program_event.keyboard.keycode == this->key_switch3)
				  this->input_output_state.key_3 = false; 
                else if (program_event.keyboard.keycode == this->key_cast1)
				  this->input_output_state.key_cast_1 = false;
				else if (program_event.keyboard.keycode == this->key_cast2)
				  this->input_output_state.key_cast_2 = false;
				else if (program_event.keyboard.keycode == this->key_cast3)
				  this->input_output_state.key_cast_3 = false;
				else if (program_event.keyboard.keycode == this->key_use ||
				  program_event.keyboard.keycode == this->key_use_alt)
				  this->input_output_state.key_use = false;
				else if (program_event.keyboard.keycode == this->key_map)
				  this->input_output_state.key_map_explore = false;
				else if (program_event.keyboard.keycode == this->key_back)
				  this->input_output_state.key_back = false;

				this->letter_pressed = false;

			    break;
		    }

		if (quit_program)
		  break; 
	  }
  }

//-----------------------------------------------

void c_game::play_music(string name)
  {
	al_stop_samples();

	if (this->settings.music_on)
	  {		
		al_destroy_sample(this->music);
		this->music = al_load_sample(("resources/" + name + ".ogg").c_str());
		
		if (this->music == NULL)
		  {
			cerr << "ERROR: failed to load game music." << endl;
		  }
		
		al_play_sample(this->music,1.0,0.0,1.0,ALLEGRO_PLAYMODE_LOOP,&this->music_id);
	  }
  }

//-----------------------------------------------

void c_game::stop_music()
  {
	if (this->settings.music_on)
	  {
		al_stop_sample(&this->music_id);
	  }
  }

//-----------------------------------------------
--- FILE ./game.h ---
﻿#ifndef GAME_H
#define GAME_H

/**
 * Game class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"
#include "map.h"
#include "menu.h"

typedef struct
  {
	/**
	  Stores game settings.
	*/

	bool fullscreen;      /** whether the game is full screen or windowed */
	bool music_on;        /** whether the music is on or off */
	int sound_volume;     /** sound volume in range 0 - 100 */
	int last_level;       /** the last level the player reached */
	string language;      /** the game environment language */
  } t_game_settings;

typedef enum
  {
	/**
	  Possible game states.
	*/

	MENU_STATE_MAIN_MENU,
	MENU_STATE_GAME_MENU,
	MENU_STATE_SETTINGS_MENU,
	MENU_STATE_ABOUT,
	MENU_STATE_PLAYING,
	MENU_STATE_INTRO,
	MENU_STATE_INTRO2,
	MENU_STATE_OUTRO,
	MENU_STATE_FIRST_SCREEN,
	MENU_STATE_LEVEL_CHOOSING,
	MENU_STATE_HOW_TO_PLAY,
	MENU_STATE_LEVEL_INTRO,
	MENU_STATE_LOST
  } t_menu_state;

class c_game
  {
    /**
	  This class holds and manipulates the data
	  of the whole game.
	*/

    protected:
	  c_map *map;                               /** handles the map */
	  c_menu *menu;                             /** handles menus and info screens */
	  ALLEGRO_DISPLAY *display;                 /** the game screen */
	  ALLEGRO_EVENT_QUEUE *event_queue;         /** event queue */
	  ALLEGRO_TIMER *global_timer;              /** global clock */
	  long int global_time;                     /** global time counter */
	  t_input_output_state input_output_state;  /** keyboard and mouse state */
	  t_game_settings settings;                 /** game settings and the player's progress */
	  t_menu_state menu_state;                  /** stores the state of the menu system */
	  c_associative_array *local_texts;         /** stores game texts in local language */
	  int current_level;                        /** current level being played */
	  bool letter_pressed;                      /** to catch only one keydown when writing cheat letters */
	  char cheat_buffer[7];                     /** holds letters typed to recognize the cheat code ("iamnoob") */
	  bool cheat_used;                          /** a flag that turns true if the cheat has been used */

	  int key_up;                               /** keycode for key up */
	  int key_down;                             /** keycode for key down */
	  int key_right;                            /** keycode for key right */
	  int key_left;                             /** keycode for key left */
	  int key_cast1;                            /** keycode for key cast spell 1 */
	  int key_cast2;                            /** keycode for key cast spell 2 */
	  int key_cast3;                            /** keycode for key cast spell 3 */
	  int key_switch1;                          /** keycode for key switch to player 1 */
	  int key_switch2;                          /** keycode for key switch to player 2 */
	  int key_switch3;                          /** keycode for key switch to player 3 */
	  int key_use;                              /** keycode for key used to use items and confirm things */
	  int key_use_alt;                          /** alternative keykode for using items */
	  int key_back;                             /** keycode for key back */
	  int key_map;                              /** keycode for key that manipulates the camera */

	  string main_menu_items[5];                /** main menu items */
	  string main_menu_title;                   /** main menu title */
	  string game_menu_items[3];                /** game menu items */
	  string game_menu_title;                   /** game menu title */
	  string settings_menu_items[5];            /** settings menu items */
	  string settings_menu_title;               /** settings menu title */
	  string settings_menu_items_done[5];       /** settings menu items with values added (on/off etc.) */
	  string about_lines[3];                    /** information about the program for the about screen */
      string intro_lines_1[10];                 /** intro text, page one */
	  string intro_lines_2[10];                 /** intro text, page two */
	  string outro_lines[10];                   /** outro text */
	  string how_to_play_lines[10];             /** text of how to play the game */

	  ALLEGRO_SAMPLE *win_sound;                /** sound played when the map is won */
	  ALLEGRO_SAMPLE *lose_sound;               /** sound played when the game is lost */

	  ALLEGRO_SAMPLE *music;                    /** currently played music sample */
	  ALLEGRO_SAMPLE_ID music_id;               /** id of music sample playing */

      void update_settings_menu_items();

	    /**
		  Updates the settings_menu_items_done
		  array so that it contains valid
		  items depending on current game
		  settings.
		*/

	  void set_language(string language);

	    /**
		  Sets the game texts to given
		  language.

		  @param language language name like
		    "english" or "czech" which will
			be loaded from the corresponding
			file in game resources
		*/

	  void set_keys();

	    /**
		  Loads the keyboard layout from file
		  and sets the classes variables for
		  the key codes.
		*/

	  void update_volume();
	    
	    /**
		  Sets the master volume of the game to
		  current value of volume value in game
		  settings structure.
		*/

	  void initialise_new_game(int level_number);

	    /**
	      Initialises a new game, which means
		  that the classes map object will be
		  possibly deleted and newly loaded
		  from file depending on given level
		  number.

		  @param level_number level number
		*/

	  void play_music(string name);

	    /**
		  Plays music with given name. If the
		  music is turned off in the game
		  settings, nothing happens.

		  @param name name of the music file
		    without path and extension (the
			resource folder is searched and
			.ogg is considered)
		*/

	  void stop_music();

	    /**
		  Stops the currently playing music.
		*/

    public:
	
	  c_game();
	  
	    /**
	      Class constructor, initialises new game
		  object.
	    */

	  ~c_game();

	    /**
	      Class destructor, frees the object's
		  memory.
	    */

	  void save();

	    /**
	      Saves the game settings (including
		  player's progress) in the configuration
		  file.
	    */

	  void load();

	    /**
	      Loads the game settings (including
		  player's progress) from the configuration
		  file.
	    */

	  void run();

	    /**
	      Runs the game and handles everything about
		  it.
	    */
  };

#endif
--- FILE ./general.h ---
﻿#ifndef GENERAL_H
#define GENERAL_H

/**
 * General definitions and declarations.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include <iostream>
#include <string>
#include <math.h>
#include <stdlib.h>
#include "allegro5/allegro.h"
#include "allegro5/allegro_image.h"
#include "allegro5/allegro_primitives.h"
#include "allegro5/allegro_native_dialog.h"
#include <allegro5/allegro_audio.h>
#include <allegro5/allegro_acodec.h>
#include <allegro5/allegro_font.h>
#include <allegro5/allegro_ttf.h>
#include <stdlib.h>

#define VERSION "1.0"                   /** program version */
#define MAP_MAX_WIDTH 30                /** maximum map width in squares */
#define MAP_MAX_HEIGHT 30               /** maximum map height in squares */
#define CLIFF_DISTANCE_SOUTH 0.4        /** character collision distance with south cliff (in fraction of one square) */
#define CLIFF_DISTANCE_NORTH 0.1        /** character collision distance with north cliff (in fraction of one square) */
#define CLIFF_DISTANCE_EAST_WEST 0.25   /** character collision distance with east and west cliff (in fraction of one square) */
#define MAX_OBJECTS_PER_SQUARE 5        /** maximum number of objects on one square */
#define MAX_ANIMATION_FRAMES 10         /** maximum number of frames for the c_animation object */
#define MAX_MISSILES_ON_MAP 32          /** maximum number of missiles on the map at given time */
#define MAX_MAGIC_ENERGY 5              /** maximum amount of magic energy for a player */
#define MAX_TEXT_CHARACTERS_PER_LINE 32 /** maximum characters in a displayed text line */
#define MAX_TEXT_LINES 16               /** maximum number of text lines */
#define FIRE_CLOAK_DURATION 10.0        /** duration of fire cloak spell in seconds */
#define MAX_MONSTER_PATH_LENGTH 32      /** maximum length of monster path in "instructions" (array length) */
#define MAX_MONSTERS_ON_MAP 32          /** maximum number of monsters on the map */
#define SQUARE_WIDTH 64                 /** width of one square in pixels */
#define SQUARE_HEIGHT 50                /** height of one square in pixels */
#define ELEVATION 27                    /** elevation of one height level in piels */

using namespace std;

typedef enum
  {
	/**
      Possible directions in 2D space.
    */

    DIRECTION_NORTH,
	DIRECTION_EAST,
	DIRECTION_SOUTH,
	DIRECTION_WEST,
	DIRECTION_NONE
  } t_direction;

typedef enum
  {
	/**
      Those are possible map environments.
    */

	ENVIRONMENT_GRASS,
	ENVIRONMENT_DIRT,
	ENVIRONMENT_SNOW,
	ENVIRONMENT_CASTLE
  } t_environment;

typedef enum
  {
	/**
      Possible player characters.
    */

	PLAYER_MIA,
	PLAYER_METODEJ,
	PLAYER_STAROVOUS
  } t_player_type;

typedef enum
  {
	OBJECT_STATE_ON,            /** switched on */
	OBJECT_STATE_OFF,           /** sqitched off */
	OBJECT_STATE_ON_ACTIVE      /** switched on and active (for example bursting flames) */
  } t_object_state;

typedef struct
  {
	/**
	  Holds information about input state, such as
	  keys being pressed, mouse position and so on.
	  Also stores information about the screen.
	*/

	bool key_up;          /** key up */
	bool key_right;       /** key right */
	bool key_down;        /** key down */
	bool key_left;        /** key left */
	bool key_1;           /** key switch to player 1 */
	bool key_2;           /** key switch to player 2 */
	bool key_3;           /** key switch to player 3 */
	bool key_use;         /** key used to manipulate map objects */
	bool key_cast_1;      /** key used to cast spell 1 */
	bool key_cast_2;      /** key used to cast spell 2 */
	bool key_cast_3;      /** key used to cast spell 3 */
	bool key_map_explore; /** key used to move camera freely to explore the map */
	bool key_back;        /** key used to go back in menus and to pause the game */
	
	bool mouse_1;         /** mouse button 1 */

	int mouse_x;          /** mouse x position */
	int mouse_y;          /** mouse y position */

	int screen_x;         /** screen resolution x */
	int screen_y;         /** screen resolution y */
  } t_input_output_state;

typedef enum
  {
	/**
	  Possible animation types for objects that
	  can play multiple types of animations.
	*/

	ANIMATION_NONE,
	ANIMATION_IDLE,
	ANIMATION_RUN,
	ANIMATION_CAST,
	ANIMATION_USE,
	ANIMATION_SHIFT_NORTH,
	ANIMATION_SHIFT_EAST,
	ANIMATION_SHIFT_SOUTH,
	ANIMATION_SHIFT_WEST,
	ANIMATION_SWITCH_ON,
	ANIMATION_SWITCH_OFF,
	ANIMATION_SKATE
  } t_animation_type;

typedef enum  
  {
	/**
	  Possible displayable animations.
	*/

	DISPLAY_ANIMATION_WATER_SPLASH,
	DISPLAY_ANIMATION_CRATE_SHIFT_NORTH,
	DISPLAY_ANIMATION_COLLAPSE,
	DISPLAY_ANIMATION_MELT,
	DISPLAY_ANIMATION_REFRESH,
	DISPLAY_ANIMATION_TELEPORT,
	DISPLAY_ANIMATION_EXPLOSION,
	DISPLAY_ANIMATION_SHADOW_EXPLOSION
  } t_display_animation;

typedef enum
  {
	/**
	  Possible map object types.
	*/

	OBJECT_TREE,               /** tree - only blocks way */
	OBJECT_TREE_WINTER,        /** winter tree - only blocks way */
	OBJECT_ROCK,               /** rock - only blocks way */
	OBJECT_CRATE,              /** crate - can be shifted and walked on */
	OBJECT_LEVER,              /** lever - can be switched on or off */
	OBJECT_BUTTON,             /** button - can be switched on or off by standing on it */
	OBJECT_STAIRS_NORTH,       /** stairs north - allow access to different height levels */
	OBJECT_STAIRS_EAST,        /** stairs east - allow access to different height levels */
	OBJECT_STAIRS_SOUTH,       /** stairs south - allow access to different height levels */
	OBJECT_STAIRS_WEST,        /** stairs west - allow access to different height levels */
	OBJECT_DOOR_HORIZONTAL,    /** horizontal door - can be opened or closed by other objects */
	OBJECT_DOOR_VERTICAL,      /** vertical door - can be opened or closed by other objects */
	OBJECT_FOUNTAIN,           /** fountain - regenerates player's magic energy */
	OBJECT_FLAMES,             /** flames - bursts flames when on */
	OBJECT_ELEVATOR,           /** elevator - elevator controlled by other objects */
	OBJECT_ICE,                /** ice - blocks way but can be melted */
	OBJECT_GATE,               /** gate - a gate player must reach in the level */
    OBJECT_SIGN,               /** sign - can display a text */
    OBJECT_TELEPORT_INPUT,     /** teleport which can be stepped into */
	OBJECT_TELEPORT_OUTPUT,    /** teleport in which the player appears rntering the input teleport */
	OBJECT_FLOWERS,            /** flowers (only decoration) */
	OBJECT_FLOWERS2,           /** another flowers (only decoration) */
	OBJECT_BONES,              /** bones (only decoration) */
	OBJECT_CARPET,             /** carpet (only decoration) */
	OBJECT_CARPET2,            /** another carpet (only decoration) */
	OBJECT_WATER_LILY,         /** water lily (water decoration) */
	OBJECT_KEY_RED,            /** red key (part of storyline) */ 
	OBJECT_KEY_GREEN,          /** green key (part of storyline) */
	OBJECT_KEY_BLUE,           /** blue key (part of storyline) */
    OBJECT_STATUE,             /** statue - only blocks way */
    OBJECT_OREN                /** oren - when destroyed with Starovous' light spell, the map is won */
  } t_object_type;

typedef enum
  {
	/**
	  Possible spell missiles.
	*/

	MISSILE_MIA_1,
	MISSILE_MIA_2,
	MISSILE_METODEJ_1,
	MISSILE_STAROVOUS_1,
	MISSILE_STAROVOUS_2
  } t_missile_type; 

typedef enum
  {
	/**
	  Possible monster types.
	*/

	MONSTER_GHOST,          /** can be killed with white magic */
	MONSTER_TROLL           /** can't be killed */
  } t_monster_type;

typedef enum
  {
	/**
	  Possible game states
	*/

	GAME_STATE_PLAYING,
	GAME_STATE_WIN,
	GAME_STATE_LOSE,
	GAME_STATE_PAUSE
  } t_game_state;

#endif
--- FILE ./graphic_object.cpp ---
﻿/**
 * Graphic object class implementation.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "graphic_object.h"

//-----------------------------------------------

void c_graphic_object::draw(int x, int y)
  {
  }

//-----------------------------------------------

int c_graphic_object::get_animation_frame()
  {
	return this->animation_frame;
  }

//-----------------------------------------------

void c_graphic_object::play_animation(t_animation_type animation)
  {
	this->stop_animation();
	this->playing_animation = animation;
	this->animation_frame = 0;
	this->looping_animation = false;
	this->started_playing = *this->global_time;
	this->update_animation_period();

	if (this->sound != NULL)
	  {
	    al_play_sample(this->sound,this->sound_gain,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,&this->playing_sound_id);
		this->playing_sound = true;
	  } 
  }

//-----------------------------------------------

bool c_graphic_object::is_succesfully_loaded()
  {
	return this->succesfully_loaded;
  }

//-----------------------------------------------

t_animation_type c_graphic_object::get_playing_animation()
  {
	return this->playing_animation;
  }

//-----------------------------------------------

void c_graphic_object::update_animation_period()
  {
  }

//-----------------------------------------------

void c_graphic_object::loop_animation(t_animation_type animation)
  {
	this->stop_animation();
	this->playing_animation = animation;
	this->animation_frame = 0;
	this->looping_animation = true;
	this->started_playing = *this->global_time;
	this->update_animation_period();

	if (this->sound != NULL)
	  {
	    al_play_sample(this->sound,this->sound_gain,0.0,1.0,ALLEGRO_PLAYMODE_LOOP,&this->playing_sound_id);
  		this->playing_sound = true;
	  }
  }

//-----------------------------------------------

bool c_graphic_object::is_animating()
  {
	return this->playing_animation != ANIMATION_NONE;
  }

//-----------------------------------------------

void c_graphic_object::stop_animation()
  {
	if (this->looping_animation && this->playing_sound)
	  {
		al_stop_sample(&this->playing_sound_id);
	    this->playing_sound = false;
	  }

    this->playing_animation = ANIMATION_NONE;
	this->animation_frame = 0;
  }

//-----------------------------------------------
--- FILE ./graphic_object.h ---
﻿#ifndef GRAPHIC_OBJECT_H
#define GRAPHIC_OBJECT_H

/**
 * Graphic object class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"

using namespace std;

class c_graphic_object
  {
	/**
	  This class represents an object that is able to
	  draw itself on the screen. It can also play
	  animations.
	*/

    protected:
	  t_animation_type playing_animation;  /** type of animation being played or looped */
	  long int started_playing;            /** time when the animation started playing to count the animation frame */
	  long int *global_time;               /** reference to a global time counter variable (for animations) */
	  long int animation_frame;            /** current animation frame */
	  bool looping_animation;              /** true if the animation is looping, false otherwise */
	  int animation_period;                /** number of frames of the current animation */
	  bool succesfully_loaded;             /** stores information about errors */
	  bool playing_sound;                  /** whether a sound is playing for this object */
	  double sound_gain;                   /** sound gain */
	  ALLEGRO_SAMPLE_ID playing_sound_id;  /** an ID of the sound being played */
	  ALLEGRO_SAMPLE *sound;               /** sound played during animation */

    public:

      virtual void draw(int x, int y);

	    /**
	      Tells the object to draw itself at given
	  	  coordinations on the screen.

		  @param x x coordination of the screen
		  @param y y coordination of the screen
	    */

	  virtual void play_animation(t_animation_type animation);

	    /**
		  Plays given animation.

		  @param animation animation to be played
		*/

	  virtual void loop_animation(t_animation_type animation);

	    /**
		  Loops the given animation untill it's
		  stopped by stop_animation().

		  @param animation animation to be looped
		*/

	  virtual void stop_animation();
	    
	    /**
		  Stops playing the current animation.
		*/

	  bool is_animating();

	    /**
		  Checks if any animation is playing.

		  @return true if any animation is
		    playing or looping, false otherwise
		*/

	  virtual void update_animation_period();

	    /**
		  Depending on current animation sets
		  the animation period attribute.
		*/

	  t_animation_type get_playing_animation();

	    /**
		  Returns a type of animation being
		  played or looped.

		  @return type of animation
		*/

	  bool is_succesfully_loaded();

	    /**
		  Checks if the map has been loaded
		  succesfully.

		  @return true if the map is loaded
		    succesfully, false otherwise
		*/

	  int get_animation_frame();

	    /**
		  Returns the number of animation
		  frame being currently displayed.

		  @return number of the animation
		    frame being displayed
		*/
  };

#endif

--- FILE ./main.cpp ---
﻿/**
 * The main game file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "allegro5/allegro.h"
#include "allegro5/allegro_image.h"
#include "allegro5/allegro_native_dialog.h"
#include "associative_array.h"
#include "general.h"
#include "game.h"
 
int main(int argc, char **argv)
  {
    c_game *game;
	game = new c_game();
	game->run();
	delete game;
  }
--- FILE ./map.cpp ---
﻿/**
 * Map class implementation.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "map.h"
#include "map_object.h"

//-----------------------------------------------

void c_map::next_square(int x, int y, t_direction direction, int *next_x, int *next_y)
  {
	switch (direction)
	  {
	    case DIRECTION_NORTH:
		  *next_x = x;
		  *next_y = y - 1;
		  break;

		case DIRECTION_EAST:
		  *next_x = x + 1;
		  *next_y = y;
		  break;

		case DIRECTION_SOUTH:
		  *next_x = x;
		  *next_y = y + 1;
		  break;

		case DIRECTION_WEST:
		  *next_x = x - 1;
		  *next_y = y;
		  break;
	  }
  }

//-----------------------------------------------

int c_map::get_height(int x, int y)
  {
	int i, number_of_crates;
	int plus_elevator;          // if there is an elevator and is on, this will rise the height by 1
	int plus_water;

	if (x >= this->width || x < 0 ||
	  y >= this->height || y < 0)
	  return 0;

	number_of_crates = 0;

	plus_water = 0;

	if (this->get_square_type(x,y) == SQUARE_WATER)
	  plus_water = -1;

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
	  if (this->squares[x][y].map_objects[i] == NULL)
	    break;
	  else if (this->squares[x][y].map_objects[i]->get_type() == OBJECT_CRATE)
		number_of_crates++;

	plus_elevator = 0;

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
	  if (this->squares[x][y].map_objects[i] != NULL)
	    {
		  if (this->squares[x][y].map_objects[i]->get_type() == OBJECT_ELEVATOR &&
			this->squares[x][y].map_objects[i]->get_state() == OBJECT_STATE_ON)
		    plus_elevator = 1;
	    }
	  else
	    break;

	return this->squares[x][y].height + number_of_crates + plus_elevator + plus_water;
  }

//-----------------------------------------------

int c_map::get_terrain_height(int x, int y)
  {
    if (x >= this->width || x < 0 ||
	  y >= this->height || y < 0)
	  return 0;

	return this->squares[x][y].height;
  }

//-----------------------------------------------

t_square_type c_map::get_square_type(int x, int y)
  {
	if (x >= this->width || x < 0 || y >= this->height || y < 0)
	  return SQUARE_NORMAL;

	return this->squares[x][y].type;
  }

//-----------------------------------------------

bool c_map::set_environment(t_environment new_environment)
  {
	string help_string;
	bool success;

	success = true;

	this->environment = new_environment;

	switch (this->environment)
	  {
	    case ENVIRONMENT_GRASS: help_string = "grass"; break;
		case ENVIRONMENT_DIRT: help_string = "dirt"; break;
		case ENVIRONMENT_SNOW: help_string = "snow"; break;
		case ENVIRONMENT_CASTLE: help_string = "castle"; break;
		default: help_string = "grass"; break;
	  }

	this->tile = al_load_bitmap(("resources/tile_" + help_string + ".png").c_str());
	this->tile_cliff_south_1 = al_load_bitmap(("resources/tile_" + help_string + "_cliff_south_1.png").c_str());
	this->tile_cliff_south_2 = al_load_bitmap(("resources/tile_" + help_string + "_cliff_south_2.png").c_str());
	this->tile_cliff_southwest_1 = al_load_bitmap(("resources/tile_" + help_string + "_cliff_southwest_1.png").c_str());
	this->tile_cliff_southwest_2 = al_load_bitmap(("resources/tile_" + help_string + "_cliff_southwest_2.png").c_str());
	this->tile_cliff_southeast_1 = al_load_bitmap(("resources/tile_" + help_string + "_cliff_southeast_1.png").c_str());
	this->tile_cliff_southeast_2 = al_load_bitmap(("resources/tile_" + help_string + "_cliff_southeast_2.png").c_str());
	this->tile_cliff_west = al_load_bitmap(("resources/tile_" + help_string + "_cliff_west.png").c_str());
	this->tile_cliff_east = al_load_bitmap(("resources/tile_" + help_string + "_cliff_east.png").c_str());
	this->tile_cliff_north = al_load_bitmap(("resources/tile_" + help_string + "_cliff_north.png").c_str());
	this->tile_cliff_northwest = al_load_bitmap(("resources/tile_" + help_string + "_cliff_northwest.png").c_str());
	this->tile_cliff_northeast = al_load_bitmap(("resources/tile_" + help_string + "_cliff_northeast.png").c_str());
    this->tile_edge = al_load_bitmap(("resources/tile_" + help_string + "_edge.png").c_str());
	this->tile_water[0] = al_load_bitmap("resources/tile_water_1.png");
	this->tile_water[1] = al_load_bitmap("resources/tile_water_2.png");
	this->tile_water[2] = al_load_bitmap("resources/tile_water_3.png");
	this->tile_water[3] = al_load_bitmap("resources/tile_water_4.png");
	this->tile_water[4] = al_load_bitmap("resources/tile_water_5.png");
	this->tile_ice = al_load_bitmap("resources/tile_ice.png");
	this->tile_collapse = al_load_bitmap("resources/tile_collapse.png");
	this->tile_hole = al_load_bitmap("resources/tile_hole.png");   
	this->bitmap_crate_water = al_load_bitmap("resources/object_crate_water.png");

	if (!this->tile || !this->tile_cliff_south_1 || !this->tile_cliff_south_2 ||
	  !this->tile_cliff_southwest_1 || !this->tile_cliff_southwest_2 || !this->tile_cliff_southeast_1 ||
	  !this->tile_cliff_southeast_2 || !this->tile_cliff_west || !this->tile_cliff_east ||
	  !this->tile_cliff_north || !this->tile_cliff_northwest || !this->tile_cliff_northeast || 
	  !this->tile_edge || !this->tile_water[0] || !this->tile_water[1] || !this->tile_water[2] || 
	  !this->tile_water[3] || !this->tile_water[4] || !this->tile_ice || !this->tile_collapse ||
	  !this->tile_hole || !this->bitmap_crate_water)
	  return false;

	return true;
  }

//-----------------------------------------------

c_map::c_map(string filename, t_input_output_state *input_output_state, long int *global_time, int language)
  {
	this->change_flame_state = 0;
	this->language = language;
    this->current_player = 0;
	this->pressed_1 = false;
	this->pressed_2 = false;
	this->pressed_3 = false;  
	this->check_firecloak = false;
	this->current_player = 0;
	this->mouse_pressed = false;
	this->frame_count = 0;
	this->animation_frame = 0;
	this->text_is_displayed = false;
	this->time_before = 0.0; 
	this->global_time = global_time;
	this->flames_on = false;
    this->input_output_state = input_output_state;
	this->number_of_missiles = 0;
	this->screen_square_resolution[0] = this->input_output_state->screen_x / SQUARE_WIDTH + 1;
	this->screen_square_resolution[1] = this->input_output_state->screen_y / SQUARE_HEIGHT + 1;
	this->screen_square_position[0] = 0;
	this->screen_square_position[1] = 0;
	this->screen_pixel_position[0] = 0;
	this->screen_pixel_position[0] = 0;
	this->screen_square_end[0] = this->screen_square_resolution[0];
	this->screen_square_end[1] = this->screen_square_resolution[1];
	this->screen_center_x = this->input_output_state->screen_x / 2; 
    this->screen_center_y = this->input_output_state->screen_y / 2;
	this->oren_destroyed = false;
	this->time_difference = 0.0;

	portrait_x_positions[0] = 20;
	portrait_x_positions[1] = 170;
	portrait_x_positions[2] = 320;
	portrait_y_position = this->input_output_state->screen_y - 75;

	this->succesfully_loaded = this->load_from_file(filename);

	// center the map1:

	this->screen_square_position[0] = (this->width - this->screen_square_resolution[0]) / 2;
	this->screen_square_position[1] = (this->height - this->screen_square_resolution[1]) / 2;;
	this->screen_pixel_position[0] = this->screen_square_position[0] * SQUARE_WIDTH;
	this->screen_pixel_position[1] = this->screen_square_position[1] * SQUARE_HEIGHT;
	this->screen_square_end[0] = this->screen_square_position[0] + this->screen_square_resolution[0];
	this->screen_square_end[1] = this->screen_square_position[1] + this->screen_square_resolution[1];

	this->update_screen_position();

	this->check_buttons();
  }

//-----------------------------------------------

void c_map::add_map_object(c_map_object *map_object, int x, int y)
  {
	int i;

	if (x < 0 || x >= this->width || y < 0 || y > this->height)
	  return;

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)       // find the first free place for the object
	  if (this->squares[x][y].map_objects[i] == NULL)
	    {
		  this->squares[x][y].map_objects[i] = map_object;
	      break;
	    }
  }

//-----------------------------------------------

string c_map::get_nth_substring(string from_what, int n)
  {
	int i;
	int current_n;
	string return_string;

	current_n = 0;
	return_string = "";

	for (i = 0; (unsigned int) i < from_what.length(); i++)
	  {
		if (from_what[i] == '|')
		  {
		    current_n++;
			continue;
		  }

        if (current_n == n)
		  return_string += from_what[i];
		else if (current_n > n)
		  break;
	  }

	return return_string;
  }

//-----------------------------------------------

void c_map::set_map_objects(string object_string)
  {
	int position, i;
	int numbers[5];
	string object_type, sign_string, help_string;
	c_map_object *help_object;

	for (position = 0; (unsigned int) position < object_string.size(); position++)
	  {
		if (object_string[position] == '(')   // object opening bracket
		  { 
			object_type = object_string.substr(position + 1,2);

			position += 3;

			for (i = 0; i < 5; i++) // load following numbers in the array
			  {
				position++;

				if ((unsigned int) position >= object_string.size() || object_string[position] == ')')
				  break;

				help_string = "";

				if (object_string[position] != '"')  // a number
				  {
					while (object_string[position] != ',' && object_string[position] != ')')
					  {
                        help_string += object_string[position];
						position++;
					  }

					numbers[i] = atoi(help_string.c_str());
				  }
				else  // loading sign text
				  {
					position++;

                    while (object_string[position] != '"' && object_string[position] != ')')
					  {
                        help_string += object_string[position];
						position++;
					  }

					position++;

					sign_string = help_string;
				  }

				if (object_string[position] == ')')
				  break;
			  }

			if (numbers[0] < 0 || numbers[0] >= this->width || numbers[1] < 0 || numbers[1] >= this->height)
			  continue;

			if (object_type.compare("ro") == 0)
			  this->add_map_object(new c_map_object(OBJECT_ROCK,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("cr") == 0)
			  this->add_map_object(new c_map_object(OBJECT_CRATE,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("ic") == 0)
			  this->add_map_object(new c_map_object(OBJECT_ICE,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("tr") == 0)
			  this->add_map_object(new c_map_object(OBJECT_TREE,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("st") == 0)
			  this->add_map_object(new c_map_object(OBJECT_STATUE,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("bu") == 0)
			  this->add_map_object(new c_map_object(OBJECT_BUTTON,numbers[2],numbers[3],this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("or") == 0)
              this->add_map_object(new c_map_object(OBJECT_OREN,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("kr") == 0)
              this->add_map_object(new c_map_object(OBJECT_KEY_RED,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("kg") == 0)
              this->add_map_object(new c_map_object(OBJECT_KEY_GREEN,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("kb") == 0)
              this->add_map_object(new c_map_object(OBJECT_KEY_BLUE,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("si") == 0)
			  {
				help_object = new c_map_object(OBJECT_SIGN,-1,-1,this->global_time);
				help_object->set_sign_text(this->get_nth_substring(sign_string,this->language));
			    this->add_map_object(help_object,numbers[0],numbers[1]);
			  }
		    else if (object_type.compare("dh") == 0)
			  {
				help_object = new c_map_object(OBJECT_DOOR_HORIZONTAL,numbers[2],numbers[3],this->global_time);
			    this->add_map_object(help_object,numbers[0],numbers[1]);

			    if (numbers[4])
				  help_object->set_state(OBJECT_STATE_ON);
			  }
			else if (object_type.compare("dv") == 0)
			  {
				help_object = new c_map_object(OBJECT_DOOR_VERTICAL,numbers[2],numbers[3],this->global_time);
			    this->add_map_object(help_object,numbers[0],numbers[1]);

				if (numbers[4])
				  help_object->set_state(OBJECT_STATE_ON);
			  }
			else if (object_type.compare("fo") == 0)
			  this->add_map_object(new c_map_object(OBJECT_FOUNTAIN,-1,-1,&this->animation_frame),numbers[0],numbers[1]);
		    else if (object_type.compare("le") == 0)
			  {
				help_object = new c_map_object(OBJECT_LEVER,numbers[2],numbers[3],this->global_time);
			    this->add_map_object(help_object,numbers[0],numbers[1]);
			  
			    if (numbers[4])
				  help_object->set_state(OBJECT_STATE_ON);
			  }
			else if (object_type.compare("sn") == 0)
			  this->add_map_object(new c_map_object(OBJECT_STAIRS_NORTH,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("fl") == 0)
			  {
                help_object = new c_map_object(OBJECT_FLAMES,numbers[2],numbers[3],this->global_time);
				this->add_map_object(help_object,numbers[0],numbers[1]);

				if (numbers[4])
				  help_object->set_state(OBJECT_STATE_ON);
			  }
			else if (object_type.compare("se") == 0)
			  this->add_map_object(new c_map_object(OBJECT_STAIRS_EAST,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("ss") == 0)
			  this->add_map_object(new c_map_object(OBJECT_STAIRS_SOUTH,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("sw") == 0)
			  this->add_map_object(new c_map_object(OBJECT_STAIRS_WEST,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("f1") == 0)
			  this->add_map_object(new c_map_object(OBJECT_FLOWERS,-1,-1,this->global_time),numbers[0],numbers[1]);
			else if (object_type.compare("f2") == 0)
			  this->add_map_object(new c_map_object(OBJECT_FLOWERS2,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("c1") == 0)
			  this->add_map_object(new c_map_object(OBJECT_CARPET,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("c2") == 0)
			  this->add_map_object(new c_map_object(OBJECT_CARPET2,-1,-1,this->global_time),numbers[0],numbers[1]);  
		    else if (object_type.compare("bo") == 0)
			  this->add_map_object(new c_map_object(OBJECT_BONES,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("wl") == 0)
			  this->add_map_object(new c_map_object(OBJECT_WATER_LILY,-1,-1,this->global_time),numbers[0],numbers[1]);
		    else if (object_type.compare("ga") == 0)
			  this->add_map_object(new c_map_object(OBJECT_GATE,-1,-1,&this->animation_frame),numbers[0],numbers[1]);
		    else if (object_type.compare("tw") == 0)
			  this->add_map_object(new c_map_object(OBJECT_TREE_WINTER,-1,-1,&this->animation_frame),numbers[0],numbers[1]);
			else if (object_type.compare("el") == 0)
			  {
			    help_object = new c_map_object(OBJECT_ELEVATOR,numbers[2],numbers[3],this->global_time);
				this->add_map_object(help_object,numbers[0],numbers[1]);

				if (numbers[4])
				  help_object->set_state(OBJECT_STATE_ON);
			  }
			else if (object_type.compare("ts") == 0)
			  {
			    help_object = new c_map_object(OBJECT_TELEPORT_INPUT,numbers[2],-1,this->global_time);
				this->add_map_object(help_object,numbers[0],numbers[1]);
			  }
		    else if (object_type.compare("td") == 0)
			  {
			    help_object = new c_map_object(OBJECT_TELEPORT_OUTPUT,numbers[2],numbers[3],this->global_time);
				this->add_map_object(help_object,numbers[0],numbers[1]);
			  }
         }
	  }

	this->link_objects();
	this->record_buttons();
  }

//-----------------------------------------------

void c_map::set_monsters(string monster_string)
  {
	int position, x, y, i, steps;
	string monster_type, help_string;
	c_monster_character *help_monster;
	char direction_char;
	t_direction direction;

	this->number_of_monsters = 0;

	for (position = 0; (unsigned int) position < monster_string.size(); position++)
	  if (monster_string[position] == '(')   // opening bracket
	    {
           monster_type = monster_string.substr(position + 1,2);

		   position += 4;

		   help_string = monster_string.substr(position,2); // load x
		   
		   position += 2; 

		   if (help_string[1] == ',' || help_string[1] == ')')
		     {
			   help_string = help_string[0];
		     }
		   else
			 position++;

		   x = atoi(help_string.c_str());

		   help_string = monster_string.substr(position,2); // load y

		   position += 2;

		   if (help_string[1] == ',' || help_string[1] == ')')
		     {
			   help_string = help_string[0];
		     }
		   else
			 position++;

		   y = atoi(help_string.c_str());

		   if (monster_type.compare("gh") == 0)
			 help_monster = new c_monster_character(MONSTER_GHOST,x,y,this->global_time);
		   else
			 help_monster = new c_monster_character(MONSTER_TROLL,x,y,this->global_time);

		   this->monster_characters[this->number_of_monsters] = help_monster;
		   this->number_of_monsters++;

		   for (i = 0; i < MAX_MONSTER_PATH_LENGTH / 2; i++)    // load path
		     {
			   if ((unsigned int) position >= monster_string.length() || monster_string[position] == ',') // no path specified
				 break;

			   direction_char = monster_string[position];       // load direction

			   position += 2;

			   help_string = monster_string.substr(position,2); // load number of steps

			   if (help_string[1] == ',' || help_string[1] == ')')
		         {
			       help_string = help_string[0];
		         }
		       else
			     {
			       position++;
			     }

			   steps = atoi(help_string.c_str());

               position++;

			   switch (direction_char)
			     {
			       case 'n':
                     direction = DIRECTION_NORTH;
					 break;

				   case 'e':
                     direction = DIRECTION_EAST;
					 break;

				   case 's':
                     direction = DIRECTION_SOUTH;
					 break;

				   case 'w':
                     direction = DIRECTION_WEST;
					 break;

				   case '-':
                     direction = DIRECTION_NONE;
					 break;

			     }

			   help_monster->add_path_instruction(direction,steps);

			   if (monster_string[position] == ')') // closing bracket
			     {
				   position++;
				   break;
			     }

			   position++;
		     }

		   help_monster->start_moving();
	    }
  }

//-----------------------------------------------

string c_map::get_description()
  {
	return this->description;
  }

//-----------------------------------------------

bool c_map::load_from_file(string filename)
  {
	c_associative_array *associative_array;
	int i, j, k, next_player;
	bool all_ok;

	all_ok = true;
	associative_array = new c_associative_array();
	all_ok = associative_array->load_from_file(filename);

    if (!all_ok)
	  {
		delete associative_array;
	    return false;
	  }

	this->width = atoi(associative_array->get_text("width").c_str());       // set width and height
	this->height = atoi(associative_array->get_text("height").c_str());
	this->description = this->get_nth_substring(associative_array->get_text("description"),this->language);

	if (associative_array->get_text("environment").compare("grass") == 0)   // set environment
	  all_ok = this->set_environment(ENVIRONMENT_GRASS);
	else if (associative_array->get_text("environment").compare("dirt") == 0)
	  all_ok = this->set_environment(ENVIRONMENT_DIRT);
    else if (associative_array->get_text("environment").compare("snow") == 0)
	  all_ok = this->set_environment(ENVIRONMENT_SNOW);
    else
      all_ok = this->set_environment(ENVIRONMENT_CASTLE); 

	for (j = 0; j < this->height; j++)       // set terrain
	  for (i = 0; i < this->width; i++)
	    { 
		  switch (associative_array->get_text("heightmap")[j * this->width + i])
		    {
		      case '0':
				this->squares[i][j].height = 0;
			    break;
			  
			  case '1':
				this->squares[i][j].height = 1;
				break;

			  case '2':
				this->squares[i][j].height = 2;
				break;
		    }

		  switch (associative_array->get_text("typemap")[j * this->width + i])
		    {
		      case 'n':
				this->squares[i][j].type = SQUARE_NORMAL;
			    break;
			  
			  case 'w':
				this->squares[i][j].type = SQUARE_WATER;
				break;

			  case 'i':
				this->squares[i][j].type = SQUARE_ICE;
				break;

			  case 'c':
				this->squares[i][j].type = SQUARE_COLLAPSE;
				break;

			  case 'h':
				this->squares[i][j].type = SQUARE_HOLE;
				break;
		    }

		  this->squares[i][j].animation = NULL;

		  for (k = 0; k < MAX_OBJECTS_PER_SQUARE; k++)
		    {
		      this->squares[i][j].map_objects[k] = NULL;
		    }
		}

	next_player = 0;

	this->music_name = associative_array->get_text("music");

	if (associative_array->get_text("mia_x").compare("") == 0) // set players
	  this->player_characters[next_player] = NULL;
	else
	  {
	    this->player_characters[next_player] = new c_player_character(PLAYER_MIA,this->global_time); 
		this->player_characters[next_player]->set_square_position(atoi(associative_array->get_text("mia_x").c_str()),atoi(associative_array->get_text("mia_y").c_str()));
	    next_player++;
	  }

	if (associative_array->get_text("metodej_x").compare("") == 0)
	  this->player_characters[next_player] = NULL;
	else
	  {
	    this->player_characters[next_player] = new c_player_character(PLAYER_METODEJ,this->global_time); 
		this->player_characters[next_player]->set_square_position(atoi(associative_array->get_text("metodej_x").c_str()),atoi(associative_array->get_text("metodej_y").c_str()));
	    next_player++;
	  }

	if (associative_array->get_text("starovous_x").compare("") == 0)
	  this->player_characters[next_player] = NULL;
	else
	  {
	    this->player_characters[next_player] = new c_player_character(PLAYER_STAROVOUS,this->global_time); 
		this->player_characters[next_player]->set_square_position(atoi(associative_array->get_text("starovous_x").c_str()),atoi(associative_array->get_text("starovous_y").c_str()));
	  }

	this->set_map_objects(associative_array->get_text("objects")); // set objects

	this->set_monsters(associative_array->get_text("monsters")); // set monsters

	delete associative_array;

	// the map's loaded, now load resources

    this->animation_water_splash = new c_animation(this->global_time,"resources/animation_water_splash",5,-5,-5,2,true,"resources/water.wav",1.0);
	this->animation_refresh = new c_animation(this->global_time,"resources/animation_refresh",6,0,0,2,true,"resources/refresh.wav",0.5);
	this->animation_crate_shift_north = new c_animation(this->global_time,"resources/animation_crate_shift_north",3,0,-79,1,false,"",1.0);
	this->animation_collapse = new c_animation(this->global_time,"resources/animation_collapse",5,0,0,2,true,"resources/crack.wav",0.3);
	this->animation_melt = new c_animation(this->global_time,"resources/animation_melt",4,0,-27,5,false,"",0.0);
	this->animation_teleport = new c_animation(this->global_time,"resources/animation_teleport",5,0,-27,5,true,"resources/teleport.wav",0.4);
	this->animation_explosion = new c_animation(this->global_time,"resources/animation_explosion",7,0,-27,5,true,"resources/explosion.wav",0.3);
	this->animation_shadow_explosion = new c_animation(this->global_time,"resources/animation_shadow_explosion",6,0,-27,5,true,"resources/shadow_explosion.wav",0.4);

    this->spell_sounds_mia[0] = al_load_sample("resources/mia_cast.wav");
    this->spell_sounds_mia[1] = al_load_sample("resources/mia_cast2.wav");
	this->spell_sounds_metodej[0] = al_load_sample("resources/metodej_cast.wav");
    this->spell_sounds_metodej[1] = al_load_sample("resources/metodej_cast2.wav");
	this->spell_sounds_starovous[0] = al_load_sample("resources/starovous_cast.wav");
    this->spell_sounds_starovous[1] = al_load_sample("resources/starovous_cast2.wav"); 
	this->change_player_sound = al_load_sample("resources/change.wav");

	if (!this->animation_water_splash->is_succesfully_loaded())
	  return false;

	this->portrait_mia = al_load_bitmap("resources/portrait_mia.png");               // load portrait bitmaps
	this->portrait_metodej = al_load_bitmap("resources/portrait_metodej.png");
	this->portrait_starovous = al_load_bitmap("resources/portrait_starovous.png");
	this->portrait_selection = al_load_bitmap("resources/selection.png");

	this->spell_mia_1[0] = al_load_bitmap("resources/spell_1_mia_1.png");            // load spell bitmaps
	this->spell_mia_1[1] = al_load_bitmap("resources/spell_1_mia_2.png");
	this->spell_mia_1[2] = al_load_bitmap("resources/spell_1_mia_3.png");
	this->spell_mia_2[0] = al_load_bitmap("resources/spell_2_mia_1.png");
	this->spell_mia_2[1] = al_load_bitmap("resources/spell_2_mia_2.png");
	this->spell_mia_2[2] = al_load_bitmap("resources/spell_2_mia_3.png");
	this->spell_metodej_1[0] = al_load_bitmap("resources/spell_1_metodej_1.png");
	this->spell_metodej_1[1] = al_load_bitmap("resources/spell_1_metodej_2.png");
	this->spell_metodej_1[2] = al_load_bitmap("resources/spell_1_metodej_3.png");
	this->spell_starovous_1[0] = al_load_bitmap("resources/spell_1_starovous_1.png");
	this->spell_starovous_1[1] = al_load_bitmap("resources/spell_1_starovous_2.png");
	this->spell_starovous_1[2] = al_load_bitmap("resources/spell_1_starovous_3.png");
	this->spell_starovous_2[0] = al_load_bitmap("resources/spell_2_starovous_1.png");
	this->spell_starovous_2[1] = al_load_bitmap("resources/spell_2_starovous_2.png");
	this->spell_starovous_2[2] = al_load_bitmap("resources/spell_2_starovous_3.png");                            
	this->spell_icons[0] = al_load_bitmap("resources/icon_telekinesis.png");
	this->spell_icons[1] = al_load_bitmap("resources/icon_create_path.png");
	this->spell_icons[2] = al_load_bitmap("resources/icon_fireball.png");
	this->spell_icons[3] = al_load_bitmap("resources/icon_fire_cloak.png");
	this->spell_icons[4] = al_load_bitmap("resources/icon_light.png");
	this->spell_icons[5] = al_load_bitmap("resources/icon_heal.png");
	this->spell_icons[6] = al_load_bitmap("resources/icon_teleport.png");

	this->map_shadow_north = al_load_bitmap("resources/map_shadow_north.png");
	this->map_shadow_south = al_load_bitmap("resources/map_shadow_south.png");
	this->map_shadow_east = al_load_bitmap("resources/map_shadow_east.png");
	this->map_shadow_west = al_load_bitmap("resources/map_shadow_west.png");

	if (!this->portrait_mia || !this->portrait_metodej ||
		!this->portrait_starovous || !this->portrait_selection ||
		!this->spell_mia_1[0] || !this->spell_mia_1[1] ||
	    !this->spell_mia_1[2] || !this->spell_mia_2[0] ||
	    !this->spell_mia_2[1] || !this->spell_mia_2[2] ||
	    !this->spell_metodej_1[0] || !this->spell_metodej_1[1] ||
	    !this->spell_metodej_1[2] || !this->spell_starovous_1[0] ||
	    !this->spell_starovous_1[1] || !this->spell_starovous_1[2] ||
	    !this->spell_starovous_2[0] || !this->spell_starovous_2[1] ||
	    !this->spell_starovous_2[2] || !this->change_player_sound)
	  return false;

	for (i = 0; i < 7; i++)
	  if (this->spell_icons[i] == NULL)
		return false;

	this->text_font = al_load_ttf_font("resources/architects_daughter.ttf",20,0);  // load the font
	
	if (!this->text_font)
	  return false;

	return true;
  }

//-----------------------------------------------

void c_map::record_buttons()
  {
	int button_positions[512][2];        // buffer to hold button positions
	int i, j;

	this->number_of_buttons = 0;

	for (j = 0; j < this->height; j++)              // record all button positions
	  for (i = 0; i < this->width; i++)
		if (this->square_has_object(i,j,OBJECT_BUTTON))
		  {
			button_positions[this->number_of_buttons][0] = i;
			button_positions[this->number_of_buttons][1] = j;
			this->number_of_buttons++;
		  }

	this->button_positions_x = new int[this->number_of_buttons];
	this->button_positions_y = new int[this->number_of_buttons];

	for (i = 0; i < this->number_of_buttons; i++)
	  {
        this->button_positions_x[i] = button_positions[i][0];
		this->button_positions_y[i] = button_positions[i][1];
	  }
  }

//-----------------------------------------------

void c_map::update_monsters()
  { 
	int i;
	bool must_check_buttons;
	bool can_move;
	t_direction direction;

	must_check_buttons = false;

	for (i = 0; i < this->number_of_monsters; i++)
      if (this->monster_characters[i] != NULL)
	    {
		  direction = this->monster_characters[i]->get_next_move();
		  
		  can_move = false;

		  switch (direction)
		    {
		      case DIRECTION_EAST:
				if (this->monster_characters[i]->get_fraction_x() < 1 - CLIFF_DISTANCE_EAST_WEST)
			      can_move = true;
					
				break;

			  case DIRECTION_NORTH:
				if (this->monster_characters[i]->get_fraction_y() > CLIFF_DISTANCE_SOUTH)
			      can_move = true;
					
				break;

			  case DIRECTION_WEST:
				if (this->monster_characters[i]->get_fraction_x() > CLIFF_DISTANCE_EAST_WEST)
			      can_move = true;
					
				break;

			  case DIRECTION_SOUTH:
				if (this->monster_characters[i]->get_fraction_x() < 1 - CLIFF_DISTANCE_NORTH)
			      can_move = true;
					
				break;
		    }

		  if (direction != DIRECTION_NONE && (can_move || this->character_can_move_to_square(this->monster_characters[i],direction)))
		    {
			  this->move_character(this->monster_characters[i],direction);
		      must_check_buttons = true;
		    }
		  else
		    {
			  this->monster_characters[i]->stop_animation();
		    }
	    }
	  
	if (must_check_buttons)
      this->check_buttons();
  }

//-----------------------------------------------

void c_map::get_object_position(c_map_object *what, int *x, int *y)
  {
	int i, j, k;

	for (j = 0; j < this->height; j++)
	  for (i = 0; i < this->width; i++)
		for (k = 0; k < MAX_OBJECTS_PER_SQUARE; k++)
		  if (this->squares[i][j].map_objects[k] == NULL)
			break;
		  else if (this->squares[i][j].map_objects[k] == what)
		    {
			  *x = i;
			  *y = j;
			  return;
		    }

	*x = -1;
	*y = -1;
  }

//-----------------------------------------------

bool c_map::object_can_be_used(c_map_object *what)
  {
	int i, x, y;
	c_map_object *help_object;

	i = 0;

	while (true)
	  {
		help_object = what->get_controlled_object(i);
	    
		if (help_object == NULL)
		  break;

		if (help_object->get_type() == OBJECT_DOOR_HORIZONTAL ||
		  help_object->get_type() == OBJECT_DOOR_VERTICAL)
		  {
		    this->get_object_position(help_object,&x,&y);

		    if (this->square_has_character(x,y) || this->square_has_object(x,y,OBJECT_CRATE))
			  return false;
		  }

		i++;
	  }

	return true;
  }

//-----------------------------------------------

void c_map::display_animation(t_display_animation animation, int x, int y)
  {
	if (x < 0 || x >= this->width || y < 0 || y >= this->height)
	  return;

	switch (animation)
	  {
	    case DISPLAY_ANIMATION_WATER_SPLASH:
		  this->squares[x][y].animation = this->animation_water_splash;
		  this->animation_water_splash->play_animation(ANIMATION_IDLE);
		  break;

		case DISPLAY_ANIMATION_CRATE_SHIFT_NORTH:
		  this->squares[x][y].animation = this->animation_crate_shift_north;
		  this->animation_crate_shift_north->play_animation(ANIMATION_IDLE);
		  break;

		case DISPLAY_ANIMATION_COLLAPSE:
		  this->squares[x][y].animation = this->animation_collapse;
		  this->animation_collapse->play_animation(ANIMATION_IDLE);
		  break;

		case DISPLAY_ANIMATION_MELT:
		  this->squares[x][y].animation = this->animation_melt;
		  this->animation_melt->play_animation(ANIMATION_IDLE);
		  break;	

		case DISPLAY_ANIMATION_REFRESH:
		  this->squares[x][y].animation = this->animation_refresh;
		  this->animation_refresh->play_animation(ANIMATION_IDLE);
		  break;

		case DISPLAY_ANIMATION_TELEPORT:
		  this->squares[x][y].animation = this->animation_teleport;
		  this->animation_teleport->play_animation(ANIMATION_IDLE);
		  break;

		case DISPLAY_ANIMATION_EXPLOSION:
		  this->squares[x][y].animation = this->animation_explosion;
		  this->animation_explosion->play_animation(ANIMATION_IDLE);
		  break;

	    case DISPLAY_ANIMATION_SHADOW_EXPLOSION:
		  this->squares[x][y].animation = this->animation_shadow_explosion;
		  this->animation_shadow_explosion->play_animation(ANIMATION_IDLE);
		  break;
	  }
  }

//-----------------------------------------------
c_map::~c_map()
  {
	int i, j, k;

	for (j = 0; j < this->height; j++)              // destroy map objects
	  for (i = 0; i < this->width; i++)
		for (k = 0; k < MAX_OBJECTS_PER_SQUARE; k++)
		  {
		    if (this->squares[i][j].map_objects[k] != NULL)
			  delete this->squares[i][j].map_objects[k];
		  }

	for (i = 0; i < 3; i++)                         // destroy players
	  if (this->player_characters[i] != NULL)
		delete this->player_characters[i];

	for (i = 0; i < this->number_of_monsters; i++)  // destroy monsters
	  if (this->monster_characters[i] != NULL)
	    delete this->monster_characters[i];

	delete this->animation_water_splash;            // destroy animations                   
	delete this->animation_refresh;                              
	delete this->animation_crate_shift_north;                     
	delete this->animation_collapse;                               
	delete this->animation_melt;                                   
	delete this->animation_teleport;                              
	delete this->animation_explosion;                              
	delete this->animation_shadow_explosion;   

	al_destroy_bitmap(this->portrait_selection);    // destroy bitmaps
	al_destroy_bitmap(this->portrait_mia);      
	al_destroy_bitmap(this->portrait_metodej);   
	al_destroy_bitmap(this->portrait_starovous);       
	al_destroy_bitmap(this->tile);                     
	al_destroy_bitmap(this->tile_cliff_south_1);       
	al_destroy_bitmap(this->tile_cliff_south_2);        
	al_destroy_bitmap(this->tile_cliff_southwest_1);     
	al_destroy_bitmap(this->tile_cliff_southwest_2);     
	al_destroy_bitmap(this->tile_cliff_southeast_1);         
	al_destroy_bitmap(this->tile_cliff_southeast_2);          
	al_destroy_bitmap(this->tile_cliff_west);                 
	al_destroy_bitmap(this->tile_cliff_east);                  
	al_destroy_bitmap(this->tile_cliff_north);             
	al_destroy_bitmap(this->tile_cliff_northwest);          
	al_destroy_bitmap(this->tile_cliff_northeast);          
	al_destroy_bitmap(this->tile_edge);                      
	al_destroy_bitmap(this->tile_ice);                           
	al_destroy_bitmap(this->tile_collapse);                               
	al_destroy_bitmap(this->tile_hole);                              
	al_destroy_bitmap(this->bitmap_crate_water);                     

	al_destroy_bitmap(this->map_shadow_north);
	al_destroy_bitmap(this->map_shadow_south);
	al_destroy_bitmap(this->map_shadow_east);
	al_destroy_bitmap(this->map_shadow_west);

	for (i = 0; i < 5; i++)
	  al_destroy_bitmap(this->tile_water[i]);            

	for (i = 0; i < 3; i++)
	  {
	    al_destroy_bitmap(this->spell_mia_1[i]);                           
	    al_destroy_bitmap(this->spell_mia_2[i]);                         
		al_destroy_bitmap(this->spell_metodej_1[i]);        
	    al_destroy_bitmap(this->spell_starovous_1[i]);                  
	    al_destroy_bitmap(this->spell_starovous_2[i]); 
	  }

	for (i = 0; i < 7; i++)
	  al_destroy_bitmap(this->spell_icons[i]);   

	al_destroy_sample(this->change_player_sound);    // destroy sounds

	for (i = 0; i < 2; i++)
	  {
	    al_destroy_sample(this->spell_sounds_mia[i]);        
	    al_destroy_sample(this->spell_sounds_metodej[i]);                   
	    al_destroy_sample(this->spell_sounds_starovous[i]);                  
	  }

	al_destroy_font(this->text_font);               // destroy the font
  }

//-----------------------------------------------

void c_map::check_buttons()
  {
	int i, j;
	int nuber_of_objects;    // number of objects on one square
	c_map_object *help_object;
	bool is_pressed;

	for (i = 0; i < this->number_of_buttons; i++)
	  {
		is_pressed = false;

		for (j = 0; j < 3; j++)  // check if any player is standing on the square
		  if (this->player_characters[j] != NULL)
			if (this->player_characters[j]->get_square_x() == this->button_positions_x[i] &&
			    this->player_characters[j]->get_square_y() == this->button_positions_y[i])
			  {
				is_pressed = true;
				break; 
			  }
	    
		if (!is_pressed)
          for (j = 0; j < number_of_monsters; j++)  // check if any monster is standing on the square
		    if (this->monster_characters[j] != NULL)
			  if (this->monster_characters[j]->get_square_x() == this->button_positions_x[i] &&
			      this->monster_characters[j]->get_square_y() == this->button_positions_y[i])
			    {
				  is_pressed = true;
				  break;
			    }

		if (!is_pressed)
		  {
		    nuber_of_objects = 0;

	        for (j = 0; j < MAX_OBJECTS_PER_SQUARE; j++)
	          {
		        help_object = this->squares[this->button_positions_x[i]][this->button_positions_y[i]].map_objects[j];

				if (help_object != NULL && help_object->get_type() == OBJECT_CRATE)
		          {
			        nuber_of_objects++;
		          }
	          }

			if (nuber_of_objects >= 1)  // if there are crates, then press the button
			  is_pressed = true;
		  }

		for (j = 0; j < MAX_OBJECTS_PER_SQUARE; j++) // find the button and do actions
		  {
			help_object = this->squares[this->button_positions_x[i]][this->button_positions_y[i]].map_objects[j];

			if (help_object != NULL && help_object->get_type() == OBJECT_BUTTON && this->object_can_be_used(help_object))
			  {

				if (is_pressed)
				  {
					if (help_object->get_state() == OBJECT_STATE_OFF)
					  {
					    help_object->switch_state();
					    help_object->play_animation(ANIMATION_SWITCH_OFF);
						this->update_flames();
					  }
				  }
				else
				  {
					if (help_object->get_state() == OBJECT_STATE_ON)
					  {
						help_object->switch_state();
					    help_object->play_animation(ANIMATION_SWITCH_ON);
					    this->update_flames();
					  }
				  }
			  }
		  }
      }
  }

//-----------------------------------------------

bool c_map::crate_can_be_shifted(int x, int y, int height, t_direction direction)
  {
	int next_square[2];
	int i;

	if (x < 0 || x >= this->width || y < 0 || y >= this->height)
	  return false;

	this->next_square(x,y,direction,&next_square[0],&next_square[1]);

	if (next_square[0] < 0 || next_square[0] >= this->width ||      // check the map range
	  next_square[1] < 0 || next_square[1] >= this->height)
	  return false;

	if (!this->square_is_stepable(next_square[0],next_square[1]))
	  return false;

	if (this->get_height(x,y) - 1 != height)      // check if shifting from right height 
	  return false;

	if (this->square_has_character(x,y))
	  return false;

	if (this->square_has_character(next_square[0],next_square[1]))
	  return false;

	if (this->get_height(next_square[0],next_square[1]) > height)
	  return false;

	if (!this->door_can_be_passed(x,y,direction))               // door at the crate's square
	  return false;

	if (this->get_height(x,y) - 1 == this->get_height(next_square[0],next_square[1])) // door at the next square and the same height level
	  {
		return (this->door_can_be_passed(next_square[0],next_square[1],direction));
	  }
	else    // door that are on lower height level
	  {
		for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
		  if (this->squares[next_square[0]][next_square[1]].map_objects[i] != NULL &&
			(this->squares[next_square[0]][next_square[1]].map_objects[i]->get_type() == OBJECT_DOOR_HORIZONTAL ||
			this->squares[next_square[0]][next_square[1]].map_objects[i]->get_type() == OBJECT_DOOR_VERTICAL) &&
			this->squares[next_square[0]][next_square[1]].map_objects[i]->get_state() == OBJECT_STATE_OFF)
		    return false;
	  }

	return true;
  }

//-----------------------------------------------

bool c_map::square_has_character(int x, int y)
  {
	int i;

	for (i = 0; i < 3; i++)
	  if (this->player_characters[i] != NULL &&
	    this->player_characters[i]->get_square_x() == x &&
		this->player_characters[i]->get_square_y() == y)
		return true;

	for (i = 0; i < this->number_of_monsters; i++)
	  if (this->monster_characters[i] != NULL &&
		this->monster_characters[i]->get_square_x() == x &&
		this->monster_characters[i]->get_square_y() == y)
	    return true;

	return false;
  }

//-----------------------------------------------

void c_map::remove_object(int x, int y, int index)
  {
	int i;

	for (i = index + 1; i < MAX_OBJECTS_PER_SQUARE; i++)
	  {
		this->squares[x][y].map_objects[i - 1] = this->squares[x][y].map_objects[i];
		this->squares[x][y].map_objects[i] = NULL;
	  }
  }

//-----------------------------------------------

void c_map::shift_crate(int x, int y, t_direction direction)
  {
	int i;
	int next_square[2];

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
	  if (this->squares[x][y].map_objects[i] != NULL)
	    {
		  if (this->squares[x][y].map_objects[i]->get_type() == OBJECT_CRATE)
		    {
			  this->next_square(x,y,direction,&next_square[0],&next_square[1]);

			  switch(direction)
			    {
			      case DIRECTION_EAST:
					this->squares[x][y].map_objects[i]->play_animation(ANIMATION_SHIFT_EAST);
				    break;

			      case DIRECTION_WEST:
					this->squares[x][y].map_objects[i]->play_animation(ANIMATION_SHIFT_WEST);
				    break;

			      case DIRECTION_NORTH:
					this->squares[x][y].map_objects[i]->play_animation(ANIMATION_SHIFT_NORTH);
					this->display_animation(DISPLAY_ANIMATION_CRATE_SHIFT_NORTH,x,y);
				    break;

				  case DIRECTION_SOUTH:
					this->squares[x][y].map_objects[i]->play_animation(ANIMATION_SHIFT_SOUTH);
				    break;
			    }

			  if (this->get_square_type(next_square[0],next_square[1]) == SQUARE_WATER &&
				!this->square_has_object(next_square[0],next_square[1],OBJECT_CRATE))
			    this->display_animation(DISPLAY_ANIMATION_WATER_SPLASH,next_square[0],next_square[1]);
	
			  this->add_map_object(this->squares[x][y].map_objects[i],next_square[0],next_square[1]);
			  this->remove_object(x,y,i);  

			  break;
		    }
	    }
	  else
		break;

	this->check_buttons();
  }

//-----------------------------------------------

void c_map::link_objects()
  {
	int i, j, k, l, m, n, o;
	bool is_in_array;
	c_map_object *help_object, *help_object2;
	c_map_object *object_array[256];            // buffer to temporarily hold objects
	int array_length;

	for (j = 0; j < this->height; j++)
	  for (i = 0; i < this->width; i++)
		for (k = 0; k < MAX_OBJECTS_PER_SQUARE; k++)
		  {
			help_object = this->squares[i][j].map_objects[k];

		    if (help_object != NULL && help_object->is_input())
			  {
                array_length = 0;

				for (m = 0; m < this->height; m++)        // find the corresponding map object
	              for (l = 0; l < this->width; l++)
					for (n = 0; n < this->width; n++)
					  {
						help_object2 = this->squares[l][m].map_objects[n];

						if (help_object2 != NULL)
						  {
							if (!help_object2->is_input() &&
								help_object->compare_link_ids(help_object2))
							  {
								is_in_array = false;      // we have to check, if the object is already in the array

								for (o = 0; o < array_length; o++)
								  if (object_array[o] == help_object2)
								    {
									  is_in_array = true;
									  break;
								    }

								if (!is_in_array)
								  {
								    object_array[array_length] = help_object2;
								    array_length++;
								  }
							  }
						  }
						else
						  break;
					  }

			    help_object->add_controlled_objects(array_length,object_array);
		      }
		}
  }

//-----------------------------------------------

void c_map::update_map_object_states()
  {
  }

//-----------------------------------------------

bool c_map::must_have_border(t_square_type type1, t_square_type type2)
  {
	if (type1 == SQUARE_COLLAPSE || type1 == SQUARE_HOLE)
	  return (type2 != SQUARE_COLLAPSE && type2 != SQUARE_HOLE);
	
	return (type1 != type2);
  }

//-----------------------------------------------

void c_map::draw_borders(int x, int y, int plus_x, int plus_y)
  {
	int elevation, square_height;
	t_square_type square_type;

	square_type = this->squares[x][y].type;
	square_height = this->squares[x][y].height;
	elevation = square_height * ELEVATION;
			          
	if (this->must_have_border(this->get_square_type(x,y - 1),square_type)    // north border
	  || this->get_terrain_height(x,y - 1) != square_height)     
	  al_draw_bitmap(this->tile_edge,plus_x + x * SQUARE_WIDTH,plus_y + y * SQUARE_HEIGHT - elevation,0);

	if (this->must_have_border(this->get_square_type(x + 1,y),square_type)    // east border
	  || this->get_terrain_height(x + 1,y) != square_height)
      al_draw_bitmap(this->tile_cliff_west,plus_x + x * SQUARE_WIDTH + 54,plus_y + y * SQUARE_HEIGHT - elevation,0);

	if (this->must_have_border(this->get_square_type(x - 1,y),square_type)    // west border
	  || this->get_terrain_height(x - 1,y) != square_height)
      al_draw_bitmap(this->tile_cliff_east,plus_x + x * SQUARE_WIDTH,plus_y + y * SQUARE_HEIGHT - elevation,0);

	if (this->must_have_border(this->get_square_type(x,y + 1),square_type)    // south border
	  || this->get_terrain_height(x,y + 1) != square_height)
      al_draw_bitmap(this->tile_cliff_north,plus_x + x * SQUARE_WIDTH,plus_y + y * SQUARE_HEIGHT - elevation + 40,0);
  }

//-----------------------------------------------

void c_map::draw(int x, int y)
  {
	int i, j, k, help_height, elevation, number_of_crates, elevator_height, help_x, help_y;

	al_clear_to_color(al_map_rgb(0,0,0));      // clear the screen
	
	this->animation_frame = *this->global_time / 16;

	for (j = this->screen_square_position[1] - 1; j < this->screen_square_end[1] + 1; j++)                         // go through lines
	  { 
		if (j < 0 || j >= this->height)               // outside map boundaries - don't draw
	      continue;

        for (help_height = 0; help_height < 3; help_height++)  // go through all 3 height levels
	      { 		  
			elevation = help_height * ELEVATION;      // y offset caused by different height levels
	
			for (i = this->screen_square_position[0] - 1; i < this->screen_square_end[0] + 1; i++)                 // go through columns
			  { 
				if (i < 0 || i >= this->width) // outside map boundaries - don't draw
	              continue;

				if (this->squares[i][j].height == help_height)
		          {  
					help_x = x + i * SQUARE_WIDTH - this->screen_pixel_position[0];
					help_y = y + j * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1];

			        switch (this->squares[i][j].type)
			          {
			            case SQUARE_NORMAL:                      // normal square
						  al_draw_bitmap(this->tile,help_x,help_y,0); // draw floor
						  break;

				        case SQUARE_WATER:                       // water square
					      al_draw_bitmap(this->tile_water[this->animation_frame % 5],help_x,help_y,0);			          
					      this->draw_borders(i,j,x - this->screen_pixel_position[0],y - this->screen_pixel_position[1]);
						  break;

						case SQUARE_ICE:                          // ice square
						  al_draw_bitmap(this->tile_ice,help_x,help_y,0);
						  this->draw_borders(i,j,x - this->screen_pixel_position[0],y - this->screen_pixel_position[1]);
						  break;

						case SQUARE_COLLAPSE:                     // collapse square
						  al_draw_bitmap(this->tile_collapse,help_x,help_y,0);
						  this->draw_borders(i,j,x - this->screen_pixel_position[0],y - this->screen_pixel_position[1]);
						  break;

						case SQUARE_HOLE:                         // hole
						  al_draw_bitmap(this->tile_hole,help_x,help_y,0);
						  this->draw_borders(i,j,x - this->screen_pixel_position[0],y - this->screen_pixel_position[1]);
						  break;
					  }
				
			        if (help_height != 3)                                                // draw south cliffs
				      {
				        if (this->get_terrain_height(i,j - 1) == help_height + 1)                    // south
					      {
							help_x = x + i * SQUARE_WIDTH - this->screen_pixel_position[0];
							help_y = y + j * SQUARE_HEIGHT - elevation - ELEVATION - this->screen_pixel_position[1];

				  	        al_draw_bitmap(this->tile_cliff_south_1,help_x,help_y,0);

							if (this->get_terrain_height(i + 1,j - 1) != this->get_terrain_height(i,j - 1) && i != this->width - 1)  // southeast 1
						      al_draw_bitmap(this->tile_cliff_southeast_1,x + i * SQUARE_WIDTH + SQUARE_WIDTH - this->screen_pixel_position[0],help_y,0);
				    
					        if (this->get_terrain_height(i - 1,j - 1) != this->get_terrain_height(i,j - 1) && i != 0)                // southwest 1
					          al_draw_bitmap(this->tile_cliff_southwest_1,x + i * SQUARE_WIDTH - 10 - this->screen_pixel_position[0],help_y,0);
					        
							if (i == 0)   // cut part of the cliff so it appears like it's in fog
							  {
                                al_draw_filled_rectangle(help_x - 10,help_y,help_x + 10,help_y + 30,al_map_rgb(0,0,0));
							  }
							else if (i == this->width - 1)
							  {
								al_draw_filled_rectangle(help_x + 55,help_y,help_x + 90,help_y + 30,al_map_rgb(0,0,0));
							  }
						  }
				        else if (this->get_terrain_height(i,j - 1) == help_height + 2)
					      {
							help_x = x + i * SQUARE_WIDTH - this->screen_pixel_position[0];
							help_y = y + j * SQUARE_HEIGHT - elevation - 54 - this->screen_pixel_position[1];

					        al_draw_bitmap(this->tile_cliff_south_2,help_x,help_y,0);

					        if (this->get_terrain_height(i + 1,j - 1) != this->get_terrain_height(i,j - 1) && i != this->width - 1)  // southeast 2
						      al_draw_bitmap(this->tile_cliff_southeast_2,x + i * SQUARE_WIDTH + SQUARE_WIDTH - this->screen_pixel_position[0],help_y,0);
				    
					        if (this->get_terrain_height(i - 1,j - 1) != this->get_terrain_height(i,j - 1) && i != 0)                // southwest 2
						      al_draw_bitmap(this->tile_cliff_southwest_2,x + i * SQUARE_WIDTH - 10 - this->screen_pixel_position[0],help_y,0);
					      
						    if (i == 0)   // cut part of the cliff so it appears like it's in the fog
							  {
                                al_draw_filled_rectangle(help_x - 10,help_y,help_x + 10,help_y + 60,al_map_rgb(0,0,0));
							  }
							else if (i == this->width - 1)
							  {
								al_draw_filled_rectangle(help_x + 55,help_y,help_x + 90,help_y + 60,al_map_rgb(0,0,0));
							  } 
						  }
				      }
			  
				    if (help_height != 0)                                               // draw other cliffs
				      {
				        if (this->get_terrain_height(i,j - 1) < help_height)                        // north
					      {
							help_x = x + i * SQUARE_WIDTH - this->screen_pixel_position[0];
							help_y = y + j * SQUARE_HEIGHT - elevation - 10 - this->screen_pixel_position[1];

					        al_draw_bitmap(this->tile_cliff_north,help_x,help_y,0);
				    
					        if (this->get_terrain_height(i + 1,j - 1) != help_height &&
						      this->get_terrain_height(i + 1,j) != help_height)                      // northeast
						     al_draw_bitmap(this->tile_cliff_northeast,x + i * SQUARE_WIDTH + SQUARE_WIDTH - this->screen_pixel_position[0],help_y,0);

					        if (this->get_terrain_height(i - 1,j - 1) != help_height &&
						      this->get_terrain_height(i - 1,j) != help_height)                      // northwest
						      al_draw_bitmap(this->tile_cliff_northwest,x + i * SQUARE_WIDTH - 10 - this->screen_pixel_position[0],help_y,0);

							if (i == 0) // fog
							  al_draw_filled_rectangle(help_x - 10,help_y + 5,help_x + 10,help_y + 10,al_map_rgb(0,0,0));
							else if (i == this->width - 1)
							  al_draw_filled_rectangle(help_x + 55,help_y + 5,help_x + 70,help_y + 10,al_map_rgb(0,0,0));
					      }

						if (this->get_terrain_height(i - 1,j) < help_height && i != 0)               // west
					      al_draw_bitmap(this->tile_cliff_west,x + i * SQUARE_WIDTH - 10 - this->screen_pixel_position[0],y + j * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1],0);

						if (this->get_terrain_height(i + 1,j) < help_height && i != this->width - 1) // east
					      al_draw_bitmap(this->tile_cliff_east,x + i * SQUARE_WIDTH + SQUARE_WIDTH - this->screen_pixel_position[0],y + j * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1],0);
				      }

					if (j == 0)                                                  // draw transition to background (dark fog)
					  {
						help_y = y + j * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1] - 15;

						al_draw_bitmap(this->map_shadow_north,x + i * SQUARE_WIDTH - this->screen_pixel_position[0],help_y,0);
					  
					    if (this->get_terrain_height(i - 1,j) < help_height)
						  al_draw_bitmap(this->map_shadow_north,x + (i - 1) * SQUARE_WIDTH - this->screen_pixel_position[0],help_y,0);

						if (this->get_terrain_height(i + 1,j) < help_height)
						  al_draw_bitmap(this->map_shadow_north,x + (i + 1) * SQUARE_WIDTH - this->screen_pixel_position[0],help_y,0);  
					  }
					else if (j == this->height - 1)
					  {
						al_draw_bitmap(this->map_shadow_south,x + i * SQUARE_WIDTH - this->screen_pixel_position[0],y + j * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1] + 15,0);
					  }

					if (i == 0)
					  {
						help_x = x + i * SQUARE_WIDTH - this->screen_pixel_position[0] - 15;

                        al_draw_bitmap(this->map_shadow_west,help_x,y + j * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1],0);
					    al_draw_bitmap(this->map_shadow_west,help_x,y + (j + 1) * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1],0);
					  }
					else if (i == this->width - 1)
				      {
						help_x = x + i * SQUARE_WIDTH - this->screen_pixel_position[0] + 15; 

                        al_draw_bitmap(this->map_shadow_east,help_x,y + j * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1],0);
						al_draw_bitmap(this->map_shadow_east,help_x,y + (j + 1) * SQUARE_HEIGHT - elevation - this->screen_pixel_position[1],0); 
					  }
				  } 
			  }
	      }

		for (i = 0; i < this->screen_square_end[0] + 1; i++)      // draw the same line of objects (and animations)
	      {
			if (i < 0 || i >= this->width)
			  break;

			number_of_crates = 0;
			elevator_height = 0;

			for (k = 0; k < MAX_OBJECTS_PER_SQUARE; k++)
			  if (this->squares[i][j].map_objects[k] != NULL)
			    {
				  help_x = x + i * SQUARE_WIDTH - this->screen_pixel_position[0];

                  if (this->squares[i][j].map_objects[k]->get_type() == OBJECT_CRATE)  // draw crates one on another
				    {
					  if (this->get_square_type(i,j) == SQUARE_WATER)                  // if the crate is in the water, draw it differently
					    {
					      if (number_of_crates == 0) 
					        al_draw_bitmap(this->bitmap_crate_water,help_x,y + j * SQUARE_HEIGHT - this->squares[i][j].height * ELEVATION - this->screen_pixel_position[1],0); 
					      else
						    this->squares[i][j].map_objects[k]->draw(help_x,y + j * SQUARE_HEIGHT - (this->squares[i][j].height - 1) * ELEVATION - number_of_crates * ELEVATION - this->screen_pixel_position[1]);
					    }
					  else
					    this->squares[i][j].map_objects[k]->draw(help_x,y + j * SQUARE_HEIGHT - this->squares[i][j].height * ELEVATION - number_of_crates * ELEVATION - elevator_height - this->screen_pixel_position[1]);
				    
					  number_of_crates++;
				    }
				  else                                                                 // other map object type
				    { 
					  if (this->squares[i][j].map_objects[k]->get_type() == OBJECT_ELEVATOR)
					    if (this->squares[i][j].map_objects[k]->get_state() == OBJECT_STATE_ON)
					  	  elevator_height = ELEVATION;
			        
                      this->squares[i][j].map_objects[k]->draw(help_x, y + j * SQUARE_HEIGHT - this->squares[i][j].height * ELEVATION - this->screen_pixel_position[1]);
				    }
			    }
			  else
				break;

			if (this->squares[i][j].animation != NULL)    // draw animation on the square if there is any
			  if (this->squares[i][j].animation->get_playing_animation() != NULL)
                this->squares[i][j].animation->draw(x + i * SQUARE_WIDTH - this->screen_pixel_position[0], y + j * SQUARE_HEIGHT - this->squares[i][j].height * ELEVATION - this->screen_pixel_position[1]);
			  else
			    this->squares[i][j].animation = NULL;
	      }

		for (i = 0; i < 3; i++)                        // draw players
		  if (this->player_characters[i] != NULL && this->player_characters[i]->get_square_y() == j)
		    {
			  elevation = this->get_elevation_for_character(this->player_characters[i]);

			  this->player_characters[i]->draw((int) (x + this->player_characters[i]->get_position_x() * SQUARE_WIDTH - this->screen_pixel_position[0]),
			  (int) (y + this->player_characters[i]->get_position_y() * SQUARE_HEIGHT - this->screen_pixel_position[1]) - elevation);
		    }
 
		for (i = 0; i < this->number_of_monsters; i++) // draw monsters
		  if (this->monster_characters[i] != NULL && this->monster_characters[i]->get_square_y() == j)
		    { 
			  elevation = this->get_elevation_for_character(this->monster_characters[i]);
			  
			  this->monster_characters[i]->draw((int) (x + this->monster_characters[i]->get_position_x() * SQUARE_WIDTH - this->screen_pixel_position[0]),
			    (int) (y + this->monster_characters[i]->get_position_y() * SQUARE_HEIGHT - this->screen_pixel_position[1]) - elevation);
		    }
		
		for (i = 0; i < this->number_of_missiles; i++) // draw missiles
		  if (this->missiles[i].square_y == j)
		    {
			  elevation = this->missiles[i].height * ELEVATION;
			  al_draw_bitmap(this->missiles[i].bitmap,x + (int) (this->missiles[i].position_x * SQUARE_WIDTH) - this->screen_pixel_position[0], y + (int) (this->missiles[i].position_y * SQUARE_HEIGHT) - elevation - this->screen_pixel_position[1],0); 
		    }
	  }

	for (i = 0; i < 3; i++)                            // draw portraits
	  if (this->player_characters[i] == NULL)
	    {
		  break;
	    }
	  else
	    {
		  if (i == this->current_player)
			al_draw_bitmap(this->portrait_selection,x + this->portrait_x_positions[i] - 2,y + this->portrait_y_position - 3,0);

		  // draw the energy bar:
		  al_draw_filled_rectangle(x + 38 + this->portrait_x_positions[i],y + this->portrait_y_position + 20,x + this->portrait_x_positions[i] + 38 + this->player_characters[i]->get_magic_energy() * 18,y + this->portrait_y_position + 47,al_map_rgb(197,248,252));

		  switch (this->player_characters[i]->get_player_type())
		    {
		      case PLAYER_MIA:
				al_draw_bitmap(this->portrait_mia,x + this->portrait_x_positions[i],y + this->portrait_y_position,0);
				break;
			  
			  case PLAYER_METODEJ:
				al_draw_bitmap(this->portrait_metodej,x + this->portrait_x_positions[i],y + this->portrait_y_position,0);
			    break;

			  case PLAYER_STAROVOUS:
				al_draw_bitmap(this->portrait_starovous,x + this->portrait_x_positions[i],y + this->portrait_y_position,0);
		        break; 
		    }
	    }

	switch (this->player_characters[this->current_player]->get_player_type())  // draw spell icons
	  {
		case PLAYER_MIA:
		  al_draw_bitmap(this->spell_icons[0],x + 490,y + this->portrait_y_position + 10,0);
		  al_draw_bitmap(this->spell_icons[1],x + 550,y + this->portrait_y_position + 10,0);
		  break;
			  
		case PLAYER_METODEJ: 
		  al_draw_bitmap(this->spell_icons[2],x + 490,y + this->portrait_y_position + 10,0);
		  al_draw_bitmap(this->spell_icons[3],x + 550,y + this->portrait_y_position + 10,0);
		  break;

		case PLAYER_STAROVOUS:
		  al_draw_bitmap(this->spell_icons[4],x + 490,y + this->portrait_y_position + 10,0);
		  al_draw_bitmap(this->spell_icons[5],x + 550,y + this->portrait_y_position + 10,0);
		  break; 				
	  }

	al_draw_bitmap(this->spell_icons[6],x + 610,y + this->portrait_y_position + 10,0);

	if (this->text_is_displayed)              // draw displayed text
	  {
		al_draw_filled_rectangle(this->screen_center_x - (this->textbox_size[0] / 2),this->screen_center_y - 220,this->screen_center_x + (this->textbox_size[0] / 2),this->screen_center_y - 220 + this->textbox_size[1],al_map_rgba(94,47,0,220));

		for (i = 0; i < MAX_TEXT_LINES; i++)
		  {
			al_draw_text(this->text_font,al_map_rgb(0,0,0),this->screen_center_x + 1,this->screen_center_y - 200 + al_get_font_line_height(this->text_font) * i + 1,ALLEGRO_ALIGN_CENTRE,this->text_lines[i]); // text shadow
			al_draw_text(this->text_font,al_map_rgb(255,220,220),this->screen_center_x,this->screen_center_y - 200 + al_get_font_line_height(this->text_font) * i,ALLEGRO_ALIGN_CENTRE,this->text_lines[i]);
		  }
	  }

	if (this->input_output_state->key_cast_1) // highlight pressed spells
	  {
		al_draw_filled_rectangle(x + 493,y + this->portrait_y_position + 13,x + 525,y + this->portrait_y_position + 45,al_map_rgba(150,100,100,75));
	  }

	if (this->input_output_state->key_cast_2)
	  {
		al_draw_filled_rectangle(x + 553,y + this->portrait_y_position + 13,x + 585,y + this->portrait_y_position + 45,al_map_rgba(150,100,100,75));
	  }

	if (this->input_output_state->key_cast_3)
	  {
		al_draw_filled_rectangle(x + 613,y + this->portrait_y_position + 13,x + 645,y + this->portrait_y_position + 45,al_map_rgba(150,100,100,75));
	  }
  }

//-----------------------------------------------

int c_map::get_elevation_for_character(c_character *character)
  {
	int height, x, y, i;
	double fraction_x, fraction_y;

	x = character->get_square_x();
	y = character->get_square_y();
	fraction_x = character->get_fraction_x();
	fraction_y = character->get_fraction_y();

	height = this->get_height(x,y) * ELEVATION;

	if (this->square_has_object(x,y,OBJECT_STAIRS_NORTH) && fraction_y < 0.5)
	  height += (int) ((0.5 - fraction_y) * 35);
	else if (this->square_has_object(x,y,OBJECT_STAIRS_EAST) && fraction_x > 0.5)
	  height += (int) ((fraction_x - 0.5) * 35);
	else if (this->square_has_object(x,y,OBJECT_STAIRS_SOUTH) && fraction_y > 0.5)
	  height += (int) ((fraction_y - 0.5) * 35);
	else if (this->square_has_object(x,y,OBJECT_STAIRS_WEST) && fraction_x < 0.5)
	  height += (int) ((0.5 - fraction_x) * 35);

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)             // check elevator animation
	  if (this->squares[x][y].map_objects[i] != NULL)
	    {
		  if (this->squares[x][y].map_objects[i]->get_type() == OBJECT_ELEVATOR)
		    {
			  if (this->squares[x][y].map_objects[i]->is_animating())
			    {
			      if (this->squares[x][y].map_objects[i]->get_state() == OBJECT_STATE_ON)
				    {
			  	      height -= ELEVATION;
					  height += this->squares[x][y].map_objects[i]->get_animation_frame() * 7;
				    }
				  else
				    {
					  height += ELEVATION;
					  height -= this->squares[x][y].map_objects[i]->get_animation_frame() * 7;
				    }
			    }
			  else
				break;
		    }
		  else
		    break;
	    }
	  else
		break;

	return height;
  }

//-----------------------------------------------

bool c_map::character_can_move_to_square(c_character *character, t_direction direction)
  {
	int square_position[2];                // player position in map squares
	int square_position_next[2];           // next square coordinations in player's direction
	t_object_type help_object_type;        // to checks stairs
	t_object_type help_object_type2;       // to checks stairs
	int height_difference;                 // height difference between start and destination squares
	bool returned_value;
	
	if (direction == DIRECTION_NONE)
	  return true;

	square_position[0] = character->get_square_x();
	square_position[1] = character->get_square_y();

	this->next_square(square_position[0],square_position[1],direction,
	  &square_position_next[0],&square_position_next[1]);

    switch (direction)
	  {
		case DIRECTION_NORTH:
		  help_object_type = OBJECT_STAIRS_NORTH;
		  help_object_type2 = OBJECT_STAIRS_SOUTH;
		  break;

		case DIRECTION_EAST:
		  help_object_type = OBJECT_STAIRS_EAST;
		  help_object_type2 = OBJECT_STAIRS_WEST;
		  break;

		case DIRECTION_WEST:
		  help_object_type = OBJECT_STAIRS_WEST;
		  help_object_type2 = OBJECT_STAIRS_EAST;
		  break;

		case DIRECTION_SOUTH:
		  help_object_type = OBJECT_STAIRS_SOUTH;
		  help_object_type2 = OBJECT_STAIRS_NORTH;
		  break;
	  }

	if (square_position_next[0] < 0 || square_position_next[0] >= this->width ||   // check map range
	  square_position_next[1] < 0 || square_position_next[1] >= this->height)
	  return false;

	if (this->get_square_type(square_position_next[0],square_position_next[1]) == SQUARE_HOLE)  // check holes
	  return false;

	if(!this->square_is_stepable(square_position_next[0],square_position_next[1])) // check stepable objects
	  return false;

	if (!this->door_can_be_passed(square_position_next[0],square_position_next[1],direction)) // checks doors at the next square
	  return false;

	if (!this->door_can_be_passed(square_position[0],square_position[1],direction))  // check doors at given position
	  return false;

	height_difference = this->get_height(square_position[0],square_position[1]) -  // check height difference
	  this->get_height(square_position_next[0],square_position_next[1]);

	returned_value = true;

	switch (height_difference)
	  {
	    case 0:        // no difference -> OK
		  if (this->get_height(square_position[0],square_position[1]) <                  // this prevents entering to water through cliff
	        this->get_terrain_height(square_position_next[0],square_position_next[1]))
	        returned_value = false;
		  break;

		case 1:        // source square is higher
		  returned_value = this->square_has_object(square_position_next[0],square_position_next[1],help_object_type2)
			&& this->get_height(square_position_next[0],square_position_next[1]) == this->get_terrain_height(square_position_next[0],square_position_next[1]);
		  break;

		case -1:       // source square is lower
		  returned_value = this->square_has_object(square_position[0],square_position[1],help_object_type)
		    && this->get_height(square_position_next[0],square_position_next[1]) == this->get_terrain_height(square_position_next[0],square_position_next[1]); 
		  break;
		   
		default:       // can't be accesed even by stairs
		  returned_value = false;
		  break;
	  }		  

	return returned_value; 
  }

//-----------------------------------------------

bool c_map::square_has_object(int x, int y, t_object_type object_type)
  { 
	int i;

    if (x >= this->width || x < 0 || y >= this->height ||
	  y < 0)
	  return false;

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
	  if (this->squares[x][y].map_objects[i] != NULL)
	    {
		  if (this->squares[x][y].map_objects[i]->get_type() == object_type)
		    return true;
	    }
	  else
		break;

	return false;
  }

//-----------------------------------------------

bool c_map::square_is_stepable(int x, int y)
  { 
	int i;

	if (x < 0 || x >= this->width ||
		y < 0 || y >= this->height)
	  return false;

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
      if (this->squares[x][y].map_objects[i] != NULL)
	    {
		  if (!this->squares[x][y].map_objects[i]->is_stepable())
		    return false;
	    }
	  else
		break;

	return true; 
  }

//-----------------------------------------------

void c_map::update_screen_position()
  {
	int player_position[2];
	int i, player_height;

	player_position[0] = this->player_characters[this->current_player]->get_square_x();
	player_position[1] = this->player_characters[this->current_player]->get_square_y();

	for (i = 0; i < 2; i++)    // check x and y
	  if (player_position[i] < this->screen_square_position[i] + 2)
	    {
	      this->screen_square_position[i] = player_position[i] - 1;
		  this->screen_square_end[i] = this->screen_square_position[i] + this->screen_square_resolution[i];

		   if (i == 0)
			this->screen_pixel_position[i] = ((this->screen_square_position[i] - 1) * SQUARE_WIDTH) + this->player_characters[this->current_player]->get_fraction_x() * SQUARE_WIDTH;
		  else
		    {
			  this->screen_pixel_position[i] = ((this->screen_square_position[i] - 1) * SQUARE_HEIGHT) + this->player_characters[this->current_player]->get_fraction_y() * SQUARE_HEIGHT;
		    
			  player_height = this->get_height(player_position[0],player_position[1]); // check camera shift due to height

			  this->screen_pixel_position[i] -= player_height * ELEVATION;
		    }
	    }
	  else if (player_position[i] >= this->screen_square_end[i] - 3)
	    {
	      this->screen_square_position[i] += player_position[i] - (this->screen_square_end[i] - 3);
		  this->screen_square_end[i] = this->screen_square_position[i] + this->screen_square_resolution[i];

		  if (i == 0)
			this->screen_pixel_position[i] = (this->screen_square_position[i] + this->player_characters[this->current_player]->get_fraction_x()) * SQUARE_WIDTH;
		  else
			this->screen_pixel_position[i] = (this->screen_square_position[i] + this->player_characters[this->current_player]->get_fraction_y()) * SQUARE_HEIGHT;
	    }
  }

//-----------------------------------------------

void c_map::shift_screen(int x, int y)
  {
	if (x > 0 && this->screen_square_end[0] > this->width + 16) // check map borders
	  return;
	else if (x < 0 && this->screen_pixel_position[0] < - 800)
	  return;
	else if (y > 0 && this->screen_square_end[1] > this->height + 10)
	  return;
	else if (y < 0 && this->screen_pixel_position[1] < - 640)
	  return;

	this->screen_pixel_position[0] += x;
	this->screen_pixel_position[1] += y;

	this->screen_square_position[0] = this->screen_pixel_position[0] / SQUARE_WIDTH;
	this->screen_square_position[1] = this->screen_pixel_position[1] / SQUARE_HEIGHT;

	this->screen_square_end[0] = this->screen_square_position[0] + this->screen_square_resolution[0];
	this->screen_square_end[1] = this->screen_square_position[1] + this->screen_square_resolution[1];
  }

//-----------------------------------------------

void c_map::move_character(c_character *character, t_direction direction)
  {
	int square_position[2];                // player position in map squares
	double step_length;
	bool moved;

	if (direction == DIRECTION_NONE)
	  return;
	
	step_length = this->time_difference * 2;//0.026;

	if (step_length > 0.025)  // so that player can't make too long steps and go through walls etc.
	  step_length = 0.025;

	moved = false;

	square_position[0] = character->get_square_x();
	square_position[1] = character->get_square_y();

	character->set_direction(direction);
	
	if (!character->is_animating())
	  {
		character->stop_animation();
		character->loop_animation(ANIMATION_RUN);
	  }
	
	switch (direction)
	  {
	    case DIRECTION_NORTH:
		  if (this->character_can_move_to_square(character,direction)
			|| character->get_fraction_y() > CLIFF_DISTANCE_SOUTH)
		    {
			  character->move_by(0.0,-1 * step_length);
		      moved = true;
		    }
		  break;

	    case DIRECTION_EAST:
		  if (this->character_can_move_to_square(character,direction)
			|| character->get_fraction_x() < 1 - CLIFF_DISTANCE_EAST_WEST) 
		    {
			  character->move_by(step_length,0.0);
		      moved = true;
		    }
		  
		  break;

	    case DIRECTION_WEST:
		  if (this->character_can_move_to_square(character,direction)
			|| character->get_fraction_x() > CLIFF_DISTANCE_EAST_WEST) 
		    {
			  character->move_by(-1 *step_length,0.0);
		      moved = true;
		    }
		  break;

	    case DIRECTION_SOUTH:
		  if (this->character_can_move_to_square(character,direction)
	    	|| character->get_fraction_y() < 1 - CLIFF_DISTANCE_NORTH)
		    { 
			  character->move_by(0.0,step_length);
		      moved = true;
		    }
		  break;
	  }
	
	if (character->get_playing_animation() == ANIMATION_SKATE && (!moved || this->get_square_type(character->get_square_x(),character->get_square_y()) != SQUARE_ICE))
	  {
		character->stop_animation();
	  }

	// adjust the position (so the character keeps a little distance from cliffs):
	
	if (direction != DIRECTION_NORTH &&
	  this->get_terrain_height(square_position[0],square_position[1])         
	  != this->get_terrain_height(square_position[0],square_position[1] - 1)
	  && character->get_fraction_y() < CLIFF_DISTANCE_SOUTH)
	  character->move_by(0.0,0.02);
	
	if (direction != DIRECTION_EAST &&
	  this->get_terrain_height(square_position[0],square_position[1])         
	  != this->get_terrain_height(square_position[0] + 1,square_position[1])
	  && character->get_fraction_x() > 1 - CLIFF_DISTANCE_EAST_WEST)
	  character->move_by(-0.02,0.0);

	if (direction != DIRECTION_WEST &&
	  this->get_terrain_height(square_position[0],square_position[1])         
	  != this->get_terrain_height(square_position[0] - 1,square_position[1])
	  && character->get_fraction_x() < CLIFF_DISTANCE_EAST_WEST)
	  character->move_by(0.02,0.0); 
	
	// the movement's done here, now do other things

	this->check_buttons();

	if (this->get_square_type(square_position[0],square_position[1]) == SQUARE_COLLAPSE)
	  {
		if (character->get_square_x() != square_position[0] ||
		  character->get_square_y() != square_position[1])
		  if (!this->square_has_character(square_position[0],square_position[1]))
		    {
			  this->set_square_type(square_position[0],square_position[1],SQUARE_HOLE);
		      this->display_animation(DISPLAY_ANIMATION_COLLAPSE,square_position[0],square_position[1]);
		    }
	  }
  }

//-----------------------------------------------

void c_map::set_square_type(int x, int y, t_square_type type)
  {
	if (x < 0 || x >= this->width ||
	  y < 0 || y >= this->height)
	  return;

	this->squares[x][y].type = type;
  }

//-----------------------------------------------

void c_map::display_text(string text, double duration)
  {
	int i, j, position, greatest_width, lines;
	bool end;

	position = 0;     // position in the text

	greatest_width = 0;
	lines = 0;
	end = false;

	for (i = 0; i < MAX_TEXT_LINES; i++) // delete all lines
	  this->text_lines[i][0] = 0;

	for (j = 0; j < MAX_TEXT_LINES; j++) // split the string into lines
	  {
	    for (i = 0; i < MAX_TEXT_CHARACTERS_PER_LINE - 1; i++)
		  {
			if (position >= (int) (text.length()))
			  {
			    this->text_lines[j][i] = 0;
				end = true;
			    break;
			  }

			if (i >= MAX_TEXT_CHARACTERS_PER_LINE - 10 && text[position] == ' ')
			  {
				position++;
			    break;
			  }
			else
			  {
			    this->text_lines[j][i] = text[position];
			    position++;
			  }
		  }

		this->text_lines[j][i] = 0;  // terminate the string

		if (al_get_text_width(this->text_font,this->text_lines[j]) > greatest_width)
		  greatest_width = al_get_text_width(this->text_font,this->text_lines[j]);
	  
	    if (end)
		  {
			lines = j + 1;
			break;
		  }
	  }

	textbox_size[0] = greatest_width + 50;
	textbox_size[1] = lines * al_get_font_line_height(this->text_font) + 50;

    this->text_is_displayed = true;
	this->text_end_time = al_current_time() + duration;
  }

//-----------------------------------------------

void c_map::update_missiles()
  {
	int i, j;
	int help_position[2];
	bool died;
	double step_length;

	step_length = this->time_difference * 4;

	for (i = 0; i < this->number_of_missiles; i++)
	  {
		died = false;

		this->missiles[i].square_y = c_character::position_to_square(this->missiles[i].position_y,false);
		this->missiles[i].square_x = c_character::position_to_square(this->missiles[i].position_x,true);

		switch (this->missiles[i].direction)
		  {
		    case DIRECTION_NORTH:
			  missiles[i].position_y -= step_length;
			  break;

			case DIRECTION_EAST:
			  missiles[i].position_x += step_length;
			  break;

			case DIRECTION_SOUTH:
			  missiles[i].position_y += step_length;
			  break;

			case DIRECTION_WEST:
			  missiles[i].position_x -= step_length;
			  break;
		  }

		if (this->get_height(this->missiles[i].square_x,this->missiles[i].square_y) > this->missiles[i].height ||
		  this->get_terrain_height(this->missiles[i].square_x,this->missiles[i].square_y) > this->missiles[i].height)
		    died = true;
		else if (!this->square_is_stepable(this->missiles[i].square_x,this->missiles[i].square_y) &&
		  this->get_height(this->missiles[i].square_x,this->missiles[i].square_y) == this->missiles[i].height)
		  {
		    died = true;
		  }
		else if (!this->door_can_be_passed(this->missiles[i].square_x,this->missiles[i].square_y,this->missiles[i].direction)
		  && this->get_height(this->missiles[i].square_x,this->missiles[i].square_y) == this->missiles[i].height)
		  died = true;
  
		switch (this->missiles[i].type)    // check the missile effect
		  {
		    case MISSILE_MIA_1:
		  	  if (this->square_has_object(this->missiles[i].square_x,this->missiles[i].square_y,OBJECT_CRATE) &&
		        this->crate_can_be_shifted(this->missiles[i].square_x,this->missiles[i].square_y,this->missiles[i].height,this->missiles[i].direction))
			    {
				  this->shift_crate(this->missiles[i].square_x,this->missiles[i].square_y,this->missiles[i].direction);
			      died = true;
			    }

			  break;

            case MISSILE_MIA_2:
			  if (this->get_square_type(this->missiles[i].square_x,this->missiles[i].square_y) == SQUARE_HOLE &&
			    this->get_terrain_height(this->missiles[i].square_x,this->missiles[i].square_y) == this->missiles[i].height)
			    {
				  this->set_square_type(this->missiles[i].square_x,this->missiles[i].square_y,SQUARE_COLLAPSE);
			      died = true;
			    }

			  break;

			case MISSILE_METODEJ_1:
			  if (this->square_has_object(this->missiles[i].square_x,this->missiles[i].square_y,OBJECT_ICE) &&
				this->get_terrain_height(this->missiles[i].square_x,this->missiles[i].square_y) == this->missiles[i].height)
			    {
				  for (j = 0; j < MAX_OBJECTS_PER_SQUARE; j++)
					if (this->squares[this->missiles[i].square_x][this->missiles[i].square_y].map_objects[j]->get_type() == OBJECT_ICE)
					  {
					    this->remove_object(this->missiles[i].square_x,this->missiles[i].square_y,j);
						this->display_animation(DISPLAY_ANIMATION_MELT,this->missiles[i].square_x,this->missiles[i].square_y);


					  	break;
					  }

			      died = true;
			    }

			    break;

			case MISSILE_STAROVOUS_1:
			  for (j = 0; j < this->number_of_monsters; j++)
			    {
				  if (this->monster_characters[j] != NULL
					&& this->monster_characters[j]->get_monster_type() == MONSTER_GHOST
					&& this->monster_characters[j]->get_square_x() == this->missiles[i].square_x
					&& this->monster_characters[j]->get_square_y() == this->missiles[i].square_y
					&& this->get_height(this->missiles[i].square_x,this->missiles[i].square_y) == this->missiles[i].height)
				    {
				  	  this->monster_characters[j] = NULL;
					  this->display_animation(DISPLAY_ANIMATION_SHADOW_EXPLOSION,this->missiles[i].square_x,this->missiles[i].square_y);
				      died = true;
				    }
			    }

			  if (this->square_has_object(this->missiles[i].square_x,this->missiles[i].square_y,OBJECT_OREN) && // killing oren
			    this->get_height(this->missiles[i].square_x,this->missiles[i].square_y) == this->missiles[i].height)
				this->oren_destroyed = true;

			  break;

			case MISSILE_STAROVOUS_2:
			  for (j = 0; j < 3; j++)
				if (this->player_characters[j] != NULL &&
				  this->player_characters[j]->get_square_x() == this->missiles[i].square_x &&
				  this->player_characters[j]->get_square_y() == this->missiles[i].square_y &&
				  this->get_height(this->missiles[i].square_x,this->missiles[i].square_y) == this->missiles[i].height &&
				  (this->player_characters[j]->get_player_type() == PLAYER_MIA ||
				  this->player_characters[j]->get_player_type() == PLAYER_METODEJ))
				  {
					this->player_characters[j]->change_magic_energy(1);
					died = true;
					this->display_animation(DISPLAY_ANIMATION_REFRESH,this->missiles[i].square_x,this->missiles[i].square_y);
					break;
				  }

			  break;
		  }

		if (this->missiles[i].position_x < 0 ||
		  this->missiles[i].position_x > this->width ||
		  this->missiles[i].square_y < 0 ||
		  this->missiles[i].square_y > this->height)
		  died = true;

		if (died)    // remove the missile
		  {
			  if (this->missiles[i].type == MISSILE_METODEJ_1) // display explosion
			  {
				switch (this->missiles[i].direction) // find the square that the missile was before
				  {
				    case DIRECTION_NORTH:
					  help_position[0] = this->missiles[i].square_x;
					  help_position[1] = this->missiles[i].square_y + 1;
					  break;

					case DIRECTION_SOUTH:
					  help_position[0] = this->missiles[i].square_x;
					  help_position[1] = this->missiles[i].square_y - 1;
					  break;

					case DIRECTION_EAST:
					  help_position[0] = this->missiles[i].square_x - 1;
					  help_position[1] = this->missiles[i].square_y;
					  break;

					case DIRECTION_WEST:
					  help_position[0] = this->missiles[i].square_x + 1;
					  help_position[1] = this->missiles[i].square_y;
					  break;
				  }

				this->display_animation(DISPLAY_ANIMATION_EXPLOSION,help_position[0],help_position[1]);
			  }

			for (j = i + 1; j < this->number_of_missiles; j++)
			  this->missiles[j - 1] = this->missiles[j];

			this->number_of_missiles--;
		  }
	  }
  }

//-----------------------------------------------

void c_map::switch_player(int player_number)
  {
	ALLEGRO_SAMPLE_ID sample_id;

	if (this->player_characters[player_number] == NULL)
	  return;

	if (this->player_characters[this->current_player]->get_playing_animation() != ANIMATION_SKATE) // skating mustn't be stopped
	  this->player_characters[this->current_player]->stop_animation();
    
	this->current_player = player_number;
	this->update_screen_position();
	al_play_sample(this->change_player_sound,1.0,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,&sample_id);
  }

//-----------------------------------------------

void c_map::check_ice()
  {
	int i;
	
	for (i = 0; i < 3; i++)
	  if (this->player_characters[i] != NULL)
	    {
		  if (this->player_characters[i]->get_playing_animation() == ANIMATION_RUN && // first step on ice
		    this->get_square_type(this->player_characters[i]->get_square_x(),this->player_characters[i]->get_square_y()) == SQUARE_ICE)
		    { 
			  this->player_characters[i]->stop_animation();
			  this->player_characters[i]->loop_animation(ANIMATION_SKATE);
			  this->move_character(this->player_characters[i],this->player_characters[i]->get_direction());
		    }
		  else if (this->player_characters[i]->get_playing_animation() == ANIMATION_SKATE) // already skating
			{
			  this->move_character(this->player_characters[i],this->player_characters[i]->get_direction());
		      
			  if (!this->input_output_state->key_map_explore)  // don't mess with the camera if exploring
			    this->update_screen_position();
		    }
		}
  }

//-----------------------------------------------

t_game_state c_map::update()
  {  
	int i, offset;
	
	this->time_difference = al_current_time() - this->time_before;
	this->time_before = al_current_time();

	if (this->text_is_displayed && this->text_end_time <= al_current_time()) // erase the text displayed
	  {
		this->text_is_displayed = false;
	  }

	if (this->check_firecloak && al_current_time() >= this->fire_cloak_end_time)   // check fire cloak time and turn it off after it's duration's over
	  {
		for (i = 0; i < 3; i++)
		  if (this->player_characters[i] != NULL && this->player_characters[i]->get_player_type() == PLAYER_METODEJ)
			this->player_characters[i]->set_fire_cloak(false);

		this->check_firecloak = false;
	  }

	this->check_ice();
	this->update_missiles();
	this->update_monsters();

	this->draw(0,0);

	this->frame_count++;

	if (al_current_time() >= this->change_flame_state)
	  {
		this->flames_on = !this->flames_on;
		this->update_flames();
		change_flame_state = al_current_time() + 3; // next change in 3 seconds
	  }

	if (this->input_output_state->key_map_explore) // moving camera
	  {
		if (this->player_characters[this->current_player]->get_playing_animation() != ANIMATION_SKATE)
		  this->player_characters[this->current_player]->stop_animation();

		offset = (int) (this->time_difference * 1024);

		if (offset == 0)
		  offset = 1;

		if (this->input_output_state->key_left)
		  this->shift_screen(-1 * offset,0);
		else if (this->input_output_state->key_right)
		  this->shift_screen(offset,0);
		else if (this->input_output_state->key_up)
		  this->shift_screen(0,-1 * offset);
		else if (this->input_output_state->key_down)
		  this->shift_screen(0,offset);
	  }
	else if (this->player_characters[this->current_player]->get_playing_animation() != ANIMATION_SKATE) // moving player
	  {
		if (this->input_output_state->key_left)  
		  {
		    this->move_character(this->player_characters[this->current_player],DIRECTION_WEST);
		    this->update_screen_position();
		  }
		else if (this->input_output_state->key_right)
		  {
		    this->move_character(this->player_characters[this->current_player],DIRECTION_EAST);
		    this->update_screen_position();
		  }
		else if (this->input_output_state->key_down)
		  {
		    this->move_character(this->player_characters[this->current_player],DIRECTION_SOUTH);
		    this->update_screen_position();
		  }
		else if (this->input_output_state->key_up)
		  {
		    this->move_character(this->player_characters[this->current_player],DIRECTION_NORTH);
		    this->update_screen_position();
		  }
		else if (this->player_characters[this->current_player]->get_playing_animation() != ANIMATION_USE
		  && this->player_characters[this->current_player]->get_playing_animation() != ANIMATION_CAST)
		  {
			this->player_characters[this->current_player]->stop_animation();
		  }
	  }

	  if (this->input_output_state->key_1)     // switching players with keyboard
	    {
		  if (!this->pressed_1)
		    this->switch_player(0);

		  this->pressed_1 = true;
	    }
	  else
	    {
	  	  this->pressed_1 = false;
	    }
	  
	  if (this->input_output_state->key_2)
	    {
		  if (!this->pressed_2)
		    this->switch_player(1);

		  this->pressed_2 = true;
	    }
	  else
	    {
	  	  this->pressed_2 = false;
	    }
	  
	  if (this->input_output_state->key_3)
	    {
		  if (!this->pressed_3)
		    this->switch_player(2);  
		  
		  this->pressed_3 = true;
	    }
	  else
	    {
	  	  this->pressed_3 = false;
	    }

	if (this->input_output_state->key_use)
	  {
		this->use_key_press();
	  }
	  
	if (this->input_output_state->key_cast_1)
	  {
		this->cast_key_press(0);
	  }
	else if (this->input_output_state->key_cast_2)
	  {
		this->cast_key_press(1);
	  }
	else if (this->input_output_state->key_cast_3)
	  {
		this->cast_key_press(2);
	  }

	return this->check_game_state();
  }

//-----------------------------------------------

t_game_state c_map::check_game_state()
  {
	int i, j;
	bool won;
	int player_position[2];

	won = true; // assume victory

	if (this->input_output_state->key_back)
	  return GAME_STATE_PAUSE;

	if (this->oren_destroyed)
	  return GAME_STATE_WIN;

	for (i = 0; i < 3; i++)
	  if (this->player_characters[i] != NULL)
	    {
		  player_position[0] = this->player_characters[i]->get_square_x();
		  player_position[1] = this->player_characters[i]->get_square_y();

		  if (won && !this->square_has_object(this->player_characters[i]->get_square_x(),this->player_characters[i]->get_square_y(),OBJECT_GATE))
			won = false;

		  // check monsters:
		  for (j = 0; j < this->number_of_monsters; j++)
			if (this->monster_characters[j] != NULL &&
			  this->monster_characters[j]->get_square_x() == player_position[0] &&
			  this->monster_characters[j]->get_square_y() == player_position[1])
			  return GAME_STATE_LOSE;
		  
		  // check flames:
		  for (j = 0; j < MAX_OBJECTS_PER_SQUARE; j++)
			if ( this->squares[player_position[0]][player_position[1]].map_objects[j] != NULL &&
			  this->squares[player_position[0]][player_position[1]].map_objects[j]->get_type() == OBJECT_FLAMES &&
			  this->squares[player_position[0]][player_position[1]].map_objects[j]->get_state() == OBJECT_STATE_ON_ACTIVE &&
			  !this->player_characters[i]->fire_cloak_is_on())
			  return GAME_STATE_LOSE;
	    }

	return won ? GAME_STATE_WIN : GAME_STATE_PLAYING;
  }

//-----------------------------------------------

void c_map::fire_missile(int spell_number)
  {
	c_player_character *help_character;

	if (this->number_of_missiles >= MAX_MISSILES_ON_MAP)
	  return;

	help_character = this->player_characters[this->current_player];

	switch(help_character->get_player_type())
	  {
	    case PLAYER_MIA:
		  if (spell_number == 0)
		    {
			  this->missiles[this->number_of_missiles].type = MISSILE_MIA_1;
			  this->missiles[this->number_of_missiles].bitmap = this->spell_mia_1[0];
		    }
		  else
		    {
              this->missiles[this->number_of_missiles].type = MISSILE_MIA_2;
		      this->missiles[this->number_of_missiles].bitmap = this->spell_mia_2[0];
		    }

		  break;

		case PLAYER_METODEJ:
		  this->missiles[this->number_of_missiles].type = MISSILE_METODEJ_1;
		  this->missiles[this->number_of_missiles].bitmap = this->spell_metodej_1[0];
		  break;

	    case PLAYER_STAROVOUS:
		  if (spell_number == 0)
		    {
			  this->missiles[this->number_of_missiles].type = MISSILE_STAROVOUS_1;
		      this->missiles[this->number_of_missiles].bitmap = this->spell_starovous_1[0];
		    }
		  else
		    {
              this->missiles[this->number_of_missiles].type = MISSILE_STAROVOUS_2;
		      this->missiles[this->number_of_missiles].bitmap = this->spell_starovous_2[0];
		    }
		  break;
	  }

	this->missiles[this->number_of_missiles].direction = help_character->get_direction();
	this->missiles[this->number_of_missiles].position_x = help_character->get_position_x();
	this->missiles[this->number_of_missiles].position_y = help_character->get_position_y();
	this->missiles[this->number_of_missiles].square_y = help_character->get_square_y();
	this->missiles[this->number_of_missiles].square_x = help_character->get_square_x();
	this->missiles[this->number_of_missiles].height = this->get_height(help_character->get_square_x(),help_character->get_square_y());
  
	this->number_of_missiles++;
  }

//-----------------------------------------------

void c_map::cast_key_press(int spell_number)
  {
	ALLEGRO_SAMPLE_ID sample_id;
	int i, x, y;
	c_player_character *helping_player, *target_player;

	if (this->player_characters[this->current_player]->get_magic_energy() == 0)
	  return;                  // no magic energy

	if (this->player_characters[this->current_player]->get_playing_animation() == ANIMATION_SKATE) // can't cast while skating
	  return;

	if (this->player_characters[this->current_player]->get_playing_animation() == ANIMATION_CAST ||
	  this->player_characters[this->current_player]->get_playing_animation() == ANIMATION_USE)
	  return;

	if (spell_number == 0 || spell_number == 1)
	  {
	    this->player_characters[this->current_player]->change_magic_energy(-1);

	    switch(this->player_characters[this->current_player]->get_player_type()) // play the cast sound
	      {
	        case PLAYER_MIA:
		      al_play_sample(this->spell_sounds_mia[spell_number],0.5,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,&sample_id);			
		  	  this->fire_missile(spell_number);
			  break;

		    case PLAYER_METODEJ:
			  if (spell_number == 0)
			    {
			      al_play_sample(this->spell_sounds_metodej[spell_number],0.5,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,&sample_id);
		          this->fire_missile(spell_number);
			    }
			  else
			    { 
				  this->player_characters[this->current_player]->set_fire_cloak(false);
				  this->player_characters[this->current_player]->set_fire_cloak(true);
				  this->fire_cloak_end_time = al_current_time() + FIRE_CLOAK_DURATION;
				  this->check_firecloak = true;
			    }

			  break;

		    case PLAYER_STAROVOUS:
			  al_play_sample(this->spell_sounds_starovous[spell_number],0.5,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,&sample_id);
		      this->fire_missile(spell_number);
			  break;
	      }
	  }
	else if (spell_number == 2) // teleport spell
	  {
		helping_player = NULL;  // player that helps summon the other player
		target_player = NULL;   // player being summoned

		x = this->player_characters[this->current_player]->get_square_x();
		y = this->player_characters[this->current_player]->get_square_y();

		for (i = 0; i < 3; i++)
		  if (i != this->current_player && this->player_characters[i] != NULL)
		    {
			  if (this->player_characters[i]->get_square_x() == x && this->player_characters[i]->get_square_y() == y)
				helping_player = this->player_characters[i];
			  else
				target_player = this->player_characters[i];
		    }

		  if (helping_player != NULL && target_player != NULL)
		    {
			  helping_player->change_magic_energy(-1);
			  helping_player->play_animation(ANIMATION_CAST);
			  this->player_characters[this->current_player]->change_magic_energy(-1);
			  target_player->set_position(x + 0.1,y - 0.8);
			  this->display_animation(DISPLAY_ANIMATION_TELEPORT,x,y);
		    }
	  }

	this->player_characters[this->current_player]->play_animation(ANIMATION_CAST);
  }

//-----------------------------------------------

void c_map::update_flames()
  {
	int i, j, k;

	for (j = 0; j < this->height; j++)
      for (i = 0; i < this->width; i++)
		for (k = 0; k < MAX_OBJECTS_PER_SQUARE; k++)
		  if (this->squares[i][j].map_objects[k] == NULL)
		    {
			  break;
		    }
		  else
		    { 
			  if (this->squares[i][j].map_objects[k]->get_type() == OBJECT_FLAMES)
			    {
				  if (this->squares[i][j].map_objects[k]->get_state() == OBJECT_STATE_ON ||
				    this->squares[i][j].map_objects[k]->get_state() == OBJECT_STATE_ON_ACTIVE)
			        {
				      if (this->flames_on)
				        {
				          this->squares[i][j].map_objects[k]->set_state(OBJECT_STATE_ON_ACTIVE);
					      this->squares[i][j].map_objects[k]->loop_animation(ANIMATION_IDLE);
				        }
				      else
				        {
					      this->squares[i][j].map_objects[k]->set_state(OBJECT_STATE_ON);
					      this->squares[i][j].map_objects[k]->stop_animation();
				        }
				    }
				  else
				    {
					  this->squares[i][j].map_objects[k]->stop_animation();
				    }
			    }
		    }
  }

//-----------------------------------------------

void c_map::use_key_press()
{ 
	int i;
	int facing_square[2];  // coordinations of the square the player is facing
	int coordinations[2];
	c_map_object *help_object;

	coordinations[0] = this->player_characters[this->current_player]->get_square_x();
    coordinations[1] = this->player_characters[this->current_player]->get_square_y();

	this->next_square(coordinations[0],coordinations[1],
	  this->player_characters[this->current_player]->get_direction(),
	  &facing_square[0],&facing_square[1]);

	if (this->square_has_object(coordinations[0],coordinations[1],OBJECT_TELEPORT_INPUT)) // check teleport
	  this->check_teleport();

	if (facing_square[0] >= 0 && facing_square[0] < this->width &&
      facing_square[1] >= 0 && facing_square[1] < this->height)
	    for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
	      {
		    help_object = this->squares[facing_square[0]][facing_square[1]].map_objects[i];

	        if (help_object != NULL)
	          {
		         if (help_object->get_type() == OBJECT_CRATE)
		           {
				     if (this->crate_can_be_shifted(facing_square[0],facing_square[1],this->get_height(coordinations[0],coordinations[1]),this->player_characters[this->current_player]->get_direction()))
			           {  
				         this->shift_crate(facing_square[0],facing_square[1],this->player_characters[this->current_player]->get_direction());
		                 this->player_characters[this->current_player]->play_animation(ANIMATION_CAST);
			           }
		           }
		         
				 if (this->get_height(facing_square[0],facing_square[1]) != this->get_height(coordinations[0],coordinations[1]))  // so that player can't use objects at different height levels
	               continue;
				 
				 if (help_object->get_type() == OBJECT_LEVER && !help_object->is_animating())
		           {
			         this->player_characters[this->current_player]->play_animation(ANIMATION_USE);

			     	 if (this->object_can_be_used(help_object))
			           help_object->use();
		           }
			     else if (help_object->get_type() == OBJECT_FOUNTAIN)
			       {
			     	 this->player_characters[this->current_player]->change_magic_energy(1);
			     	 this->display_animation(DISPLAY_ANIMATION_REFRESH,coordinations[0],coordinations[1]);
			       }
			     else if (help_object->get_type() == OBJECT_SIGN)
			       {
			     	 this->display_text(help_object->get_sign_text(),10);
			       }
			     else if (help_object->get_type() == OBJECT_KEY_RED || help_object->get_type() == OBJECT_KEY_GREEN || help_object->get_type() == OBJECT_KEY_BLUE)
			       {
			     	 this->remove_object(facing_square[0],facing_square[1],i);
					 this->display_animation(DISPLAY_ANIMATION_REFRESH,facing_square[0],facing_square[1]);
			       }
	           }
		     else
	           break;
	       }
  }

//-----------------------------------------------

void c_map::check_teleport()
  {
	int i, j, x, y;
	int position[2];
	c_map_object *help_object;

	position[0] = this->player_characters[this->current_player]->get_square_x();
	position[1] = this->player_characters[this->current_player]->get_square_y();

	for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
	  if (this->squares[position[0]][position[1]].map_objects[i] == NULL)
		break;
	  else if (this->squares[position[0]][position[1]].map_objects[i]->get_type() == OBJECT_TELEPORT_INPUT)
	    {
		  help_object = this->squares[position[0]][position[1]].map_objects[i]->get_controlled_object(0);

		  if (help_object == NULL)
			break;

		  for (y = 0; y < this->height; y++)  // find the output teleport
		    for (x = 0; x < this->width; x++)
			  for (j = 0; j < MAX_OBJECTS_PER_SQUARE; j++)
			    if (this->squares[x][y].map_objects[j] == NULL)
				  break;
				else if (this->squares[x][y].map_objects[j] == help_object && !this->square_has_object(x,y,OBJECT_CRATE))
				  {
					this->player_characters[this->current_player]->set_position(x + 0.1,y - 0.5);
					this->display_animation(DISPLAY_ANIMATION_TELEPORT,x,y);
					this->display_animation(DISPLAY_ANIMATION_TELEPORT,position[0],position[1]);
					this->update_screen_position();
				    break;
				  }

		  break;
	    }
  }
//-----------------------------------------------

 bool c_map::door_can_be_passed(int x, int y, t_direction direction)
   {
	  int i;

	  if (x < 0 || x >= this->width || y < 0 || y > this->height)
		return true;

	  for (i = 0; i < MAX_OBJECTS_PER_SQUARE; i++)
		if (this->squares[x][y].map_objects[i] == NULL)
		  return true;
		else if (this->squares[x][y].map_objects[i]->get_type() == OBJECT_DOOR_HORIZONTAL)
		  {
			return (this->squares[x][y].map_objects[i]->get_state() != OBJECT_STATE_OFF &&
			  direction != DIRECTION_EAST && direction != DIRECTION_WEST);
		  }
	    else if (this->squares[x][y].map_objects[i]->get_type() == OBJECT_DOOR_VERTICAL)
		  {
			return (this->squares[x][y].map_objects[i]->get_state() != OBJECT_STATE_OFF &&
			  direction != DIRECTION_NORTH && direction != DIRECTION_SOUTH);
		  }

	  return true;
   }

//-----------------------------------------------

string c_map::get_music_name()
  {
	return this->music_name;
  }

//-----------------------------------------------
--- FILE ./map.h ---
﻿#ifndef MAP_H
#define MAP_H

/**
 * Map class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"
#include "graphic_object.h"
#include "player_character.h"
#include "monster_character.h"
#include "map_object.h"
#include "character.h"
#include "animation.h"
#include "associative_array.h"

typedef enum
  {
	SQUARE_NORMAL,
	SQUARE_WATER,
	SQUARE_ICE,
	SQUARE_COLLAPSE,
	SQUARE_HOLE
  } t_square_type;

typedef struct
  {
	/**
      Holds info about one map square.
    */

	int height;                                         /** square height, min is 0, max is 2 */
	t_square_type type;                                 /** square type, like normal, water, ice and so on. */
	c_map_object *map_objects[MAX_OBJECTS_PER_SQUARE];  /** objects on this square (NULL means no object) */
    c_animation *animation;                             /** animation being played on this square */
  } t_map_square;

typedef struct
  {
	/**
	  Represents a magical missile.
	*/

	t_missile_type type;                                /** missile type */
	t_direction direction;                              /** direction in which the missile is going */
	double position_x;                                  /** current x position */
	double position_y;                                  /** current y position */
	int square_y;                                       /** y square position */
	int square_x;                                       /** x square position */
	int height;                                         /** height level */
	ALLEGRO_BITMAP *bitmap;                             /** pointer to missile's bitmap */
  } t_missile;

class c_map: public c_graphic_object
  {
	/**
	  This class represents a game map. It is
	  able to draw it and manage playing it with
	  help of the game class.
	*/

    protected:
	  int width;                                                       /** map width in squares */
	  int height;                                                      /** map height in squares */
	  int *button_positions_x;                                         /** an array containing x coordinations of all button objects on the map for faster browsing */
	  int *button_positions_y;                                         /** an array containing y coordinations of all buttons */
	  int number_of_buttons;                                           /** number of buttons on the map */
	  int current_player;                                              /** current player number */
	  int screen_center_x;                                             /** center point of the screen (x) */
	  int screen_center_y;                                             /** center point of the screen (y) */
	  t_environment environment;                                       /** map environment */
	  t_map_square squares[MAP_MAX_WIDTH][MAP_MAX_HEIGHT];             /** map squares */
	  c_player_character *player_characters[3];                        /** player characters, NULL means no character */            
	  c_monster_character *monster_characters[MAX_MONSTERS_ON_MAP];    /** monster characters, NULL means no character */
	  int number_of_monsters;                                          /** number of monsters on the map */
	  t_input_output_state *input_output_state;                        /** pointer to information about keyboard and mouse */
	  double time_before;                                              /** to compute time difference between frames (for movement etc.) */
	  double time_difference;                                          /** stores time between two frames to calculate step length etc. */
	  int portrait_x_positions[3];                                     /** a helper array containing portrait x positions so they don't have to be counted each frame */
	  int portrait_y_position;                                         /** y position of portraits in pixels */
	  bool pressed_1;                                                  /** to handle events only once per keypressed, not each frame */
	  bool pressed_2;
	  bool pressed_3;
	  bool mouse_pressed;
	  bool check_firecloak;                                            /** says if fire cloak spell time should be being checked */
	  double fire_cloak_end_time;                                      /** stores the end time for the fire cloak spell */
	  int language;                                                    /** number of language, it must be know in order to set right sign texts etc. */
	  int textbox_size[2];                                             /** width and height of the textbox for displayed message */
	  string description;                                              /** map text description displayed during the intro */
	  bool oren_destroyed;                                             /** keeps information about whether the oren was destroyed */
	  double change_flame_state;                                       /** time when to change flames states (from active to non active and vice versa) */
	  string music_name;                                               /** name of the music that should be playing in the map */

	  char text_lines[MAX_TEXT_LINES][MAX_TEXT_CHARACTERS_PER_LINE];   /** lines of text being displayed on screen */
	  bool text_is_displayed;                                          /** whether the text is to be displayed */
	  double text_end_time;                                            /** time when the text will stop being displayed */

	  bool flames_on;                                                  /** turns on or off bursting flames of flame objects switched on */
	  int frame_count;                                                 /** counts frames */

	  t_missile missiles[MAX_MISSILES_ON_MAP];                         /** array of missiles that are currently at the map */
	  int number_of_missiles;                                          /** length of the missiles array */

	  int screen_square_resolution[2];                                 /** depending on screen resolution, this will contain screen resolution in game squares */
	  int screen_square_position[2];                                   /** position of the upper left screen corner aat the game map */
	  int screen_pixel_position[2];                                    /** screen square position converted to pixels */
	  int screen_square_end[2];                                        /** position of the lower right corner of the screen in game squares */

	  c_animation *animation_water_splash;                             /** animation for water splash */
	  c_animation *animation_refresh;                                  /** animation for refresh */
	  c_animation *animation_crate_shift_north;                        /** animation of crate shifting north (other directions are done animating the crate itself) */
	  c_animation *animation_collapse;                                 /** animation for collapsing square */
	  c_animation *animation_melt;                                     /** animation of melting ice */
	  c_animation *animation_teleport;                                 /** teleport animation */
	  c_animation *animation_explosion;                                /** explosion animation */
	  c_animation *animation_shadow_explosion;                         /** shadow explosion animation */

	  ALLEGRO_BITMAP *portrait_selection;                              /** bitmap - GUI selection behind the portrait */ 
	  ALLEGRO_BITMAP *portrait_mia;                                    /** bitmap - GUI portrait of Mia */
	  ALLEGRO_BITMAP *portrait_metodej;                                /** bitmap - GUI portrait of Metodej */
	  ALLEGRO_BITMAP *portrait_starovous;                              /** bitmap - GUI portrait of Starovous */
	  ALLEGRO_BITMAP *tile;                                            /** bitmap - normal tile */
	  ALLEGRO_BITMAP *tile_cliff_south_1;                              /** bitmap - south cliff, height 1 */
	  ALLEGRO_BITMAP *tile_cliff_south_2;                              /** bitmap - south cliff, height 2 */
	  ALLEGRO_BITMAP *tile_cliff_southwest_1;                          /** bitmap - southwest cliff, height 1 */
	  ALLEGRO_BITMAP *tile_cliff_southwest_2;                          /** bitmap - southwest cliff, height 2 */
	  ALLEGRO_BITMAP *tile_cliff_southeast_1;                          /** bitmap - southeast cliff, height 1 */
	  ALLEGRO_BITMAP *tile_cliff_southeast_2;                          /** bitmap - southeast cliff, height 2 */
	  ALLEGRO_BITMAP *tile_cliff_west;                                 /** bitmap - west cliff (any height) */
	  ALLEGRO_BITMAP *tile_cliff_east;                                 /** bitmap - east cliff (any height) */
	  ALLEGRO_BITMAP *tile_cliff_north;                                /** bitmap - north cliff (any height) */
	  ALLEGRO_BITMAP *tile_cliff_northwest;                            /** bitmap - northwest cliff (any height) */
	  ALLEGRO_BITMAP *tile_cliff_northeast;                            /** bitmap - northeast cliff (any height) */
	  ALLEGRO_BITMAP *tile_edge;                                       /** bitmap - used as south border with other surface */
	  ALLEGRO_BITMAP *tile_water[5];                                   /** bitmap - water, 5 animation frames */
	  ALLEGRO_BITMAP *tile_ice;                                        /** bitmap - ice */
	  ALLEGRO_BITMAP *tile_collapse;                                   /** bitmap - collapse square */
	  ALLEGRO_BITMAP *tile_hole;                                       /** bitmap - hole square */
	  ALLEGRO_BITMAP *bitmap_crate_water;                              /** bitmap - crate in water */
	  ALLEGRO_BITMAP *spell_mia_1[3];                                  /** bitmap - Mia's first spell missile */
	  ALLEGRO_BITMAP *spell_mia_2[3];                                  /** bitmap - Mia's second spell missile */
	  ALLEGRO_BITMAP *spell_metodej_1[3];                              /** bitmap - Metodej's first spell missile */
	  ALLEGRO_BITMAP *spell_starovous_1[3];                            /** bitmap - Starovous' first spell missile */
	  ALLEGRO_BITMAP *spell_starovous_2[3];                            /** bitmap - Starovous' second spell missile */
	  ALLEGRO_BITMAP *spell_icons[7];                                  /** bitmaps - spell icons */

	  ALLEGRO_BITMAP *map_shadow_north;                                /** bitmap - map transition to dark background on north edge */
	  ALLEGRO_BITMAP *map_shadow_south;                                /** bitmap - map transition to dark background on south edge */
	  ALLEGRO_BITMAP *map_shadow_east;                                 /** bitmap - map transition to dark background on east edge */
	  ALLEGRO_BITMAP *map_shadow_west;                                 /** bitmap - map transition to dark background on west edge */

	  ALLEGRO_SAMPLE *spell_sounds_mia[2];                             /** Mia's cast sounds */
	  ALLEGRO_SAMPLE *spell_sounds_metodej[2];                         /** Metodej's cast sounds */
	  ALLEGRO_SAMPLE *spell_sounds_starovous[2];                       /** Starovous' cast sounds */
	  ALLEGRO_SAMPLE *change_player_sound;                             /** sound played when player is changed */

	  ALLEGRO_FONT *text_font;                                         /** font for displaying texts */

	  void static next_square(int x, int y, t_direction direction, int *next_x, int *next_y);

	    /**
		  Computes the next square coordination
		  depending on a position and direction.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @param direction direction of the next
		    square
		  @param next_x in this variable will be
		    the x coordination of the next square
			returned
		  @param next_y in this variable will be
		    the y coordination of the next square
			returned
		*/

	  static string get_nth_substring(string from_what, int n);

	    /**
		  Returns nth substring from string in
		  format "part1|part2|..." If for example
		  n equals 0, then "part1" is returned.

		  @param from_what string to be parsed
		  @param n number of substring to return
		  @return nth substring of from_what
		    string, without the '|' separators
		*/

	  void move_character(c_character *character, t_direction direction);

	    /**
	      Updates character's movement in given
		  direction and handles colisions and
		  interaction with map objects.

		  @param character character to be moved
		  @param direction direction in which
		    the player is moving
		*/

	  void add_map_object(c_map_object *map_object, int x, int y);

	    /**
	      Places an object on the map square.
		  The map must be loaded.

		  @param map_object map object to be
		    put onto map
		  @param x x coordination of the square
		  @param y y coordination of the square
		*/

	  void use_key_press();

	    /**
		  Handles use key press.
		*/

	  void cast_key_press(int spell_number);

	    /**
	      Handles cast keys press.

		  @param spell_number number of spell
		    cast (0, 1 or 2)
		*/

	  bool load_from_file(string filename);

	    /**
	      Loads the map from given file. Also
		  loads all other things from files
		  like fonts, sounds etc.

		  @param filename path to the file
		  @return true if the map was loaded
		    succesfully, otherwise false
		*/

	  bool character_can_move_to_square(c_character *character, t_direction direction);

	    /**
		  Checks if given character can move to
		  the next square in given direction.

		  @param character character to be
		    checked
		  @param direction direction of the next
		    square relative to character's
			current square
		  @return true if the character can
		    move to the next square in that
			direction, otherwise false
		*/

	  bool square_has_object(int x, int y, t_object_type object_type);

	    /**
	      Checks if there is object of given
		  type at given square.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @param object_type type of object to
		    check
          @return true if there is object of
		    given type on given square,
			otherwise false
		*/

	  bool square_is_stepable(int x, int y);

	    /**
	      Checks whether given position can
		  be moved to by a character.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @return true if the square at given
		    position is stepable, otherwise
			false, for coordinations outside
			the map false is returned
		*/

	  int get_elevation_for_character(c_character *character);

	    /**
	      Gets elevation in pixels for given
		  character depending on their position
		  on the map, objects they're standing on
		  etc.

		  @param character character to be
		    checked
		  @return height offset in pixels
		*/

	  bool set_environment(t_environment new_environment);

	    /**
		  Sets the map environment, which affects
		  it's tileset (it's look). This should
		  only be called once for the object
		  because the method doesn't free any
		  previously allocated memory.

		  @param new_environment new environment to
		    be set
		  @return true, if the environment was
		    succesfully set, otherwise false
		*/

	  int get_height(int x, int y);
	    
	    /**
		  Returns map height at given position. If
		  the position is outside the map, 0 is
		  returned. The height is calculated as
		  terrain height + height of objects
		  (crates, elevators etc.).

		  @param x x position
		  @param y y position
		  @return map height at given position
		    including object heights
		*/

	  int get_terrain_height(int x, int y);

	  	/**
		  Returns map height at given position. If
		  the position is outside the map, 0 is
		  returned. Only the height of the terrain
		  is returned.

		  @param x x position
		  @param y y position
		  @return map height at given position
		*/

	  void shift_crate(int x, int y, t_direction direction);

		/**
		  Shift a crate at given square in given
		  direction. It must be checked that it is
		  possible to shift the crate.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @param direction direction in which to
		    shift the crate
		*/

	  bool crate_can_be_shifted(int x, int y, int height, t_direction direction);

	    /**
		  Checks if a crate at given square can
		  be shifted in given direction. It is
		  assumed that the square given really
		  holds a crate object.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @param height height from which the
		    crate is being pushed
		  @param direction direction in which
		    the crate is to be shifted
		  @return true if the crate can be
		    shifted, otherwise false
		*/

	  t_square_type get_square_type(int x, int y);
	    
	    /**
		  Returns type of square at given position
		  of the map. If the position is outside
		  the map, SQUARE_NORMAL is returned.

		  @param x x position
		  @param y y position
		  @return square type at given position
		*/

	  void set_square_type(int x, int y, t_square_type type);
	    
	    /**
		  Sets the square type. If the
		  coordinations are outside the map,
		  nothing happens.

		  @param x x position
		  @param y y position
		  @param type square typ to be set
		*/

	  void update_map_object_states();
	    
	    /**
		  Updates object states depending on
		  links between them.
		*/

	  void remove_object(int x, int y, int index);

	    /**
		  Removes nth object from given square
		  and shifts all remaining to the left
		  so the object array stays consistent.
		  The object's memory is not freed.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @param n index of the object to be
		    removed
		*/

	  void link_objects();

	    /**
		  Establishes pointer connections between
		  map objects depending on their link
		  ids.
		*/

	  void check_buttons();

	    /**
		  Tests all the button objects on the
		  map and performs appropriate actions.
		*/

	  void draw_borders(int x, int y, int plus_x, int plus_y);

	    /**
		  Draws borders for given square
		  depending on neighbour squares (for
		  example if there is water-grass,
		  there must be a border drawn between
		  them). This can't be used for cliffs.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @param plus_x x offset in pixels
		  @param plus_y y offset in pixels
		*/

	  bool must_have_border(t_square_type type1, t_square_type type2);

	    /**
		  Checks if two given square types
		  must have border drawn between them.
		  
		  @param type1 type of the first square
		  @param type2 type of the seconf square
		  @return true if the border should be
		    drawn, otherwise false
		*/

	  bool square_has_character(int x, int y);

	    /**
		  Checks if there is a character on
		  given square.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @return true if there is at least
		    one character on the square,
			otherwise false
		*/

	  void display_animation(t_display_animation animation, int x, int y);

	    /**
	      Displays animation on the map square.

		  @param animation the animation to be
		    displayed
		  @param x x coordination of the square
		  @param y y coordination of the square
		*/

	  void update_screen_position();

	    /**
		  Updates the screen position depending
		  on current player's position on
		  the map and the screen resolution.
		*/

	  void fire_missile(int spell_number);

	    /**
		  Creates a spell missile depending on
		  player type selected and given
		  spell number.

		  @param spell_number number of spell
		    cast (0 or 1)
		*/

	  void update_missiles();
	   
	    /**
		  This should be called every update
		  frame to update missile movement and
		  events associated with them.
		*/

	  void switch_player(int player_number);

	    /**
		  Sqitches active player.

		  @param player_number number of
		    player to be made active, if the
			player is not available on the map,
			nothing happens
		*/

	  void update_flames();

		/**
		  Switches all flames that are set on to
		  opposite state (i.e. bursting flames or
		  not). Flames set to off are not affected
		  by this.
		*/

	  bool object_can_be_used(c_map_object *what);

	    /**
	      Checks if given object can be used
		  (i.e. nothing prevents using it, like
		  player standing in a door etc.)

		  @param what object to be tested
		  @return true if the object can be used,
		    false otherwise
		*/

	  void get_object_position(c_map_object *what, int *x, int *y);

	    /**
		  Returns object's position on the
		  map.

		  @param what object of which the
		    position will be found out
		  @param x in this variable the
		    x coordination will be returned
		  @param y in this variable the
		    y coordination will be returned
		*/

	  void display_text(string text, double duration);

	    /**
		  Displays given text on the screen
		  for given time.

		  @param text text to be displayed
		  @param duration duration in seconds
		*/

	  void check_teleport();

	    /**
		  Checks if the current player is
		  standing on a teleport and if so,
		  teleports him in matching output
		  teleport.
		*/

	  bool door_can_be_passed(int x, int y, t_direction direction);

	    /**
	      Checks if a door at given position
		  can be passed in given direction.
		  If there is no door at the square,
		  true is returned.

		  @param x x coordination of the square
		  @param y y coordination of the square
		  @param direction direction to be
		    tested
		  @return true if the door at given
		    square can be passed in given
			direction
		*/

	  void update_monsters();

	    /**
		  Updates all monsters on the map (their
		  positions etc.)
		*/

	  void shift_screen(int x, int y);

	    /**
		  Shifts the screen by given values.
		  Checks borders and doesn't allow the
		  screen to be shifted too far.

		  @param x possibly negative x
		    offset in pixels
		  @param y possibly negative y
		    offset in pixels
		*/

	  void check_ice();

	    /**
		  Checks all player characters if they
		  are on ice and moving and keeps them
		  in movement.
		*/

	  void set_map_objects(string object_string);

	    /**
		  Accoording to given special object
		  string sets the objects specified by
		  it at the map.

		  @param object_string string describing
		    objects to be put on the map, for
			the string format see the
			documentation
		*/

	  void set_monsters(string monster_string);

	    /**
		  Accoording to given special monster
		  string sets the monsters specified by
		  it at the map.

		  @param monster_string string describing
		    monsters to be put on the map, for
			the string format see the
			documentation		  
		*/

	  void record_buttons();

	    /**
		  Records all buttons on the map into
		  special data structure so that the
		  checking of them will be faster. This
		  must be called in order for buttons
		  to work.
		*/

	  t_game_state check_game_state();

	    /**
		  Checks the game state. That means
		  if nothing happens or if the
		  player lost because he's
		  encountered a monster etc.

		  @return current game state
		*/

    public:

      c_map(string filename, t_input_output_state *input_output_state, long int *global_time, int language);

	    /** 
	      Class constructor, loads new map from
		  given file.

		  @param filename path to the map file
		  @param input_output_state pointer to
		    structure, which will be used to pass
			information about keyboard and mouse
			to this object.
		  @param global_time reference to a
		    global time counter variable which is
			needed for animations
		  @param language language number, 0 =
		    english, 1 = czech
	    */

	  ~c_map();
	    
	    /**
		  Class destructor, frees all it's memory.
		*/

	  t_game_state update();

	    /**
		  Updates the map, which means it handles
		  it's another frame, including drawing
		  it and handling events.

		  @return current game state (i.e
		    playing, lost, ...)
		*/

	  virtual void draw(int x, int y);

	    /**
		  Draws the map at given position on the
		  screen.

		  @param x x position of the screen
		  @param y y position of the screen
		*/

	  string get_description();

	    /**
		  Returns the map text description.

		  @return the text description
		*/

	  string get_music_name();

	    /**
		  Gets the name of the music that should
		  be playing in the map.

		  @return music name
		*/
  };

#endif
--- FILE ./map_object.cpp ---
﻿/**
 * Map object class implementation file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "map_object.h"

//-----------------------------------------------

c_map_object::c_map_object(t_object_type object_type, int link_id,  int link_id2, long int *global_time)
  {
	int i, number_of_bitmaps;

	this->number_of_controlled = 0;
	this->link_id = link_id;
	this->link_id2 = link_id2;
	this->playing_sound = false;
	this->sound = NULL;
	this->global_time = global_time;
	this->input = false;
	this->type = object_type;
	this->object_state = OBJECT_STATE_OFF;
	this->stepable = false;
	this->animation_frame = 0;
	this->playing_animation = ANIMATION_NONE;
	this->sound = NULL;
	this->sound_gain = 1.0;
	this->sign_text = "";

	this->update_animation_period();
	 
	for (i = 0; i < 5; i++)
      this->bitmaps[i] = NULL;

	number_of_bitmaps = 1;

	switch (this->type)
	  {
	    case OBJECT_OREN:
		  this->bitmaps[0] = al_load_bitmap("resources/object_oren.png");
		  break; 

	    case OBJECT_KEY_RED:
          this->bitmaps[0] = al_load_bitmap("resources/object_key_red.png");
		  break;

		case OBJECT_KEY_GREEN:
          this->bitmaps[0] = al_load_bitmap("resources/object_key_green.png");
		  break;

		case OBJECT_KEY_BLUE:
          this->bitmaps[0] = al_load_bitmap("resources/object_key_blue.png");
		  break;

	    case OBJECT_FLOWERS:
		  this->bitmaps[0] = al_load_bitmap("resources/object_flowers.png");
		  this->stepable = true;
		  break;

		case OBJECT_FLOWERS2:
		  this->bitmaps[0] = al_load_bitmap("resources/object_flowers2.png");
		  this->stepable = true;
		  break;

	    case OBJECT_BONES:
		  this->bitmaps[0] = al_load_bitmap("resources/object_bones.png");
		  this->stepable = true;
		  break;

	    case OBJECT_CARPET:
		  this->bitmaps[0] = al_load_bitmap("resources/object_carpet.png");
		  this->stepable = true;
		  break;
		  
	    case OBJECT_CARPET2:
		  this->bitmaps[0] = al_load_bitmap("resources/object_carpet2.png");
		  this->stepable = true;
		  break;

		case OBJECT_WATER_LILY:
		  this->bitmaps[0] = al_load_bitmap("resources/object_water_lily.png");
		  this->stepable = true;
		  break;

	    case OBJECT_LEVER:
          this->bitmaps[0] = al_load_bitmap("resources/object_lever_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_lever_2.png");
          this->bitmaps[2] = al_load_bitmap("resources/object_lever_3.png");
		  this->bitmaps[3] = al_load_bitmap("resources/object_lever_4.png");
		  this->bitmaps[4] = al_load_bitmap("resources/object_lever_5.png");
		  this->sound = al_load_sample("resources/switch.wav");
		  this->sound_gain = 0.5;
		  number_of_bitmaps = 5;
		  this->input = true;
		  break;

		case OBJECT_TELEPORT_INPUT:
		  this->bitmaps[0] = al_load_bitmap("resources/object_teleport_input.png");
		  this->input = true;
		  this->stepable = true;
		  break;

		case OBJECT_TELEPORT_OUTPUT:
		  this->bitmaps[0] = al_load_bitmap("resources/object_teleport_output.png");
		  this->stepable = true;
		  break;

		case OBJECT_GATE:
		  this->bitmaps[0] = al_load_bitmap("resources/object_gate_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_gate_2.png");
          this->bitmaps[2] = al_load_bitmap("resources/object_gate_3.png");
		  number_of_bitmaps = 3;
		  this->stepable = true;
		  this->loop_animation(ANIMATION_IDLE);
		  break;

		case OBJECT_SIGN:
		  this->bitmaps[0] = al_load_bitmap("resources/object_sign.png");
		  break;

		case OBJECT_ELEVATOR:
          this->bitmaps[0] = al_load_bitmap("resources/object_elevator_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_elevator_2.png");
          this->bitmaps[2] = al_load_bitmap("resources/object_elevator_3.png");
		  this->bitmaps[3] = al_load_bitmap("resources/object_elevator_4.png");
		  this->stepable = true;
		  number_of_bitmaps = 4;
		  break;

		case OBJECT_FLAMES:
          this->bitmaps[0] = al_load_bitmap("resources/object_flames_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_flames_2.png");
          this->bitmaps[2] = al_load_bitmap("resources/object_flames_3.png");
		  this->bitmaps[3] = al_load_bitmap("resources/object_flames_4.png");
		  this->sound = al_load_sample("resources/metodej_cast2.wav");
		  this->sound_gain = 0.1;
		  this->stepable = true;
		  number_of_bitmaps = 4;
		  break;

		case OBJECT_ICE:
		  this->bitmaps[0] = al_load_bitmap("resources/object_ice.png");
		  break;

	    case OBJECT_CRATE:
		  this->bitmaps[0] = al_load_bitmap("resources/object_crate.png");
		  this->sound = al_load_sample("resources/crate_shift.wav");
		  this->sound_gain = 0.2;
		  this->stepable = true;
		  break;

		case OBJECT_TREE:
		  this->bitmaps[0] = al_load_bitmap("resources/object_tree.png");
		  break;

		case OBJECT_STATUE:
		  this->bitmaps[0] = al_load_bitmap("resources/object_statue.png");
		  break;

		case OBJECT_STAIRS_NORTH:
		  this->stepable = true;
		  this->bitmaps[0] = al_load_bitmap("resources/object_stairs_north.png");
		  break;

		case OBJECT_STAIRS_EAST:
		  this->stepable = true;
		  this->bitmaps[0] = al_load_bitmap("resources/object_stairs_east.png");
		  break;

		case OBJECT_STAIRS_SOUTH:
		  this->stepable = true;
		  this->bitmaps[0] = al_load_bitmap("resources/object_stairs_south.png");
		  break;

		case OBJECT_STAIRS_WEST:
		  this->stepable = true;
		  this->bitmaps[0] = al_load_bitmap("resources/object_stairs_west.png");
		  break; 

        case OBJECT_DOOR_HORIZONTAL:
		  this->stepable = true;
		  this->bitmaps[0] = al_load_bitmap("resources/object_door_horizontal_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_door_horizontal_2.png");
		  this->bitmaps[2] = al_load_bitmap("resources/object_door_horizontal_3.png");
		  this->bitmaps[3] = al_load_bitmap("resources/object_door_horizontal_4.png");
		  this->sound = al_load_sample("resources/door.wav");
		  this->sound_gain = 0.5;
		  number_of_bitmaps = 4;
		  break; 

		case OBJECT_DOOR_VERTICAL:
		  this->stepable = true;
		  this->bitmaps[0] = al_load_bitmap("resources/object_door_vertical_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_door_vertical_2.png");
		  this->bitmaps[2] = al_load_bitmap("resources/object_door_vertical_3.png");
		  this->bitmaps[3] = al_load_bitmap("resources/object_door_vertical_4.png");
		  this->sound = al_load_sample("resources/door.wav");
		  this->sound_gain = 0.3;
		  number_of_bitmaps = 4;
		  break; 

		case OBJECT_BUTTON:
		  this->stepable = true;
		  this->input = true;
		  this->bitmaps[0] = al_load_bitmap("resources/object_button_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_button_2.png");
		  this->sound = al_load_sample("resources/click.wav");
		  this->sound_gain = 0.3;
		  number_of_bitmaps = 2;
		  break; 

		case OBJECT_FOUNTAIN:
		  this->bitmaps[0] = al_load_bitmap("resources/object_fountain_1.png");
		  this->bitmaps[1] = al_load_bitmap("resources/object_fountain_2.png");
		  this->bitmaps[2] = al_load_bitmap("resources/object_fountain_2.png");
		  this->loop_animation(ANIMATION_IDLE);
		  number_of_bitmaps = 3;
		  break;

		case OBJECT_TREE_WINTER:
		  this->bitmaps[0] = al_load_bitmap("resources/object_tree_winter.png");
		  break;

		case OBJECT_ROCK:
		  this->bitmaps[0] = al_load_bitmap("resources/object_rock.png");
		  break;
	  }

	for (i = 0; i < number_of_bitmaps; i++)
	  if (!this->bitmaps[i])
	    {
		  this->succesfully_loaded = false;
		  break;
		}
  }

//-----------------------------------------------

c_map_object::~c_map_object()
  {
	int i;

	al_destroy_sample(this->sound);

	for (i = 0; i < 5; i++)
	  al_destroy_bitmap(this->bitmaps[i]);
  }

//-----------------------------------------------

t_object_type c_map_object::get_type()
  {
	return this->type;
  }

//-----------------------------------------------

bool c_map_object::is_input()
  {
	return this->input;
  }

//-----------------------------------------------

t_object_state c_map_object::get_state()
  {
	return this->object_state;
  }

//-----------------------------------------------

int c_map_object::get_link_id()
  {
	return this->link_id;
  }

//-----------------------------------------------

int c_map_object::get_link_id2()
  {
	return this->link_id2;
  }

//-----------------------------------------------

void c_map_object::switch_state()
  { 
	if (this->object_state == OBJECT_STATE_OFF)
	  this->object_state = OBJECT_STATE_ON;
	else
	  this->object_state = OBJECT_STATE_OFF; 

	switch (this->type)
	  {
	    case OBJECT_DOOR_HORIZONTAL:
		case OBJECT_DOOR_VERTICAL:
		case OBJECT_ELEVATOR:
		  if (this->object_state == OBJECT_STATE_OFF)
		    {
			  this->play_animation(ANIMATION_SWITCH_ON);
		    }
		  else
			{
              this->play_animation(ANIMATION_SWITCH_OFF);
		    }
			
		  break;
	  }
	
	if (this->is_input())
      this->update_controlled_objects();
  }

//-----------------------------------------------

void c_map_object::update_animation_period()
  {
	switch (this->type)
	  {
	    case OBJECT_LEVER:
		  this->animation_period = 5;
		  break;

		case OBJECT_FOUNTAIN:
		  this->animation_period = 3;
		  break;

		case OBJECT_GATE:
		  this->animation_period = 3;
		  break;

		case OBJECT_DOOR_HORIZONTAL:
		case OBJECT_DOOR_VERTICAL:
		  this->animation_period = 4;
		  break;

		case OBJECT_ELEVATOR:
		  this->animation_period = 4;
	      break;

		case OBJECT_FLAMES:
		  this->animation_period = 3;
		  break;

		default:
		  this->animation_period = 1;
	  }
  }

//-----------------------------------------------

void c_map_object::draw(int x, int y)
  {
	int offset_x, offset_y;
	ALLEGRO_BITMAP *bitmap_to_draw;

	if (this->is_animating())
	  {
		this->animation_frame = *this->global_time - this->started_playing;

	    if (this->looping_animation)
		  this->animation_frame = this->animation_frame % this->animation_period;

		if (this->animation_frame < 0) // handle overflow
		  this->animation_frame = 0;
	  }

	offset_x = 0;
	offset_y = 0;

	switch (this->type)
	  {
		case OBJECT_FLAMES:
		  if (this->is_animating())
		    bitmap_to_draw = this->bitmaps[1 + this->animation_frame];
		  else
			bitmap_to_draw = this->bitmaps[0];
		  
		  break;

	    case OBJECT_CRATE:
		  bitmap_to_draw = this->bitmaps[0];

		  switch (this->playing_animation)
		    {
		      case ANIMATION_NONE:
			    break;

			  case ANIMATION_SHIFT_EAST:
				if (this->animation_frame < 3)
				  offset_x = (2 - this->animation_frame) * -21;
				else
				  this->stop_animation();			
				break;

			  case ANIMATION_SHIFT_WEST:
				if (this->animation_frame < 3)
				  offset_x = (2 - this->animation_frame) * 21;
				else
				  this->stop_animation();
				break;

			  case ANIMATION_SHIFT_NORTH:
				if (this->animation_frame < 2)
				  return;
				else
				  this->stop_animation();
				break;

			  case ANIMATION_SHIFT_SOUTH:
				if (this->animation_frame < 2)
				  offset_y = (2 - this->animation_frame) * -13;
				else
				  {
				    this->stop_animation();
				  }
				break;
		    }

		  break;  

	    case OBJECT_LEVER:
		  switch (this->playing_animation)
		    {
		      case ANIMATION_NONE:
				if (this->object_state == OBJECT_STATE_OFF)
			      bitmap_to_draw = this->bitmaps[0];
			    else
			      bitmap_to_draw = this->bitmaps[4];
			    break;
		     
			  case ANIMATION_SWITCH_ON:
				if (this->animation_frame <= 4)
				  bitmap_to_draw = this->bitmaps[this->animation_frame % 5];
				else
				  {
				    this->stop_animation();
				    bitmap_to_draw = this->bitmaps[4];
				  }
				break;

			  case ANIMATION_SWITCH_OFF:
				if (this->animation_frame <= 4)
				  bitmap_to_draw = this->bitmaps[4 - (this->animation_frame % 5)];
				else
				  {
				    this->stop_animation();
				    bitmap_to_draw = this->bitmaps[0];
				  }
				break;
				
			  default:
			    break;
		    }
		  break;

		case OBJECT_DOOR_HORIZONTAL:
		case OBJECT_DOOR_VERTICAL:
		case OBJECT_ELEVATOR: 
		  switch (this->playing_animation)
		    {
		      case ANIMATION_NONE:
				if (this->object_state == OBJECT_STATE_OFF)
			      bitmap_to_draw = this->bitmaps[0];
				else
			      bitmap_to_draw = this->bitmaps[this->animation_period - 1];
			    break;
		     
			  case ANIMATION_SWITCH_ON: 
				if (this->animation_frame < this->animation_period)
				  bitmap_to_draw = this->bitmaps[this->animation_period - 1 - (this->animation_frame % this->animation_period)];
				else if (!this->looping_animation)
				  {
					bitmap_to_draw = this->bitmaps[0];
				    this->stop_animation();
				  }

				break;

			  case ANIMATION_SWITCH_OFF:
				if (this->animation_frame < this->animation_period)
				  bitmap_to_draw = this->bitmaps[this->animation_frame % this->animation_period];
				else if (!this->looping_animation)
				  {
					bitmap_to_draw = this->bitmaps[this->animation_period - 1];
				    this->stop_animation();
				  }
				break;

			  default:
				bitmap_to_draw = this->bitmaps[0];
                this->stop_animation();
				break;
		    }

		  break;

		case OBJECT_BUTTON:
		  if (this->object_state == OBJECT_STATE_ON)
		    bitmap_to_draw = this->bitmaps[1];
		  else
            bitmap_to_draw = this->bitmaps[0];
		  break;

	    default:                             // default behavior
		  if (this->playing_animation)
		    { 
			  if (this->animation_frame < this->animation_period)
		        bitmap_to_draw = this->bitmaps[this->animation_frame % (this->animation_period)];
			  else
			    {
				  bitmap_to_draw = this->bitmaps[this->animation_period - 1];

				  if (!this->looping_animation)
					this->stop_animation();
			    }
		    }
		  else
            bitmap_to_draw = this->bitmaps[0];
		  
		  break;
	  }

	al_draw_bitmap(bitmap_to_draw,offset_x + x,offset_y + y - 27,0);
  }

//-----------------------------------------------

void c_map_object::set_state(t_object_state object_state)
  {
	this->object_state = object_state;
  }

//-----------------------------------------------

bool c_map_object::is_stepable()
  {
	return this->stepable;
  }

//-----------------------------------------------

void c_map_object::use()
  {
	if (this->is_animating())
	  return;
	
	switch(this->type)
	  {
	    case OBJECT_LEVER:
		  if (this->object_state == OBJECT_STATE_OFF)
		    {
			  this->play_animation(ANIMATION_SWITCH_ON);
			  this->object_state = OBJECT_STATE_ON;
		    }
		  else
		    {
			  this->play_animation(ANIMATION_SWITCH_OFF);
              this->object_state = OBJECT_STATE_OFF;
		    }

		default:
		  break;
	  } 

	this->update_controlled_objects();
  }

//-----------------------------------------------

void c_map_object::add_controlled_objects(int number_of_objects, c_map_object *objects[])
  {
	int i;
	
	this->number_of_controlled = number_of_objects;

	this->controlling = new c_map_object*[number_of_objects];
	
	for (i = 0; i < number_of_objects; i++)
	  this->controlling[i] = objects[i];
  }

//-----------------------------------------------

void c_map_object::update_controlled_objects()
  {
	int i;
	
	for (i = 0; i < this->number_of_controlled; i++)
	  this->controlling[i]->switch_state();
  }

//-----------------------------------------------

bool c_map_object::compare_link_ids(c_map_object *another_object)
  {
	if (this->link_id >= 0 &&
	  this->link_id == another_object->get_link_id())
	  return true;

	if (this->link_id2 >= 0 &&
	  this->link_id2 == another_object->get_link_id())
	  return true;

	if (another_object->get_link_id2() >= 0 &&
	  this->link_id == another_object->get_link_id2())
	  return true;

	if (this->link_id2 >= 0 && another_object->get_link_id2() >=0
	  && this->link_id2 == another_object->get_link_id2())
	  return true;

	return false;
  }

//-----------------------------------------------

c_map_object *c_map_object::get_controlled_object(int index)
  {
	if (index < 0 || index >= this->number_of_controlled)
	  return NULL;

	return this->controlling[index];
  }

//-----------------------------------------------

void c_map_object::set_sign_text(string text)
  { 
	this->sign_text = text;
  }

//-----------------------------------------------

string c_map_object::get_sign_text()
  {
	return this->sign_text;
  }

//-----------------------------------------------
--- FILE ./map_object.h ---
﻿#ifndef MAP_OBJECT_H
#define MAP_OBJECT_H

/**
 * Map object class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"
#include "graphic_object.h"

class c_map_object: public c_graphic_object
  {
	/**
	  This class is a map object, such as a
	  tree or a lever.
	*/

    protected:
      t_object_type type;                  /** type of the object */
	  int link_id;                         /** identifies link between objects so they affect each other */
	  int link_id2;                        /** another link, negative number means it's not used */
	  bool input;                          /** true if this object is input (ie. lever, button, etc.) */
	  t_object_state object_state;         /** identifies object state (on/off, open/closed etc.) */
	  ALLEGRO_BITMAP *bitmaps[5];          /** bitmaps used to draw this object */
	  bool stepable;                       /** true if this object can be stepped over */
	  c_map_object **controlling;          /** array of pointers to objects which are affected by this object */
	  int number_of_controlled;            /** length of controlled array */
	  string sign_text;                    /** text - only for sign objects */

    public:
	  c_map_object(t_object_type object_type, int link_id, int link_id2, long int *global_time);

	    /**
	      Class constructor, initialises new
		  map object.

		  @param object_type object type of the
		    new map object.
		  @param link_id a number identifying
		    the connection between objects,
			objects with same link id will
			affect each other
		  @param link_id2 another link id,
		    negative number means this will not
			be used
		  @param global_time reference to a 
		    global time counter variable which
			is needed for animations
	    */

	  ~c_map_object();

	    /**
		  Class destructor, frees all its
		  memory.
		*/

	  void update_controlled_objects();

	    /**
		  Updated states of objects that are
		  controlled by this object.
		*/

	  void add_controlled_objects(int number_of_objects, c_map_object *objects[]);

	    /**
		  Registers objects that will be
		  controlled by this object.

		  @param number_of_objects length of
		    objects array
		  @param objects array of pointers to
		    objects that will be controlled
		*/

	  t_object_type get_type();

	    /**
	      Returns this object's type.

		  @return this object's type
	    */

	  int get_link_id();

	    /**
		  Returns the object's link id.

		  @return object link id
		*/

	  int get_link_id2();

	    /**
		  Returns the object's secondary
		    link id.

		  @return object secondary link id
		*/

	  t_object_state get_state();

	    /**
		  Returns the object's state.

		  @return object state
		*/

	  bool is_input();
	    
	    /**
		  Checks if this object is an input
		  object.

		  @return true, if this object is
		    input, otherwise false
		*/

	  void set_state(t_object_state object_state);

	    /**
		  Sets the object's state (but does
		  nothing else like updating controlled
		  objects etc.).

		  @param object_state new object state
		*/

	  void switch_state();

	    /**
		  Switches states of the object between
		  on and off.
		*/

	  virtual void draw(int x, int y);

	    /**
		  Draws the map at given position on the
		  screen.

		  @param x x position of the screen
		  @param y y position of the screen
		*/

	  bool is_stepable();

	    /**
		  Checks whether this object can be
		  stepped over.

		  @return true if this object is
		    stepable, otherwise false
		*/

	  void use();

	    /**
		  This method is called when player uses
		  the object.
		*/

	  void update_animation_period();

	    /**
		  Depending on current animation sets
		  the animation period attribute.
		*/

	  bool compare_link_ids(c_map_object *another_object);

	    /**
		  Checks if this map object and another
		  map object are linked via their link
		  ids.

		  @param another_object object to be
		    compared to this object by link
			ids
		  @return true if this object is linked
		    with another_object, otherwise
			false
		*/

	  c_map_object *get_controlled_object(int index);

	    /**
		  Returns one of objects controlled
		  by this object.

		  @param index index of the controlled
		    objects to be returned
          @return pointer to controlled object
		    at given index, if the index
			exceeds length of object list,
			NULL is returned
		*/

	  void set_sign_text(string text);

	    /**
		  Sets the text for sign map object.

		  @param text text to be set
		*/

	  string get_sign_text();

	    /**
		  Returns text associated with sign
		  map object.

		  @return sign text
		*/
  };

#endif
--- FILE ./menu.cpp ---
﻿/**
 * Menu class implementation.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "menu.h"

//-----------------------------------------------

c_menu::c_menu(t_input_output_state *input_output_state)
  {
	this->current_item = 0;
	this->menu_type = MENU_TYPE_NORMAL;
	this->number_of_levels = 0;
	this->number_of_text_lines = 0;
	this->io = input_output_state;
	this->pressed = false;
	this->easter_egg_started = -1.0;
	
	this->text_font = al_load_ttf_font("resources/benegraphic.ttf",38,0);
	
	this->menu_top = al_load_bitmap("resources/menu_top.png");
	this->menu_middle = al_load_bitmap("resources/menu_middle.png");
	this->menu_bottom = al_load_bitmap("resources/menu_bottom.png");
	this->menu_selection = al_load_bitmap("resources/menu_selection.png");
	this->menu_border = al_load_bitmap("resources/menu_border.png");
	this->easter_egg = al_load_bitmap("resources/awesome.png");
	this->click_sound = al_load_sample("resources/menu_click.wav");
	this->info_background = NULL;

	level_number_positions_x[0] = 270;
	level_number_positions_y[0] = 390;
	level_number_positions_x[1] = 350;
	level_number_positions_y[1] = 390;
	level_number_positions_x[2] = 270;
	level_number_positions_y[2] = 310;
	level_number_positions_x[3] = 350;
	level_number_positions_y[3] = 310;
	level_number_positions_x[4] = 490;
	level_number_positions_y[4] = 200;
	level_number_positions_x[5] = 465;
	level_number_positions_y[5] = 220;
	level_number_positions_x[6] = 435;
	level_number_positions_y[6] = 230;
	level_number_positions_x[7] = 390;
	level_number_positions_y[7] = 240;
	level_number_positions_x[8] = 140;
	level_number_positions_y[8] = 360;
	level_number_positions_x[9] = 160;
	level_number_positions_y[9] = 310;
	level_number_positions_x[10] = 195;
	level_number_positions_y[10] = 280;
	level_number_positions_x[11] = 230;
	level_number_positions_y[11] = 240;
	level_number_positions_x[12] = 280;
	level_number_positions_y[12] = 255;
	level_number_positions_x[13] = 330;
	level_number_positions_y[13] = 255;
	level_number_positions_x[14] = 280;
	level_number_positions_y[14] = 220;
	level_number_positions_x[15] = 330;
	level_number_positions_y[15] = 220;
	level_number_positions_x[16] = 270;
	level_number_positions_y[16] = 180;
	level_number_positions_x[17] = 340;
	level_number_positions_y[17] = 180;
	level_number_positions_x[18] = 270;
	level_number_positions_y[18] = 150;
	level_number_positions_x[19] = 340;
	level_number_positions_y[19] = 150;
	level_number_positions_x[20] = 270;
	level_number_positions_y[20] = 120;
	level_number_positions_x[21] = 340;
	level_number_positions_y[21] = 120;
  }

//-----------------------------------------------

c_menu::~c_menu()
  {
	al_destroy_bitmap(this->menu_top);
    al_destroy_bitmap(this->menu_middle);
	al_destroy_bitmap(this->menu_bottom);
	al_destroy_bitmap(this->menu_selection);
	al_destroy_bitmap(this->menu_border);
	al_destroy_bitmap(this->easter_egg);
	al_destroy_font(this->text_font);
	al_destroy_sample(this->click_sound);
  }

//-----------------------------------------------

void c_menu::set_menu_items(string items[], int number_of_items, string title, bool keep_cursor)
  {
	int i;

	if (!keep_cursor || this->menu_type != MENU_TYPE_NORMAL)
	  this->current_item = 0;
	
	this->title = title;
	this->menu_type = MENU_TYPE_NORMAL;
	this->number_of_text_lines = number_of_items;

	if (items == NULL)
	  return;

	for (i = 0; i < number_of_items; i++)
	  this->text_lines[i] = items[i];
  }

//-----------------------------------------------

void c_menu::set_menu_info_screen(string image_path, string text_lines[], int number_of_lines, double duration, unsigned char bg_red, unsigned char bg_green, unsigned char bg_blue)
  {
	int i;

	this->menu_type = MENU_TYPE_INFO;

	this->bg_color[0] = bg_red;
	this->bg_color[1] = bg_green;
	this->bg_color[2] = bg_blue;

	this->number_of_text_lines = number_of_lines;
	
	for (i = 0; i < number_of_lines; i++)
	  this->text_lines[i] = text_lines[i];

	if (image_path.length() != 0)
	  this->info_background = al_load_bitmap(image_path.c_str());
	else
	  this->info_background = NULL;

	this->effect_time = al_current_time() + 1.0;
	this->fading_in = true;
	this->fading_out = false;

	if (duration < 0.0)
	  this->screen_end_time = -1.0;
	else
	  this->screen_end_time = al_current_time() + duration;
  }

//-----------------------------------------------

void c_menu::set_menu_choose_level(int number_of_levels)
  {
	this->current_item = number_of_levels - 1;  // select the last level
	this->menu_type = MENU_TYPE_LEVEL_CHOOSE;
	this->number_of_levels = number_of_levels;
	this->info_background = al_load_bitmap("resources/castle.png");
  }

//-----------------------------------------------

int c_menu::update()
  {
	int x, y, i, alpha_value, return_value, border1_x, border2_x, border_y, red, green, blue, highlight_offset_x, highlight_offset_y;
	double time_difference;
	bool end;

	return_value = -1;

	switch (this->menu_type)
	  {
	    case MENU_TYPE_NORMAL:

		  if (this->io->key_down)
		    {
		      if (!this->pressed)
			    {
			      this->current_item++;
				  al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			    }

			  this->pressed = true;

			  if (this->current_item >= this->number_of_text_lines)
			    this->current_item = this->number_of_text_lines - 1;
		    }
		  else if (this->io->key_up)
		    {
		      if (!this->pressed)
			    {
			      this->current_item--;
			      al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			    }
			
			  this->pressed = true;

			  if (this->current_item < 0)
			    this->current_item = 0;
		    }
		  else if (this->io->key_right || this->io->key_use)
		    {
		      if (!this->pressed)
			    {
				  this->pressed = true;
				  al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			      return_value = this->current_item;
			    }
		    }
		  else if (this->io->key_left || this->io->key_back)
		    {
		      if (!this->pressed)
			    {
			  	  this->pressed = true;
				  al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			      return_value = this->number_of_text_lines - 1;
			    }
		    }
		  else
		    this->pressed = false;

		  // now draw the menu:

		  border1_x = 40;
		  border2_x = this->io->screen_x - 83;
		  border_y = -134 + ((int) (al_current_time() * 100)) % 134;

		  highlight_offset_x = (int) (sin(al_current_time()) * 10);
          highlight_offset_y = (int) (cos(al_current_time()) * 10);

		  al_clear_to_color(al_map_rgb(255,255,255));

		  while (border_y < this->io->screen_y)
		    {
			  al_draw_bitmap(this->menu_border,border1_x,border_y,0);
			  al_draw_bitmap(this->menu_border,border2_x,border_y,0);
			  border_y += 134;
		    }

		  al_draw_text(this->text_font,al_map_rgb(200,200,200),5,5,0,VERSION);

		  x = this->io->screen_x / 2 - 162;
		  y = 20;

		  al_draw_bitmap(this->menu_top,x,y,0);
		  al_draw_text(this->text_font,al_map_rgb(200,100,100),x + 55,y - 10,0,this->title.c_str());
		  al_draw_text(this->text_font,al_map_rgb(0,0,0),x + 60,y + 65,0,this->text_lines[0].c_str());

		  y += 101;

		  for (i = 0; i < this->number_of_text_lines - 2; i++)
		    {
		      al_draw_bitmap(this->menu_middle,x,y,0);
			  al_draw_text(this->text_font,al_map_rgb(0,0,0),x + 60,y + 12,0,this->text_lines[i + 1].c_str());
			  y += 58;
		    }
		  
		  al_draw_bitmap(this->menu_bottom,x,y,0);

		  if (this->number_of_text_lines >= 2)   // draw the last menu item
			al_draw_text(this->text_font,al_map_rgb(0,0,0),x + 60,y + 10,0,this->text_lines[this->number_of_text_lines - 1].c_str());

		  al_draw_bitmap(this->menu_selection,x - 65 + highlight_offset_x,85 + this->current_item * 55 + highlight_offset_y,0);  // highlight the selected item

		  break;

		case MENU_TYPE_INFO:

		  // check if the screen should disappear:

		  if (this->screen_end_time < 0.0)
		    {
			  if (!this->fading_in && !this->fading_out && (this->io->key_use || this->io->key_down ||
				this->io->key_left || this->io->key_up || this->io->key_right || this->io->key_use ||
				this->io->key_back))
		        { 
			      this->fading_out = true;
			      this->effect_time = al_current_time();
		        }
		    }
		  else
		    { 
		      if (!this->fading_in && !this->fading_out && this->screen_end_time < al_current_time())
			    {
				  this->fading_out = true;
			      this->effect_time = al_current_time();
			    }
		    }

		  // draw the screen:

		  al_clear_to_color(al_map_rgb(this->bg_color[0],this->bg_color[1],this->bg_color[2]));

		  x = this->io->screen_x / 2;
		  
		  if (this->info_background != NULL)
			x -= al_get_bitmap_width(this->info_background) / 2;

		  y = 20;

		  if (this->info_background != NULL)
			al_draw_bitmap(this->info_background,x,y,0);

		  y = this->io->screen_y - this->number_of_text_lines * 50;

		  x = this->io->screen_x / 2;

		  for (i = 0; i < this->number_of_text_lines; i++)
		    {
			  al_draw_text(this->text_font,al_map_rgb(0,0,0),x,y,ALLEGRO_ALIGN_CENTRE,this->text_lines[i].c_str());
		      y += 50;  
		    }

		  // the fade in effect:

		  if (this->fading_in)
		    {
			  time_difference = this->effect_time - al_current_time();
		    
			  if (time_difference > 0)
		        {
			      alpha_value = time_difference * 255;

			      if (alpha_value > 255)
			        alpha_value = 255;
			      else if (alpha_value < 0)
				    alpha_value = 0;

		          al_draw_filled_rectangle(0,0,this->io->screen_x,this->io->screen_y,al_map_rgba(0,0,0,alpha_value));
		        }
			  else
				this->fading_in = false;
		    }
		  
		  if (this->fading_out)
		    {
			  time_difference = al_current_time() - this->effect_time;

			  alpha_value = time_difference * 255;

			  end = false;

			  if (alpha_value > 255)
			    {
				  alpha_value = 255;
				  end = true;
			    }
			  else if (alpha_value < 0)
				alpha_value = 0;

			  al_draw_filled_rectangle(0,0,this->io->screen_x,this->io->screen_y,al_map_rgba(0,0,0,alpha_value));
		    
		      if (end)
				return 1;
		    }

		  break;

		case MENU_TYPE_LEVEL_CHOOSE:
          if (this->io->key_down)
		    {
		      if (!this->pressed)
			    {
				  al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			      this->current_item--;
			    }

			  this->pressed = true;

			  if (this->current_item < 0)
				this->current_item = this->number_of_levels;
		    }
		  else if (this->io->key_up)
		    {
		      if (!this->pressed)
			    {
				  al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			      this->current_item++;
			    }

			  this->pressed = true;

			  if (this->current_item > this->number_of_levels)
			    this->current_item = 0;
		    }
		  else if (this->io->key_right || this->io->key_use)
		    { 
			  if (!this->pressed)
			    { 
			      return_value = this->current_item;
				  al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			      this->pressed = true;
			    }
		    } 
		  else if (this->io->key_left || this->io->key_back)
		    {
			  if (!this->pressed)
			    {
			      return_value = this->number_of_levels + 1;
				  al_play_sample(this->click_sound,0.4,0.0,1.0,ALLEGRO_PLAYMODE_ONCE,NULL);
			      this->pressed = true;
			    }
		    }
		  else
		    this->pressed = false;
		  
		  al_clear_to_color(al_map_rgb(41,43,38));
		  x = this->io->screen_x / 2 - 320;
		  al_draw_bitmap(this->info_background,x,0,0);

		  for (i = 0; i < this->number_of_levels; i++) // draw level numbers
		    {
			  if (i == this->current_item)
                al_draw_filled_circle(x + this->level_number_positions_x[i] + 17,this->level_number_positions_y[i] + 20,20,al_map_rgb(255,0,0));

			  al_draw_text(this->text_font,al_map_rgb(0,0,0),x + this->level_number_positions_x[i],this->level_number_positions_y[i],0,to_string((long long) i + 1).c_str());
		    }

		  if (this->current_item == this->number_of_levels)
		    al_draw_filled_rectangle(x + 310,500,x + 370,540,al_map_rgb(255,0,0));

		  al_draw_text(this->text_font,al_map_rgb(0,0,0),x + 320,500,0,"intro");

		  break;
	  }

	if (this->easter_egg_started >= 0.0) // display easter egg
	  {
		time_difference = al_current_time() - this->easter_egg_started;

		if (time_difference <= 2.0)
		  al_draw_bitmap(this->easter_egg,(int) (-112 + (time_difference / 2) * (this->io->screen_x / 3)),20,0);
		else if (time_difference <= 4.0)
		  {
		    al_draw_bitmap(this->easter_egg,this->io->screen_x / 3 - 112,20,0); 
				
			switch((int) (al_current_time() * 5) % 10) // some random colors for the text
			  {
			    case 0: red = 0; green = 55; blue = 0; break;
			    case 1: red = 50; green = 0; blue = 63; break;
			    case 2: red = 170; green = 55; blue = 80; break;
			    case 3: red = 7; green = 10; blue = 244; break;
			    case 4: red = 30; green = 180; blue = 25; break;
			    case 5: red = 0; green = 113; blue = 0; break;
			    case 6: red = 0; green = 55; blue = 10; break;
			    case 7: red = 256; green = 0; blue = 190; break;
			    case 8: red = 30; green = 200; blue = 50; break;
			    case 9: red = 200; green = 200; blue = 180; break;
			  }

			al_draw_text(this->text_font,al_map_rgb(red,green,blue),this->io->screen_x / 3 - 200,2,0,"HELLO!");
		  }
		else if (time_difference <= 6.0)
		  al_draw_bitmap(this->easter_egg,(int) (-112 + (1 - ((time_difference - 4) / 2)) * this->io->screen_x / 3),20,0);
		else
		  this->easter_egg_started = -1;
	  }

	return return_value;
  }

//-----------------------------------------------

void c_menu::display_easter_egg()
  {
	if (this->easter_egg_started >= 0.0)
	  return;

	this->easter_egg_started = al_current_time(); // two seconds for the easter egg
  }

//-----------------------------------------------
--- FILE ./menu.h ---
﻿#ifndef MENU_H
#define MENU_H

/**
 * Menu class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"

typedef enum
  {
	/**
	  Possible menu types.
	*/
	MENU_TYPE_NORMAL,        /** normal menu with items */
	MENU_TYPE_INFO,          /** info screen with text */
	MENU_TYPE_LEVEL_CHOOSE   /** level selection screen */
  } t_menu_type;

class c_menu
  {
	/**
	  This class is capable of displaying and
	  handling different kinds of menus and
	  dialogs for the player.
	*/

    protected:
	  t_menu_type menu_type;            /** menu type */
	  int current_item;                 /** currently highlighted menu item */
	  int number_of_text_lines;         /** number of text lines or items displayed on info screen */  
	  string text_lines[10];            /** text displayed on info screen or items displayed in the menu */
	  int number_of_levels;             /** number of available levels on the level selection screen */
	  t_input_output_state *io;         /** information about keys pressed etc. */
	  boolean pressed;                  /** to capture key down only once */
	  double effect_time;               /** this is used to display effects such as fade in etc. */
	  double screen_end_time;           /** time when the info screen will disappear */
	  bool fading_in;                   /** whether the fade in effect is active */               
	  bool fading_out;                  /** whether the fade out effect is active */
	  string title;                     /** menu title */
	  unsigned char bg_color[3];        /** background color for the info screen */
	  double easter_egg_started;        /** easter egg start time */

	  int level_number_positions_x[22]; /** x poxel positions of level numbers at level choosing screen */
	  int level_number_positions_y[22]; /** same as above but with y coordinations */

	  ALLEGRO_BITMAP *menu_top;         /** bitmap - top part of the menu */
	  ALLEGRO_BITMAP *menu_middle;      /** bitmap - middle part part of the menu */
	  ALLEGRO_BITMAP *menu_bottom;      /** bitmap - bottom part of the menu */
	  ALLEGRO_BITMAP *menu_selection;   /** bitmap - highlight for menu items */
	  ALLEGRO_BITMAP *info_background;  /** bitmap - info screen image */
	  ALLEGRO_BITMAP *menu_border;      /** bitmap - menu decorative border */
	  ALLEGRO_BITMAP *easter_egg;       /** bitmap - easter egg */

	  ALLEGRO_FONT *text_font;          /** font to display the text */

	  ALLEGRO_SAMPLE *click_sound;      /** click sound for the menu */

    public: 
	  c_menu(t_input_output_state *input_output_state);

	    /**
		  Class constructor, initialises a new
		  object.

		  @param input_output_state pointer to
		    input output state structure which
			stores info about keys pressed etc.
		*/

	  ~c_menu();

	    /**
		  Class destructor, frees all object's
		  memory.
		*/

	  void set_menu_items(string items[], int number_of_items, string title, bool keep_cursor);

	    /**
		  Sets the menu type to normal menu where
		  player can select from number of
		  choices and specifies those choices.

		  @param items menu items
		  @param number_of_items length of
		    items array
		  @param title title of the menu
		  @param keep_cursor if true, the menu
		    highlight cursor will stay on its
			position, otherwise it will move
			to the first item
		*/

	  void display_easter_egg();

	    /**
		  Displays the easter egg for a little
		  while no matter what menu type is
		  set.
		*/

	  void set_menu_info_screen(string image_path, string text_lines[], int number_of_lines, double duration, unsigned char bg_red, unsigned char bg_green, unsigned char bg_blue);

	    /**
		  Sets the menu type to info screen
		  which is a screen that displays
		  a text and an optional image. It
		  can be skipped by player with any
		  key.

		  @param image_path image to be
		    displayed, if zero length string
			is provided, no image displays
	      @param text_lines lines of text to
		    be displayed
		  @param number_of_lines length of
		    text_lines array, maximum is 10
		  @param duration if negative, the 
		    screen will be waiting for the
			user to press a key to disappear,
			othervise this value is a
			number of seconds in which
			the screen will disappear on
			it's own
		  @param bg_red amount of red for the
		    background color
		  @param bg_green amount of green for
		    the background color
		  @param bg_blue amount of blue for
		    the background color
		*/

	  void set_menu_choose_level(int number_of_levels);

	    /**
		  Sets the menu type to level choosing
		  screen.

		  @param number_of_levels number of
		    levels from which the player can
			choose, for example 3 lets the
			player choose levels 1, 2 or 3.
		*/

	  int update();

	    /**
		  Updates and draws another frame of the
		  menu and returns the choice the player
		  have made.

		  @return number of menu item selected
		    (counting from 0) or -1 if the
			player hasn't chosen anything yet
		*/
  };

#endif
--- FILE ./monster_character.cpp ---
﻿/**
 * Monster character class implementation file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "monster_character.h"

//-----------------------------------------------

c_monster_character::c_monster_character(t_monster_type type, int square_x, int square_y, long *global_time)
  {
	this->is_dead = false;
	this->path_length = 0;
	this->type = type;
	this->direction = DIRECTION_SOUTH;
	this->current_path_instruction = 0;
	this->waiting = false;
	this->global_time = global_time;
	this->footsteps_gain = 0.2;
	this->playing_animation = ANIMATION_NONE;
	this->playing_sound = false;
	this->sound_skate = NULL;
	this->skate_gain = 0.3;
	this->shadow = al_load_bitmap("resources/shadow.png");

	this->position_x = c_character::square_to_position(square_x,true);
	this->position_y = c_character::square_to_position(square_y,false);

	switch (type)
	  {
	    case MONSTER_GHOST:
		  this->sprite_north = al_load_bitmap("resources/character_ghost_north.png");
		  this->sprite_north_running_1 = this->sprite_north;
		  this->sprite_north_running_2 = this->sprite_north;
		  this->sprite_east = al_load_bitmap("resources/character_ghost_east.png");
		  this->sprite_east_running_1 = this->sprite_east;
		  this->sprite_east_running_2 = this->sprite_east;
		  this->sprite_south = al_load_bitmap("resources/character_ghost_south.png");
		  this->sprite_south_running_1 = this->sprite_south;
		  this->sprite_south_running_2 = this->sprite_south;
		  this->sprite_west = al_load_bitmap("resources/character_ghost_west.png");
		  this->sprite_west_running_1 = this->sprite_west;
		  this->sprite_west_running_2 = this->sprite_west;
		  this->sound_footsteps = NULL;
		  break;

		case MONSTER_TROLL:
		  this->sound_footsteps = al_load_sample("resources/footsteps2.wav");
		  this->sprite_north = al_load_bitmap("resources/character_troll_north.png");
		  this->sprite_north_running_1 = al_load_bitmap("resources/character_troll_north_running_1.png");
		  this->sprite_north_running_2 = al_load_bitmap("resources/character_troll_north_running_2.png");
		  this->sprite_east = al_load_bitmap("resources/character_troll_east.png");
		  this->sprite_east_running_1 = al_load_bitmap("resources/character_troll_east_running_1.png");
		  this->sprite_east_running_2 = al_load_bitmap("resources/character_troll_east_running_2.png");
		  this->sprite_south = al_load_bitmap("resources/character_troll_south.png");
		  this->sprite_south_running_1 = al_load_bitmap("resources/character_troll_south_running_1.png");
		  this->sprite_south_running_2 = al_load_bitmap("resources/character_troll_south_running_2.png");
		  this->sprite_west = al_load_bitmap("resources/character_troll_west.png");
		  this->sprite_west_running_1 = al_load_bitmap("resources/character_troll_west_running_1.png");
		  this->sprite_west_running_2 = al_load_bitmap("resources/character_troll_west_running_2.png");
		  break;
	  }
	
	this->succesfully_loaded = (!this->shadow || !this->sprite_north || !this->sprite_north_running_1 || 
	  !this->sprite_north_running_2 || !this->sprite_east || !this->sprite_east_running_1 || 
	  !this->sprite_east_running_2 || !this->sprite_south || !this->sprite_south_running_1 || 
	  !this->sprite_south_running_2 || !this->sprite_west || !this->sprite_west_running_1 ||
	  !this->sprite_west_running_2 || (this->type != MONSTER_GHOST && !this->sound_footsteps)); 
  }

//-----------------------------------------------

t_monster_type c_monster_character::get_monster_type()
  {
	return this->type;
  }

//-----------------------------------------------

c_monster_character::~c_monster_character()
  {
	al_destroy_bitmap(this->shadow);                // free bitmaps
	al_destroy_bitmap(this->sprite_north);
	this->sprite_north = NULL;
	
	al_destroy_bitmap(this->sprite_east);
	this->sprite_east = NULL;
	
	al_destroy_bitmap(this->sprite_south); 
	this->sprite_south = NULL;
	
	al_destroy_bitmap(this->sprite_west);
	this->sprite_west = NULL;

	if (this->type != MONSTER_GHOST)    // ghost doesn't have those to destroy
	  {
	    al_destroy_bitmap(this->sprite_north_running_1);
	    al_destroy_bitmap(this->sprite_north_running_2);
	    al_destroy_bitmap(this->sprite_east_running_1);
	    al_destroy_bitmap(this->sprite_east_running_2);
	    al_destroy_bitmap(this->sprite_south_running_1);
	    al_destroy_bitmap(this->sprite_south_running_2);
	    al_destroy_bitmap(this->sprite_west_running_1);
	    al_destroy_bitmap(this->sprite_west_running_2);
	  }

	al_destroy_sample(this->sound_footsteps);
	al_destroy_sample(this->sound_skate);
  }

//-----------------------------------------------

void c_monster_character::draw(int x, int y)
  {
	ALLEGRO_BITMAP *bitmap_to_draw;
	
	if (this->is_animating())
	  this->animation_frame = (*this->global_time / 4) % 2;

	switch(this->direction)
	  {
         case DIRECTION_NORTH:
  		   if (this->is_animating())
			 {
		  	   if (this->animation_frame)
			     bitmap_to_draw = this->sprite_north_running_1;
			   else
			     bitmap_to_draw = this->sprite_north_running_2;
			 }
		   else
			 bitmap_to_draw = this->sprite_north;
		    
		   break;

         case DIRECTION_EAST:
  		   if (this->is_animating())
			 {
			   if (this->animation_frame)
			     bitmap_to_draw = this->sprite_east_running_1;
			   else
			     bitmap_to_draw = this->sprite_east_running_2;
			 }
		   else
			 bitmap_to_draw = this->sprite_east;
		  
		   break;

         case DIRECTION_SOUTH:
  		   if (this->is_animating())
			 {
			   if (this->animation_frame)
			     bitmap_to_draw = this->sprite_south_running_1;
			   else
			     bitmap_to_draw = this->sprite_south_running_2;
			 }
		   else
			 bitmap_to_draw = this->sprite_south;
		  break;

        case DIRECTION_WEST:
		  if (this->is_animating())
			 {
			   if (this->animation_frame)
				 bitmap_to_draw = this->sprite_west_running_1;
			   else
				 bitmap_to_draw = this->sprite_west_running_2;
			 }
		   else
			 bitmap_to_draw = this->sprite_west;
		  break;
	  }

	al_draw_bitmap(this->shadow,x,y,0);
	al_draw_bitmap(bitmap_to_draw,x,y,0);
  }

//-----------------------------------------------

void c_monster_character::next_instruction()
  {
	if (this->path_length == 0)
	  return;

    this->current_path_instruction = (this->current_path_instruction + 1) % this->path_length;
	
	switch(this->path_directions[this->current_path_instruction])
	  {
	    case DIRECTION_NORTH:
	      this->goes_to = c_character::square_to_position(this->get_square_y() - this->path_steps[this->current_path_instruction],false);
		  break;

		case DIRECTION_EAST:
		  this->goes_to = c_character::square_to_position(this->get_square_x() + this->path_steps[this->current_path_instruction],true);
		  break;

		case DIRECTION_SOUTH: 
		  this->goes_to = c_character::square_to_position(this->get_square_y() + this->path_steps[this->current_path_instruction],false);
		  break;

	    case DIRECTION_WEST:
		  this->goes_to = c_character::square_to_position(this->get_square_x() - this->path_steps[this->current_path_instruction],true);
		  break;

        case DIRECTION_NONE:
		  this->waiting = true;
		  this->waiting_end = al_current_time() + 1.0 * this->path_steps[this->current_path_instruction];
		  break;
	  }

	
  }

//-----------------------------------------------

t_direction c_monster_character::get_next_move()
  { 
	bool next_instruction;

	if (this->path_length == 0)
	  return DIRECTION_NONE;

    if (this->waiting)                             // do nothing if waiting
	  {
		if (al_current_time() >= this->waiting_end)
		  {
		    this->waiting = false;
			this->next_instruction();
		  }

	    return DIRECTION_NONE;
	  }

	next_instruction = false;                      // whether to go to the next instruction

	switch(this->path_directions[this->current_path_instruction])
	  {
	    case DIRECTION_NORTH:
		  if (this->position_y <= this->goes_to)
		    next_instruction = true;

		  break;

		case DIRECTION_EAST:
		  if (this->position_x >= this->goes_to)
		    next_instruction = true;

		  break;

		case DIRECTION_SOUTH:
		  if (this->position_y >= this->goes_to)
		    next_instruction = true;

		  break;

	    case DIRECTION_WEST:
		  if (this->position_x <= this->goes_to)
		    next_instruction = true;

		  break;

		case DIRECTION_NONE:
		  this->waiting = true;
		  this->goes_to = this->position_x;
		  this->waiting_end = al_current_time() + this->path_steps[this->current_path_instruction] * 1.0; // set waiting time, 1 sec. for each step
		  
		  break;
	  }

	if (next_instruction)
	  {
		this->next_instruction();
	  }
	
	return this->path_directions[this->current_path_instruction];
  }

//-----------------------------------------------

void c_monster_character::add_path_instruction(t_direction direction, int number_of_steps)
  {
	if (this->path_length >= MAX_MONSTER_PATH_LENGTH)
      return;

	this->path_directions[this->path_length] = direction;
	this->path_steps[this->path_length] = number_of_steps;
	this->path_length++;
  }

//-----------------------------------------------

void c_monster_character::start_moving()
  {
	if (this->path_length == 0)
	  return;

	this->current_path_instruction = 0;

	this->current_path_instruction = -1;  // a little trick, the next instruction will be zero
	this->next_instruction();
  }

//-----------------------------------------------
--- FILE ./monster_character.h ---
﻿#ifndef MONSTER_CHARACTER_H
#define MONSTER_CHARACTER_H

/**
 * Monster character class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "general.h"
#include "character.h"

class c_monster_character: public c_character
  {
    protected:

	  t_monster_type type;                                   /** monster type */

	  int path_length;                                       /** length of path directions and path steps arrays */
      int current_path_instruction;                          /** current position in path arrays */
	  double goes_to;                                        /** x or y coordination (depending on direction) to which the character is headed by the current path instruction */
	  t_direction path_directions[MAX_MONSTER_PATH_LENGTH];  /** contains sequence of directions in which steps are made */
	  int path_steps[MAX_MONSTER_PATH_LENGTH];               /** contains sequence of number of steps that will be made in given directions */
	  bool is_dead;                                          /** whether the monster is dead */
	  bool waiting;                                          /** whether the monster is waiting and not moving */
	  double waiting_end;                                    /** end time of waiting */

	  void next_instruction();

	    /**
		  Switches to the next path instruction.
		*/

    public:

	  c_monster_character(t_monster_type type, int square_x, int square_y, long *global_time);

	    /**
		  Class constructor, creates a new object.

		  @param type monster type to be set
		  @param square_x initial x position
		  @param square_y initial y position
		  @param global_time pointer to global
		    time counter
		*/

	  ~c_monster_character();

	    /**
		  Class destructor, frees it's memory.
		*/

	  t_monster_type get_monster_type();

	    /**
		  Returns the monster's type.
		*/
	  
	  void add_path_instruction(t_direction direction, int number_of_steps);

	    /**
		  Adds a path instruction for the
		  monster. There is a maximum of
		  MAX_MONSTER_PATH_LENGTH that can be
		  added. Those are instructions for
		  monster to make it's movement.

		  @param direction direction in which
		    to move
		  @param number_of_steps number of
		    steps to make in provided
			direction
		*/

      t_direction get_next_move();

		/**
		  Returns the direction in which the
		  monster should move next;

		  @return direction in which monster
		    should move (can be DIRECTION_NONE
			which means it should wait)
		*/

	  void start_moving();

	    /**
		  Starts the monster's movement, it's
		  position and path should be set by
		  the time this method is called.
		*/

	  virtual void draw(int x, int y);

	    /**
	      Draws monster character at given position.

		  @param x x position on the scrren
		  @param y y position on the screen
	    */
  };

#endif
--- FILE ./player_character.cpp ---
﻿/**
 * Player character class implementation file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "player_character.h"

//-----------------------------------------------

c_player_character::c_player_character(t_player_type player_type, long int *global_time)
  {
	string help_string;

	this->global_time = global_time;
	this->footsteps_gain = 2.0;
	this->magic_energy = MAX_MAGIC_ENERGY;
	this->playing_sound = false;
	this->set_position(0,0);
	this->player_type = player_type;
	this->direction = DIRECTION_SOUTH;
	this->sound = NULL;
	this->fire_cloak_1 = NULL;
	this->fire_cloak_2 = NULL;
	this->fire_cloak_3 = NULL;
	this->sound_firecloak = NULL;
	this->fire_cloak_on = false;
	this->skate_gain = 0.1;

	this->playing_animation = ANIMATION_NONE;

	switch (this->player_type)
	  {
	    case PLAYER_MIA: help_string = "mia"; break;
	    case PLAYER_METODEJ: help_string = "metodej"; break;
	    case PLAYER_STAROVOUS: help_string = "starovous"; break;
	    default: help_string = "mia"; break;
	  }

	// load bitmaps:

	this->shadow = al_load_bitmap("resources/shadow.png");
	this->sprite_north = al_load_bitmap(("resources/character_" + help_string + "_north.png").c_str());
	this->sprite_north_casting = al_load_bitmap(("resources/character_" + help_string + "_north_casting.png").c_str());
	this->sprite_north_running_1 = al_load_bitmap(("resources/character_" + help_string + "_north_running_1.png").c_str());
	this->sprite_north_running_2 = al_load_bitmap(("resources/character_" + help_string + "_north_running_2.png").c_str());
	this->sprite_east = al_load_bitmap(("resources/character_" + help_string + "_east.png").c_str());
	this->sprite_east_casting = al_load_bitmap(("resources/character_" + help_string + "_east_casting.png").c_str());
	this->sprite_east_running_1 = al_load_bitmap(("resources/character_" + help_string + "_east_running_1.png").c_str());
	this->sprite_east_running_2 = al_load_bitmap(("resources/character_" + help_string + "_east_running_2.png").c_str());
	this->sprite_south = al_load_bitmap(("resources/character_" + help_string + "_south.png").c_str());
	this->sprite_south_casting = al_load_bitmap(("resources/character_" + help_string + "_south_casting.png").c_str());
	this->sprite_south_running_1 = al_load_bitmap(("resources/character_" + help_string + "_south_running_1.png").c_str());
	this->sprite_south_running_2 = al_load_bitmap(("resources/character_" + help_string + "_south_running_2.png").c_str());
	this->sprite_west = al_load_bitmap(("resources/character_" + help_string + "_west.png").c_str());
	this->sprite_west_casting = al_load_bitmap(("resources/character_" + help_string + "_west_casting.png").c_str());
	this->sprite_west_running_1 = al_load_bitmap(("resources/character_" + help_string + "_west_running_1.png").c_str());
	this->sprite_west_running_2 = al_load_bitmap(("resources/character_" + help_string + "_west_running_2.png").c_str());

	this->sound_footsteps = al_load_sample("resources/footsteps.wav");
	this->sound_skate = al_load_sample("resources/skate.wav");

	this->succesfully_loaded =
	   (this->shadow && this->sprite_north && this->sprite_north_casting &&
		this->sprite_north_running_1 && this->sprite_north_running_2 &&
		this->sprite_east && this->sprite_east_casting && this->sprite_east_running_1 && 
		this->sprite_east_running_2 && this->sprite_south && this->sprite_south_casting &&
		this->sprite_south_running_1 && this->sprite_south_running_2 && this->sprite_west &&
		this->sprite_west_casting && this->sprite_west_running_1 && this->sprite_west_running_2
		&& this->sound_footsteps && this->sound_skate);

	if (this->player_type == PLAYER_METODEJ)
	  {
		this->fire_cloak_1 = al_load_bitmap("resources/spell_2_metodej_1.png");
		this->fire_cloak_2 = al_load_bitmap("resources/spell_2_metodej_2.png");
		this->fire_cloak_3 = al_load_bitmap("resources/spell_2_metodej_3.png");
		this->sound_firecloak = al_load_sample("resources/metodej_cast2.wav");

		if (!this->fire_cloak_1 || !this->fire_cloak_2 || !this->fire_cloak_3 || !this->sound_firecloak)
		  this->succesfully_loaded = false;
	  }
  }

//-----------------------------------------------

c_player_character::~c_player_character()
  {
	al_destroy_bitmap(this->shadow);                // free bitmaps
	al_destroy_bitmap(this->sprite_north);
	al_destroy_bitmap(this->sprite_north_casting);
	al_destroy_bitmap(this->sprite_north_running_1);
	al_destroy_bitmap(this->sprite_north_running_2);
	al_destroy_bitmap(this->sprite_east);
	al_destroy_bitmap(this->sprite_east_casting);
	al_destroy_bitmap(this->sprite_east_running_1);
	al_destroy_bitmap(this->sprite_east_running_2);
	al_destroy_bitmap(this->sprite_south); 
	al_destroy_bitmap(this->sprite_south_casting);
	al_destroy_bitmap(this->sprite_south_running_1);
	al_destroy_bitmap(this->sprite_south_running_2);
	al_destroy_bitmap(this->sprite_west);
	al_destroy_bitmap(this->sprite_west_casting);
	al_destroy_bitmap(this->sprite_west_running_1);
	al_destroy_bitmap(this->sprite_west_running_2);
	al_destroy_bitmap(this->fire_cloak_1);
	al_destroy_bitmap(this->fire_cloak_2);
	al_destroy_bitmap(this->fire_cloak_3);
	al_destroy_sample(this->sound_firecloak);
	al_destroy_sample(this->sound_footsteps);
	al_destroy_sample(this->sound_skate);
  }

//-----------------------------------------------

void c_player_character::update_animation_period()
  {
	switch (this->playing_animation)
	  {
	    case ANIMATION_RUN:
		  this->animation_period = 2;
		  break;

		case ANIMATION_USE:
		case ANIMATION_CAST:
		  this->animation_period = 2;
		  break;
	  }
  }

//-----------------------------------------------

t_player_type c_player_character::get_player_type()
  {
	return this->player_type;
  }

//-----------------------------------------------

void c_player_character::draw(int x, int y)
  {
    al_draw_bitmap(this->shadow,x,y,0);
	
	if (this->playing_animation == ANIMATION_NONE)
	  {                                                 // no animation
	    switch (this->direction)
	      {
	        case DIRECTION_NORTH:
		      al_draw_bitmap(this->sprite_north,x,y,0);
	          break;

		    case DIRECTION_EAST:
		      al_draw_bitmap(this->sprite_east,x,y,0);
	          break;

		    case DIRECTION_SOUTH:
		      al_draw_bitmap(this->sprite_south,x,y,0);
	          break;
		
		    case DIRECTION_WEST:
	          al_draw_bitmap(this->sprite_west,x,y,0);
	          break;  
	      }
	  }
	else   // playing animation
	  {
		 this->animation_frame = (*this->global_time - this->started_playing) / 4;

		 if (this->looping_animation)
		   this->animation_frame = this->animation_frame % this->animation_period;
		 
		 if (this->playing_animation == ANIMATION_RUN)  // run animation
		   {
			 switch (this->direction)
			   {
			     case DIRECTION_NORTH:
				   if (this->animation_frame == 0)
					 al_draw_bitmap(this->sprite_north_running_1,x,y,0);
				   else
					 al_draw_bitmap(this->sprite_north_running_2,x,y,0); 
				   break;

                 case DIRECTION_EAST:
				   if (this->animation_frame == 0)
					 al_draw_bitmap(this->sprite_east_running_1,x,y,0);
				   else
					 al_draw_bitmap(this->sprite_east_running_2,x,y,0); 
				   break;

				 case DIRECTION_SOUTH:
				   if (this->animation_frame == 0)
					 al_draw_bitmap(this->sprite_south_running_1,x,y,0);
				   else
					 al_draw_bitmap(this->sprite_south_running_2,x,y,0); 
				   break;

				 case DIRECTION_WEST:
				   if (this->animation_frame == 0)
					 al_draw_bitmap(this->sprite_west_running_1,x,y,0);
				   else
					 al_draw_bitmap(this->sprite_west_running_2,x,y,0); 
				   break;
			   }
		   }
		 else if (this->playing_animation == ANIMATION_CAST || this->playing_animation == ANIMATION_USE)
		   { 
			 switch (this->direction)
			   {
			     case DIRECTION_NORTH:
				   al_draw_bitmap(this->sprite_north_casting,x,y,0);
				   break;

                 case DIRECTION_EAST:
				   al_draw_bitmap(this->sprite_east_casting,x,y,0);
				   break;

				 case DIRECTION_SOUTH:
				   al_draw_bitmap(this->sprite_south_casting,x,y,0);
				   break;

				 case DIRECTION_WEST:
				   al_draw_bitmap(this->sprite_west_casting,x,y,0);
				   break;
			   }
		   }
		 else if (this->playing_animation == ANIMATION_SKATE)
		   {
			 switch (this->direction)
			   {
			     case DIRECTION_NORTH:
				   al_draw_bitmap(this->sprite_north_running_1,x,y,0);
				   break;

                 case DIRECTION_EAST:
				   al_draw_bitmap(this->sprite_east_running_1,x,y,0);
				   break;

				 case DIRECTION_SOUTH:
				   al_draw_bitmap(this->sprite_south_running_1,x,y,0);
				   break;

				 case DIRECTION_WEST:
				   al_draw_bitmap(this->sprite_west_running_1,x,y,0);
				   break;
			   }
		   }
		 
		 if (this->animation_frame >= this->animation_period)
		   this->stop_animation();
	  }

	if (this->fire_cloak_on && this->player_type == PLAYER_METODEJ) // draw fire cloak
	  {
		switch ((*this->global_time / 8) % 3)
		  {
		    case 0:
			  al_draw_bitmap(this->fire_cloak_1,x - 12,y - 15,0);
			  break;

		    case 1:
			  al_draw_bitmap(this->fire_cloak_2,x - 12,y - 15,0);
			  break;

		    case 2:
			  al_draw_bitmap(this->fire_cloak_3,x - 12,y - 15,0);
			  break;
		  }
	  }
  }

//-----------------------------------------------

void c_player_character::play_animation(t_animation_type animation)
  {
	this->stop_animation();
	this->playing_animation = animation;
	this->animation_frame = 0;
	this->looping_animation = false;
	this->started_playing = *this->global_time;
	this->update_animation_period();
  }

//-----------------------------------------------

void c_player_character::change_magic_energy(int amount)
  {
	this->magic_energy += amount;
	  
	if (this->magic_energy > MAX_MAGIC_ENERGY)
	  this->magic_energy = MAX_MAGIC_ENERGY;
	else if (this->magic_energy < 0)
	  this->magic_energy = 0;
  }

//-----------------------------------------------

int c_player_character::get_magic_energy()
  {
	return this->magic_energy;
  }

//-----------------------------------------------

void c_player_character::set_fire_cloak(bool state)

  {
	if (this->player_type != PLAYER_METODEJ)
	  return;

	if (state)
	  {
		if (!this->fire_cloak_on)
	      al_play_sample(this->sound_firecloak,0.2,0.0,1.0,ALLEGRO_PLAYMODE_LOOP,&this->sound_firecloak_id);
	  }
	else
	  { 
		if (this->fire_cloak_on)
	      al_stop_sample(&this->sound_firecloak_id);
	  }

	this->fire_cloak_on = state;
  }

//-----------------------------------------------

bool c_player_character::fire_cloak_is_on()

  {
	return this->fire_cloak_on;
  }

//-----------------------------------------------
--- FILE ./player_character.h ---
﻿#ifndef PLAYER_CHARACTER_H
#define PLAYER_CHARACTER_H

/**
 * Player character class header file.
 *
 * Copyright 2013 Miloslav Číž
 *
 * This file is part of Mage Rage.
 *
 * Mage Rage is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Mage Rage is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Foobar. If not, see <http://www.gnu.org/licenses/>.
 */

#include "character.h"

class c_player_character: public c_character
  {
	/**
	  Represents a player character.
	*/

    private:
	  t_player_type player_type;

	  int magic_energy;                              /** current amount of magic energy */
	  bool fire_cloak_on;                            /** whether the fire cloak spell is on for this player */

	  ALLEGRO_BITMAP *sprite_north_casting;          /** player casting north */
	  ALLEGRO_BITMAP *sprite_east_casting;           /** player casting east */
	  ALLEGRO_BITMAP *sprite_south_casting;          /** player casting south */
	  ALLEGRO_BITMAP *sprite_west_casting;           /** player casting west */

	  ALLEGRO_BITMAP *fire_cloak_1;                  /** bitmap for fire cloak spell, frame 1 */
	  ALLEGRO_BITMAP *fire_cloak_2;                  /** bitmap for fire cloak spell, frame 2 */
	  ALLEGRO_BITMAP *fire_cloak_3;                  /** bitmap for fire cloak spell, frame 3 */

	  ALLEGRO_SAMPLE *sound_firecloak;               /** sound - firecloak spell */
	  ALLEGRO_SAMPLE_ID sound_firecloak_id;          /** id to stop looping sound */

    public:
	  c_player_character(t_player_type player_type, long int *global_time);

	    /**
	      Class constructor, initialises new player
		  character.

	  	  @param player_type type of player character
		  @param global_time reference to a global
		    time counter which is needed for
			animations
	    */

	  ~c_player_character();

	    /**
	      Class destructor, frees it's memory.
	    */

	  virtual void update_animation_period();

	    /**
		  Depending on current animation sets
		  the animation period attribute.
		*/

	  virtual void draw(int x, int y);

	    /**
	      Draws player character at given position.

		  @param x x position on the scrren
		  @param y y position on the screen
	    */

	  t_player_type get_player_type();

	    /**
	      Returns type of this character.

		  @return character type
	    */

	  virtual void play_animation(t_animation_type animation);

	    /**
		  Plays given animation.

		  @param animation animation to be played
		*/

	  void change_magic_energy(int amount);

	    /**
		  Takes or gives an amount of magic
		  energy from or to the player.

		  @param amount amount of energy to
		    be added, this can be also a
			negative number - if the player
			already has full amount of energy
			or zero energy, no overflow will
			occur
		*/

	  int get_magic_energy();

	    /**
		  Returns amount of the player's
		  magic energy.

		  @return player's magic energy
		*/

	  void set_fire_cloak(bool state);

	    /**
		  Sets the fire cloak on or off for this
		  player. Only works for Metodej.

		  @param state if true, the fire cload
		    will be set on, otherwise it will
			be set off
		*/

	  bool fire_cloak_is_on();

	    /**
		  Checks if the fire cloak spell is on
		  for this player.

		  @return true if the fire cloak spell
		  is on, false otherwise
		*/
  };

#endif
Website
<!DOCTYPE html>
<html lang="en">
  <!-- Personal webpage, made by Miloslav Číž, released under CC0 1.0. -->

  <head>
    <meta charset="utf-8"/>
    <meta name="author" content="Miloslav Číž">
    <meta name="description" content="personal website">
    <meta name="keywords" content="personal website,drummyfish,tastyfish,computer science,public domain,anarchism,pacifism,anarcho-pacifism,free software,free culture,leftism,freedom,suckless">

    <title> TastyFish </title>

    <style>
      @font-face
      {
        font-family: Aileron;
        src: url(Aileron-Light.otf);
      }

      @font-face
      {
        font-family: Aileron;
        src: url(Aileron-Bold.otf);
        font-weight: bold;
      }

      @font-face
      {
        font-family: Aileron;
        src: url(Aileron-LightItalic.otf);
        font-style: italic;
      }

      a
      {
        text-decoration: none;
        color: blue;
        font-weight: bold;
      }

      body
      {
        font-family: 'Aileron', 'Montserrat', sans-serif;
        width: 50%;
        margin: auto;
        padding: 50px 0;
      }

      p
      {
        text-align: justify;
      }

      h1
      {
        text-align: center;
        font-size: 40px;
      }

      h2
      {
        padding-top: 50px;
      }

      .site-subtitle
      { 
        display: block;
        text-align: center;
        padding-bottom: 20px;
      }

      dt
      {
        float: left;
        clear: left;
        width: 250px;
        margin: 0 0 5px 20px;
        font-weight: bold;
      }

      dd
      {
        margin-bottom: 5px;
      }

      .update-list dd
      {
        margin-bottom: 25px;
        text-align: justify;
      }

      .update-list dt
      {
        width: 100px;
      }

      dt::after
      {
        content: ": ";
      }

      ul
      {
        list-style: square;
      }

      ul.justify-list
      {
        padding-left: 20px;
        list-style-type: none;
        font-size: 13px;
      }

      .justify-list li
      {
        display: inline-block;
        min-width: 200px;
        margin-bottom: 5px;
      }

      .photo
      {
        max-width: 100%;
        border-radius: 10px;
        overflow: hidden;
      }

      #me
      {
        margin-left: 30px;
        width: 200px;
        float: right;
      }

      .hashtag
      {
        font-style: italic;
      }

      .public-key
      {
        display: block;
        margin-left: 20px;
        font-size: 10px;
      }
    </style>
  </head>

  <body>
    <h1 id="intro"> TastyFish </h1>
      <span class="site-subtitle"> personal webpage </span>

      <p>
        Please welcome to my webpage. I keep and share some of my thoughts and files here.
        I keep it brief here and post more data (such as favorite links and configs) <a href="https://gitlab.com/drummyfish/my_text_data">over here</a>.
        The page is hosted on <a href="https://gitlab.com/drummyfish/web">GitLab</a> and is <a href="http://motherfuckingwebsite.com/">perfectly designed</a> with <a href="https://www.webbloatscore.com/">web bloat score</a> &lt; 0.4.
        Google umí překládat do <a href="https://translate.google.com/translate?sl=en&tl=cs&u=http%3A%2F%2Fwww.tastyfish.cz">češtiny</a>. &lt;(&nbsp;O&nbsp;_&nbsp;O&nbsp;)&gt;
      </p>

      <form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_top" name="donateForm" style="display: none;">
      <input type="hidden" name="cmd" value="_s-xclick">
      <input type="hidden" name="hosted_button_id" value="P5BRV7F29WYTQ">
      </form>

    <h2 id="updates"> Updates </h2>

      <dl class="update-list">
          <dt>4.6.2018</dt> <dd> Migrated all my git repositories from GitHub to <a href="https://gitlab.com/drummyfish">GitLab</a> including this website because of the Micro$oft acquisition. <span class="hashtag">#movingToGitLab</span> <span class="hashtag">#deleteGitHub</span> </dd>
          <dt>20.2.2018</dt> <dd> Changed the website style to a minimalist single HTML file. No node.js, no PHP, no frameworks, less is more and life is short. The mind has to be clean. </dd>
      </dl>

    <h2 id="about"> About Me </h2>

      <p>
        My name is Miloslav Číž, I was born on 24 August 1990 and I live in <a href="https://en.wikipedia.org/wiki/Moravia">Moravia</a>, Earth. I have master's degree in computer science (focused on computer graphics) from <a href="http://www.fit.vutbr.cz/">FIT BUT</a>. I am currently forced to be a cleaning slave in a factory.
        My online handles are <i>tastyfish</i>, <i>drummy</i> and <i>drummyfish</i> (sometimes also <i>smellyfish</i>, <i>tasty</i>, <i>drumy</i> and other variants). I once looked like <a href="https://i.imgur.com/6U03nrU.jpg">this</a> (now more like <a href="https://upload.wikimedia.org/wikipedia/commons/2/26/Drummyfish_profile_photo.png">this</a>). More info about myself can be found <a href="https://gitlab.com/drummyfish/my_text_data">here</a>.
      </p>

      <p>
        I am an idealist <a href="https://en.wikipedia.org/wiki/Anarcho-pacifism">pacifist</a> <a href="https://en.wikipedia.org/wiki/Anarcho-communism">anarcho-communist</a> (a true extreme left) — please read the free as in freedom <a href="https://anarchism.pageabode.com/afaq/index.html">Anarchist FAQ</a> to learn more. I love all that lives, even those that cause me pain. My intention is <b>NOT</b> to fight against opposition, but to end the fight by achieving peaceful coexistence of everyone. I do <b>NOT</b> support the mainstream US fascist pseudo left (LGBT, feminists, Antifa etc.) and so I am <a href="https://archive.li/BLAFI">bullied and hated</a> by both right and pseudo left. My philosophy and politics is summed up in my manifesto <a href="https://gitlab.com/drummyfish/my_writings/blob/master/non-competitive%20society.pdf">Non-Competitive Society</a>. Some of my unpopular <b>opinions</b> include:
      </p>

      <ul>
        <li> <b>We should aim for complete unemployment</b>. The whole purpose of progress is to leave all work to machines. People who don't work, for whatever reason, must not be sentenced to death, as is still the case nowadays. Support <a href="https://en.wikipedia.org/wiki/Basic_income">universal basic income</a>.</li>
        <li> <b>Society mustn't be based on competition</b>. </li>
        <li> <b>Money and markets should be abolished</b>. </li>
        <li> <b>Free speech has to be absolute.</b> Holocaust denial should not be illegal. </li>
        <li> The whole concept of intellectual property is malicious, <b>all information has to be in the public domain</b>. </li>
        <li> <b>Censorship is always wrong</b>, possesion and sharing of any kind of information, <b>including any type of pornography</b>, has to be legal and moral. I <a href="https://i.imgur.com/4KeSwAd.png">agree</a> with Richard Stallman on his views about child sexuality and pornography. I do <b>NOT</b> support any kind of rape, I love all people. All so called "private" information (e.g. medical records) should be public and in the public domain. Not sharing information has to be immoral. </li>
        <li> <b>War and violence is always wrong.</b> It is better to die than to kill. (<span class="hashtag">#pacifism</span> <span class="hashtag">#nonviolence</span>) </li>
        <li> <b>Proprietary games have to be completely rejected</b>, they are the worst type of proprietary software because people are addicted to it like a drug and look for excuses to make it an exception to free society principles. </li>
        <li> <b>Attribution is overrated</b> and the requirement of attribution (e.g. by a license) is inherently wrong. </li>
        <li> All software, even games, should strictly adhere to the <b><a href="https://suckless.org/philosophy/">suckless</a> and Unix</b> philosophies. </li>
        <li> Movements such as <b>LGBT, feminism and Antifa are not truly leftist</b> and shouldn't be supported (as explained in the above linked manifesto). I do <b>NOT</b> hate gay people or women, I love all people.</li>
        <li> The sentence form <b>"The reason ... is because ..."</b> is grammatically wrong and no one should ever use it. Use <b>"The reason ... is that ..."</b>.</li>
        <li> The sentence form <b>"Just because X doesn't mean Y."</b> is grammatically wrong and no one should ever use it. Use <b>"Just the fact that X doesn't mean Y."</b> or <b>"Just because X not(Y)."</b>.</li>
      </ul>

      <p> My total monthly <b>income</b> is roughly 260 EUR from my job plus 250 EUR of my pension. </p>

      <p id="facts"> Fun facts: </p>

      <ul>
        <li> I don't like alcohol. </li>
        <li> I don't eat meat. (<span class="hashtag">#vegetarian</span>) </li>
        <li> I am 100 % introverted (INTJ), according to tests. </li>
        <li> I've never had the sense of smell. (<span class="hashtag">#anosmia</span>) </li>
        <li> I am a member of Mensa. </li>
        <li> I can't whistle. </li>
        <li> I am a fast caffeine metabolizer, meaning I can drink coffee before sleep. </li>
        <li> I am not competitive. </li>
        <li> I am suffering from anxiety and depressions (diagnosed <a href="https://en.wikipedia.org/wiki/Avoidant_personality_disorder">AvPD</a>). </li>
        <li> My favorite algorithm is most likely <a href="https://en.wikipedia.org/wiki/Hough_transform">Hough transform</a>. </li>
      </ul>

      <p>
        I am extremely shy and lonely and miss human contact, I am looking for a female <b>cuddle friend</b> (non-sexual, but I wouldn't mind sex if you insisted).
      </p>

      <p id="contacts"> <b> Contacts </b> and social media: </p>

      <ul class="justify-list">
        <li> <a href="https://diasp.org/people/d1a537f01a5101369671047d7b62795e"> Diaspora<sup>*</sup> </a> </li>
        <li> <a href="http://www.tastyfish.cz"> www.tastyfish.cz </a> </li>
        <li> <a href="http://drummyfish.gitlab.io"> drummyish.gitlab.io </a> </li>
        <li> <a href="mailto:drummyfish@disroot.org"> drummyfish@disroot.org </a> </li>
        <li> <a href="mailto:tastyfish@seznam.cz"> tastyfish@seznam.cz </a> </li>
        <li> <a href="https://www.openhub.net/accounts/drummyfish"> OpenHub </a> </li>
        <li> <a href="https://github.com/drummyfish"><strike>GitHub</strike></a> (not using anymore) </li>
        <li> <a href="https://gitlab.com/drummyfish"> GitLab </a> </li>
        <li> <a href="https://www.youtube.com/channel/UC5nRgLt4O9ESplhI7EpgFDA"><strike>YouTube</strike></a> (not using anymore) </li>
        <li> <a href="https://peertube.mastodon.host/video-channels/cbb08686-d905-44ba-824a-a2411405e26d/videos"> PeerTube </a> </li>
        <li> <a href="https://soundcloud.com/user-662044166"> SoundCloud </a> </li>
        <li> <a href="https://freesound.org/people/drummy/"> Freesound </a> </li>
        <li> <a href="https://drummyfish.deviantart.com/"> DeviantArt </a> </li>
        <li> <a href="https://www.blendswap.com/user/tastyfish"> BlendSwap </a> </li>
        <li> <a href="https://opengameart.org/users/drummyfish"> OpenGameArt </a> </li>
        <li> <a href="https://voat.co/user/drumy"><strike>Voat</strike></a> (not using anymore) </li>
        <li> <a href="https://en.wikipedia.org/wiki/User:Drummyfish"> Wikipedia </a> </li>
        <li> <a href="https://commons.wikimedia.org/wiki/User:Drummyfish/Gallery/Highlights"> Wikimedia Commons </a> </li>
        <li> <a href="https://community.arduboy.com/u/drummyfish"> Arduboy </a> </li>
        <li> <a href="https://talk.pokitto.com/u/drummyfish"> Pokitto </a> </li>
        <li> <a href="https://www.reddit.com/user/drummyfish/"><strike>reddit</strike></a> (not using anymore) </li>
        <li> <a href="https://www.facebook.com/miloslav.ciz"><strike>Facebook</strike></a> (not using anymore) </li>
      </ul>
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      <p id="likes"> Some things I <b>like</b>: </p>

      <ul class="justify-list">
        <li> public domain </li>
        <li> animals </li>
        <li> math </li>
        <li> social anarchism </li>
        <li> universal basic income </li>
        <li> altruism </li>
        <li> idealism </li>
        <li> computer graphics </li>
        <li> computer science </li>
        <li> free (as in freedom) software </li>
        <li> free culture </li>
        <li> BSD </li>
        <li> GNU </li>
        <li> Sikhism </li>
        <li> programming </li>
        <li> esoteric programming languages </li>
        <li> physics </li>
        <li> multiculturalism </li>
        <li> pacifism </li>
        <li> nonviolence </li>
        <li> Buddhism </li>
        <li> naturism </li>
        <li> gore videos (no animals) </li>
        <li> C99 </li>
        <li> briefness </li>
        <li> generalism </li>
        <li> peace </li>
        <li> boredom </li>
        <li> laziness </li>
        <li> gatekeeping </li>
        <li> libre video games </li>
        <li> TOR/darkweb </li>
        <li> Xonotic </li>
        <li> Freedoom (game) </li>
        <li> chess </li>
        <li> crocheting </li>
        <li> spoilers </li>
        <li> stalking </li>
        <li> stargazing </li>
        <li> music </li>
        <li> drumming </li>
        <li> 90s </li>
        <li> Nina Paley </li>
        <li> Karel Kryl </li>
        <li> Einstein </li>
        <li> Chomsky </li>
        <li> Gandhi </li>
        <li> Diogenes </li>
        <li> Flatland </li>
        <li> Linkin Park </li>
        <li> Pulp Fiction </li>
        <li> Chicken Run </li>
        <li> realism </li>
        <li> nihilism </li>
        <li> rationalism </li>
        <li> cynicism </li>
        <li> football </li>
        <li> KISS </li>
        <li> minimalism </li>
        <li> suckless </li>
        <li> hacking </li>
        <li> command line </li>
        <li> P2P </li>
        <li> decentralization </li>
        <li> federation </li>
        <li> Creative Commons </li>
        <li> The Last Man on Earh </li>
        <li> Oggy and the Cockroaches </li>
        <li> Julian Assange </li>
        <li> WikiLeaks </li>
        <li> Vim </li>
        <li> Project Gutenberg </li>
        <li> freedom </li>
        <li> piracy </li>
        <li> Wikipedia </li>
        <li> Richard Stallman </li>
        <li> Jesus </li>
        <li> David Attenborough </li>
        <li> Jimmy Wales </li>
        <li> Zdeněk Svěrák </li>
        <li> Jára da Cimrman </li>
        <li> Blender </li>
        <li> hand-painted style </li>
        <li> pixel art </li>
        <li> ASCII art </li>
        <li> plain text </li>
        <li> lists </li>
        <li> independence </li>
        <li> Columbo </li>
        <li> 4chan </li>
        <li> Python </li>
        <li> Haskell </li>
        <li> freedom of speech </li>
        <li> Grammar Nazi </li>
        <li> Esperanto </li>
        <li> universality </li>
        <li> small guns </li>
        <li> vegetarianism </li>
        <li> friendship bracelets </li>
        <li> Sci-Hub </li>
        <li> GitLab </li>
        <li> Unix philosophy </li>
        <li> coffee </li>
        <li> lolis </li>
        <li> Arduino </li>
        <li> Arduboy </li>
        <li> Pokitto </li>
        <li> Gamebuino </li>
        <li> Václav Havel </li>
        <li> graphic design </li>
        <li> ČT </li>
        <li> Eliyahu Rips </li>
        <li> Pope Francis </li>
        <li> sleep </li>
        <li> When Marnie Was There </li>
      </ul>

      <p id="dislikes"> Some things I <b>dislike</b>: </p>

      <ul class="justify-list">
        <li> capitalism </li>
        <li> nationalism </li>
        <li> intellectual property </li>
        <li> proprietary software </li>
        <li> "open-source" brand </li>
        <li> secrets </li>
        <li> copyright </li>
        <li> censorship </li>
        <li> OOP </li>
        <li> systemd </li>
        <li> tatoo/piercing </li>
        <li> dab </li>
        <li> bad timekeeping </li>
        <li> liberalism </li>
        <li> productivity cult </li>
        <li> competitiveness </li>
        <li> deep voice </li>
        <li> DRM </li>
        <li> IoT </li>
        <li> Web 2.0 </li>
        <li> Hollywood </li>
        <li> smart devices </li>
        <li> Elon Musk </li>
        <li> pedo witch hunt </li>
        <li> copyfraud </li>
        <li> arrogance </li>
        <li> pretence </li>
        <li> pragmatism </li>
        <li> violence </li>
        <li> humblebrag </li>
        <li> hipsters </li>
        <li> too much hygiene </li>
        <li> most actors </li>
        <li> the word "koukat" </li>
        <li> the word "coding" </li>
        <li> bad SSAO </li>
        <li> dependencies </li>
        <li> bloat </li>
        <li> C# </li>
        <li> C++ </li>
        <li> Objective-C </li>
        <li> 5G </li>
        <li> native language ignorance </li>
        <li> TV Nova </li>
        <li> misuse of the word "definition" </li>
        <li> Bohemian dialect/accent </li>
        <li> Antifa </li>
        <li> feminism </li>
        <li> LGBT </li>
        <li> cancel culture </li>
        <li> makeup </li>
        <li> PewDiePie </li>
        <li> Ashton Kutcher </li>
        <li> Benedict Cumberbatch </li>
        <li> superheroes </li>
        <li> political correctness </li>
        <li> gay marriage/pride </li>
        <li> Trump </li>
        <li> work </li>
        <li> <a href="https://xkcd.com/1357/">this xkcd</a> </li>
        <li> war </li>
        <li> whispering </li>
        <li> maintenance </li>
        <li> consumerism </li>
        <li> unsweetened chocolate </li>
        <li> cold </li>
        <li> alcohol </li>
        <li> smoking </li>
        <li> Zeman </li>
        <li> Okamura </li>
        <li> Macron </li>
        <li> Czech Republic </li>
        <li> Steam </li>
        <li> Game of Thrones </li>
        <li> Denuvo </li>
        <li> traffic violation </li>
        <li> Windows </li>
        <li> Apple </li>
        <li> USA </li>
        <li> patents </li>
        <li> most taxi drivers </li>
        <li> anything with "Unity" in its name </li>
      </ul>

    <h2 id="projects"> Notable Projects </h2>
      <p>
        Here is a highlight of projects I made or contributed to. Many are unfinished and/or have flaws, but are part of my history.
        For all projects see my <a href="#contacts">contacts</a>.
      </p>

      <p>
        Besides the following list, here are a few of <a href="https://gitlab.com/drummyfish/my_text_data/-/tree/master/">my plain text files</a>: 
        <a href="https://gitlab.com/drummyfish/my_text_data/-/raw/master/links.txt">favorite links</a>,
        <a href="https://gitlab.com/drummyfish/my_text_data/-/raw/master/books%20read.txt">books read</a>,
        <a href="https://gitlab.com/drummyfish/my_text_data/-/raw/master/games%20played.txt">games played</a>,
        <a href="https://gitlab.com/drummyfish/my_text_data/-/raw/master/cheatsheets/bash%20cheatsheet.txt">BASH cheatsheet</a>,
        <a href="https://gitlab.com/drummyfish/my_text_data/-/raw/master/cheatsheets/history%20cheatsheet.txt">history cheatsheet</a>,
        <a href="https://gitlab.com/drummyfish/my_text_data/-/raw/master/unicode.txt">Unicode test</a>,
        <a href="https://gitlab.com/drummyfish/my_text_data/-/raw/master/public%20domain%20essentials.txt">PD essentials</a>.
      </p>

      <dl>
        <dt><a href="https://drummyfish.gitlab.io/anarch/">Anarch</a></dt>
        <dd> Tiny public domain no-dependency from-scratch suckless Doom clone. </dd>

        <dt><a href="https://gitlab.com/drummyfish/openmw">OpenMW</a> contrib.</dt>
        <dd> Game engine rewrite that taught me collaboration on a big codebase. </dd>

        <dt><a href="https://gitlab.com/drummyfish/small3dlib">small3dlib</a></dt>
        <dd> C 3D software rasterizer for resource-limited computers. </dd>

        <dt><a href="https://gitlab.com/drummyfish/raycastlib">raycastlib</a></dt>
        <dd> C raycasting engine for resource-limited computers. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Bombman">Bombman</a> (<a href="https://github.com/drummyfish/Bombman">GH</a>)</dt>
        <dd> 99% finished Bomberman game clone. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Mage-Rage">Mage-Rage</a> (<a href="https://github.com/drummyfish/Mage-Rage">GH</a>)</dt>
        <dd> Early game of mine, won first prize in a competition. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Steamer-Duck">Steamer Duck</a> (<a href="https://github.com/drummyfish/Steamer-Duck">GH</a>)</dt>
        <dd> School project game made with Python. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Arduboy_TD">MicroTD</a></dt>
        <dd> Tower defense game for Arduboy. </dd>
        
        <dt><a href="https://gitlab.com/drummyfish/book_reader">small book reader</a></dt>
        <dd> Simple portable book reader. </dd>

        <dt><a href="https://gitlab.com/drummyfish/OpenMF">OpenMF</a> (<a href="https://github.com/OpenMafia/OpenMF-Archived">GH</a>)</dt>
        <dd> Co-founded the project, am no longer active but learned a lot. </dd>

        <dt><a href="https://gitlab.com/drummyfish/haskell_game">Haskell game</a> (<a href="https://github.com/drummyfish/haskell_game">GH</a>)</dt>
        <dd> Ray casting FPS ASCII game I made to learn Haskell. </dd>

        <dt><a href="https://gitlab.com/drummyfish/ptdesigner">ptdesigner</a> (<a href="https://github.com/drummyfish/ptdesigner">GH</a>)</dt>
        <dd> Procedural texture library and tool made for my <a href="http://www.fit.vutbr.cz/study/DP/BP.php.en?id=16335&y=0&st=%E8%ED%BE">bachelor's thesis</a>. </dd>

        <dt><a href="https://gitlab.com/drummyfish/OpenglSE">OpenglSE</a></dt>
        <dd> My first rendering engine, a lot of valuable experience. </dd>

        <dt><a href="https://gitlab.com/drummyfish/mirrors">mirrors</a></dt>
        <dd><a href="http://www.fit.vutbr.cz/study/DP/DP.php.en?id=17981&y=0&st=%E8%ED%BE">Master's thesis</a> work, demonstration of rendering of non-planar mirrors. </dd>

        <dt><a href="https://gitlab.com/drummyfish/my_writings/blob/master/non-competitive%20society.pdf">Non-Competitive Society</a></dt>
        <dd> Text I have writte about my life philosophy, political opinions and an ideal society. </dd>

        <dt><a href="https://gitlab.com/drummyfish/thesis_db">Thesis DB</a> (<a href="https://github.com/drummyfish/thesis_db">GH</a>)</dt>
        <dd> Big database of Czech computer science theses. </dd>

        <dt><a href="https://peertube.mastodon.host/accounts/drummyfish/videos">videos</a> (<a href="https://www.youtube.com/user/drummyfish">YT</a>)</dt>
        <dd> Videos I've made over the years. </dd>

        <dt><a href="https://opengameart.org/users/drummyfish">OGA art</a></dt>
        <dd> Various public domain game art I made that taught me many skills. </dd>

        <dt><a href="https://commons.wikimedia.org/wiki/User:Drummyfish/Gallery/Highlights">WM Commons files</a></dt>
        <dd> Files I have created for Wikimedia Commons. </dd>

        <dt><a href="https://en.wikipedia.org/wiki/Special:Contributions/Drummyfish">Wikipedia contributions</a></dt>
        <dd> My contributions to Wikipedia. </dd>

        <dt><a href="https://content.minetest.net/packages/drummyfish/drummyfish/">Minetest texture pack</a></dt>
        <dd> High-res hand-painted public domain texture pack for Minetest.</dd>

        <dt><a href="http://www.tastyfish.cz/">www.tastyfish.cz</a></dt>
        <dd> Personal website, taught me a lot about web design over the years. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Wave-Simulator">Wave Simulator</a></dt>
        <dd> Simple physics simulator in JavaScript. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Speed-of-Light-Simulator">SoL Simulator</a></dt>
        <dd> Simple simulator of speed of light distortion, in JavaScript. </dd>

        <dt><a href="https://gitlab.com/drummyfish/gitviz">GitViz</a> (<a href="https://github.com/drummyfish/gitviz">GH</a>)</dt>
        <dd> Simple script to make animations of a Git repository file. </dd>

        <dt><a href="https://gitlab.com/drummyfish/drummykit">drummykit</a></dt>
        <dd> 3D MIDI drum visualizer. </dd>

        <dt><a href="https://gitlab.com/drummyfish/distributed-ray-tracer">distr. ray tracer</a></dt>
        <dd> School project, distributed ray tracer. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Assembly-Minesweeper">ASM Minesweeper</a></dt>
        <dd> School project, minesweeper written in assembly and WINAPI. </dd>

        <dt><a href="https://gitlab.com/drummyfish/gux-fractals">GUX Fractals</a></dt>
        <dd> School project, renders fractals. </dd>

        <dt><a href="https://gitlab.com/drummyfish/pokitto-keyboard">PokiPad & LILIDE</a></dt>
        <dd> Moddable text editor for <a href="https://www.pokitto.com/">Pokitto</a>, plus a version with <a href="http://runtimeterror.com/tech/lil/">LIL</a> interpreter. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Brutal-Sudoku-Solver">Brutal Sudoku</a></dt>
        <dd> Very early (high school) Pascal program for solving sudoku. </dd>

        <dt><a href="https://gitlab.com/drummyfish/panda-rpg">Panda RPG</a></dt>
        <dd> Unfinished 3D RPG. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Chess">Chess</a></dt>
        <dd> Chess, high school graduation project. </dd>

        <dt><a href="https://gitlab.com/drummyfish/Composer">composer</a></dt>
        <dd> Procedural music generator. </dd>

        <dt><a href="https://gitlab.com/drummyfish/computin">computin</a></dt>
        <dd> Simple musical instrument controlled with mouse, in Python. </dd>
      </dl>

    <h2 id="foss"> Free (as in Freedom) Software, Free Culture, Suckless Software </h2>

      <p>
        I greatly support <a href="https://en.wikipedia.org/wiki/Free_content">free culture</a>,
        <a href="https://en.wikipedia.org/wiki/Free_software">free software</a>,
        public domain and information freedom. I am against copyright and the concept of
        intellectual property. I live these ideals and contribute to free culture, mainly by
        programming games and creating various kinds of art, both of which I contribue to
        public domain under CC0.
      </p>

      <p>
        I furthermore very much support <a href="https://suckless.org/philosophy/">suckless software</a>,
        <a href="http://countercomplex.blogspot.com/">countercomplexity</a>, technology minimalism,
        <a href="https://en.wikipedia.org/wiki/Unix_philosophy">Unix philosophy</a> and their strict application
        to all technology. 
      </p>

      <p>
        Here is a list of technology I am currently <b>using</b>:
      </p>

      <dl>
        <dt>laptop</dt> <dd> librebooted ThinkPad X200 from <a href="https://store.vikings.net/x200-ryf-certfied?search=x200">Vikings</a> </dd>
        <dt>operating system</dt> <dd> GNU Devuan (ensures <a href="https://people.debian.org/~bap/dfsg-faq.html#not_just_code">free data</a>, <a href="https://www.gnu.org/distros/free-system-distribution-guidelines.en.html#non-functional-data">unlike GNU</a>) </dd>
        <dt>keyboard, mouse</dt> <dd>Genius KB-110x, A4Tech Bloody V7M</dd>
        <dt>desktop</dt> <dd> dwm </dd>
        <dt>text editor</dt> <dd> Vim </dd>
        <dt>terminal</dt> <dd> st </dd>
        <dt>documents</dt> <dd> TXT, MD, HTML, ghostwriter, LaTeX, LibreOffice </dd>
        <dt>Internet browser</dt> <dd> Waterfox, AdNauseam (blocks and <b>clicks</b> ads), Lynx </dd>
        <dt>bitmap graphics editor</dt> <dd> GIMP, imagemagick, GMIC </dd>
        <dt>vector graphics editor</dt> <dd> Inkscape </dd>
        <dt>3D editor</dt> <dd> Blender </dd>
        <dt>video editor</dt> <dd> Blender, ffmpeg </dd>
        <dt>audio editor</dt> <dd> Audacity </dd>
        <dt>music editor</dt> <dd> LMMS </dd>
        <dt>screen recording</dt> <dd> Simple Screen Recorder </dd>
        <dt>programming</dt> <dd> C, Python, C++, JavaScript, Bash, ... </dd>
        <dt>personal transport</dt> <dd> <a href="https://duckduckgo.com/?q=eska+folder+1980&iax=images&ia=images">Eska Folder 1980</a> </dd>
      </dl>

      <p>
        Besides others I am proudly <b>NOT using</b> mobile data, credit cards, Windows, Apple, Twitter, Steam, Discord, Skype, Netflix, Amazon, eBay, Facebook, Instagram, Spotify, GitHub, Twitch, LinkedIn, Reddit, WhatsApp, Messenger, Tumblr, Telegram, TikTok, Alexa, Craigslist, mobile "apps" and proprietary SW including proprietary games. I don't own a car. I don't go to dentist or hairdresser.
      </p>

    <h2 id="support"> Support </h2>
      <p>
        I have trouble making money, so if you have something extra and would like to support me by any amount, I'll be very glad. You can do this with (sadly proprietary) <a href="#" onclick="document.donateForm.submit();">PayPal</a>, <a href="https://liberapay.com/drummyfish/">LiberaPay</a> or BitCoin: 1B2ArVZCgSB3Yjsd93bbrao9xGCtcNjF5V. Thank you very much.
      </p>

    <h2 id="archive"> Archive </h2>

      <p> In this section I keep files from my old websites. </p>

      <ul>
        <li> <a href="pages/archive/archive.html">This folder</a> holds the many articles I have written, including my study summaries, my transition to Linux, status updates etc. </li>
        <li> <a href="https://github.com/drummyfish/drummyfish.github.io/blob/master/resources/old_site.png?raw=true">This</a> is what the previous website looked like. </li>
      </ul>

      <p>
        The webpage has been changing over the years. I started at high school with plain HTML, later
        added some PHP and CSS. I always made my own graphics and reworked the web several times.
        When the PHP code became bloated, I switched over to <a href="https://en.wikipedia.org/wiki/WordPress">Wordpress</a>,
        and after that to <a href="https://github.com/getpelican/pelican">Pelican</a> (the source is still
        available <a href="https://github.com/drummyfish/drummyfish.github.io-src">here</a>). After that I am
        back to HTML. The circle is complete.
      </p>

      <hr />

      <p> This page is released under <a href="https://creativecommons.org/publicdomain/zero/1.0/">CC0 1.0</a> (public domain). This page uses <a href="http://dotcolon.net/font/aileron/">Aileron</a> CC0 font (if loaded properly). </p>

  </body>
</html>
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## Preface

I think it may be beneficial for this text to come with a little bit of meta information, for the context to be clear. Let me write it here.

This has been written solely by a single person – me, *drummyfish*. It reflects my personal opinions, ideas, educated beliefs and life philosophy I've created so far, regarding politics but also technology, philosophy and society in wide.

The text is written in **plural**, as if by a collective of authors who all hold my opinions and so maybe belong to a **movement**, but keep in mind it is so far only me. I have simply found it comfortable to write this way, perhaps because I like to imagine my ideas adopted by more people.

My education is in the area of technology, not history or politics. I am also not a native English speaker and this is the first text of this kind I have ever written. So much has to be said in order for potential errors to be explained.

I haven't written this for any specific purpose – I am not intending to start a movement, even though I wouldn't oppose its formation either. I have simply found that writing helped me explore and analyze ideas, and that it helped me personally in various other ways. Another reason for writing this has been simply a desire to share ideas. A practical use of this work that I imagined was it serving me as something I could refer people to when I am having discussion with them, as I have lately found often repeating myself and reformulating my arguments over and over again – now I can simply point to paragraphs of this text.

If anyone finds this work useful in any way, I will be glad if you use it. You can share it, sell it, edit it, build upon it and so on. You can do absolutely anything with it, that is why I share it as **public domain** under the CC0 waiver, in the spirit of the ideas I am about to present. I believe that what you do with this text is your responsibility, not mine.

This document is not connected to or endorsed by any existing organization or movement and it has not been sponsored by anyone.

## Introduction

This document outlines a model of a possible ideal human society and a subsequent life philosophy, which if adopted by many people would lead to largely implementing it.

**But isn't this just communism?** Yes and no – not in the usual sense that equates communism to recent historical failures and atrocities of "communist"  movements. However, this is a **far left** idea (definition of which will follow further) pursuing ideal communist society using an approach new in many ways, different by being **non-violent, peaceful, evolutionary, opposing rightism as well as leftist populism and false (pseudo) leftism (such as feminism, LGBT and Antifa)**, and revised based on recent history, observations of the late stage of capitalism, the state of modern technology and so on.

Our theory mainly merges existing ideas, old and modern (e.g. anarchism, non-violence, free culture, distributed systems), into a greater whole and tries to show and prove the result is **consistent** and valid. As it's been hinted, we aim to very slowly start replacing **competition** – the main but outdated drive behind the current society – with **collaboration**. We provide all the reasoning for why it is important and how we want to do it **without violence** and with as little harm as possible (considering no change can be achieved with zero harm).

What concerns us about modern society is not that it has flaws or that it is still far away from our ideal, but that instead of trying to get closer to the ideal we are heading in a completely **opposite direction** by supporting and strengthening capitalism, business, nationalism, competition and so on. What we want to achieve is **not**, unlike with mainstream communism, a revolution and putting in place a new world order, but just **steering the direction of society in the right way**.

Unlike many groups using an idea simply as a weapon or a tool to gaining power in competition with other groups, we are primarily looking for the **truth**. Our goal is not power or defeat of competitors, we aim to search for truth, knowledge of which will naturally lead to a better society. For making decisions regarding such an immensely difficult question our approach has to be **scientific**, based on **rationality** and **logic**. Therefore if we stand behind an idea that someone proves to us being faulty, on the grounds of logic and scientific evidence, it is in our interest to immediately abandon it, reevaluate and change our approach, because continuing to support an idea that's been proven to go against our goal would simply be madness, working against ourselves.

An important thing we have to do in order to seek truth is to abandon so called **shortcut thinking**. This is a kind of thinking that allows us to evaluate various concepts quickly by simply remembering associations, e.g. *laziness is bad*, *theft is morally wrong*, *criminals should be punished* and so on. Shortcut thinking is necessary for functioning in our daily lives, because our brains are incapable of fully evaluating all concepts at all times, but in scientific efforts it can lead to completely **wrong results**, because we simply avoid evaluation and checking of facts that may no longer hold true. Shortcut thinking is very often abused by politicians and used to justify goals and means that are logically unjustifiable. We want to avoid this and so it is required we try to evaluate concepts we are working with against our goals and deduce the relationship ourselves.

Regarding idealism, we often hear critics say it is dangerous. Isn't the pursuit of ideals – such as communism – what has historically caused the most harm to the society? To this we say no. It has always only been the **violent** and **forced** pursuit of ideals what caused us the unimaginable suffering. But it is the force – not the goal – what has hurt us. On the other hand, a non-violent, non-restricted pursuit of ideals, such as the effort of countless artists to seek absolute and ideal beauty, or the effort of scientists to seeks perfection with their theories, is what has made us, the mankind, flourish the most. We intend to take a similar road.

Our proposed **non-competitive society** is a superset of – besides others – **anarchism, pacifism, free culture, free software, multiculturalism, non-violence, idealism and rationalism**.

## What is Left, Right and Pseudo Left

Regarding the terms *left* and *right* politics there are good and bad news. We need to make clear what we mean by these terms as we will be using them frequently.

The **bad** news is there is a considerable **confusion about the terms** and their exact meaning isn't widely known, which is extensively abused by politicians and populists. Part of the reason behind the confusion may be that historically these terms have been used in ways completely violating their correct meaning, e.g. by Nazis or nowadays the US Democratic party – both very much rightist parties. Nazis called themselves national *socialists* (socialism being a leftist concept), but their actions and values were undoubtedly completely rightist (as explained below). On the other end, "communist" regimes – pure communism being a leftist concept – widely practiced rightist behavior, such as totalitarianism. The **good** news is there exists an extremely simple definition which allows to very easily distinguish between the two terms.

Let's now present the definitions of *left* and *right* that we will use, as we can find them e.g. at Wikipedia.^[WRL]

- **Rightism** means supporting social **hierarchies**.
- **Leftism** means supporting social **equality** (i.e. opposing hierarchies).

Some examples of **rightist** concepts are:

- **companies**: Companies create **hierarchies**, both external, i.e. among each other as competitors and owners, and internal, i.e. by organization of their employees. 
- **nationalism**: Preferring to benefit or support a specific group of people – for example a nation – before other people is the definition of rightism.
- **capitalism**: Capitalism is based on **competition**, meaning the **stronger (more successful) stand above the weaker**. It is well known to lead to great inequality between social classes, exploitation of the working class by the bourgeois,  wage slavery, extremely unequal distribution of wealth, great poverty and so on. Karl Marx and others did a great job in describing these effects.^[MCM]
- **racial supremacy**: Very obviously, one race standing above another is by definition a social hierarchy.
- **fascism**: Again, a **superiority** of a group of chosen people over other people is very clearly a social hierarchy.

Some examples of (true) **leftist** concepts are:

- **free (open source) software and hardware and free culture**:^[FRS][FRC] Granting everyone **equal** rights to usage of information, technology and art is an effort towards **eliminating the hierarchy** which arises when people are divided into owners (with all privileges) and users (with limited privileges).
- **anarchism**: Anarchism by definition tries to **eliminate all social hierarchies** and their causes, such as capitalism and states.^[AFQ]
- **pacifism**: Opposition to violence and war is opposition to the most prevalent means of force that is used to create hierarchies of stronger above weaker. In a world without violence, oppression of others (an effort for creating a hierarchy) would be extremely difficult.
- **multiculturalism**: Though having a wide meaning, the idea of different cultures and ethnicities living together supports their equality and stands against such rightist ideas as national or racial supremacy.
- **veganism** and **animal rights advocacy**: These extend the idea of equality of human beings to also include animals, i.e. sentient life that can also feel suffering. Vegans and animal rights activists may still not oppose the natural hierarchy and food chains between animals and may disagree on the question about lower level life, but their effort is always directed towards flattening and at least partially eliminating the hierarchy among life forms.

We intentionally don't mention communism because even though communism is based on a very leftist ideal of a society of completely equal people, the term is too strongly connected to Marxism and derived pseudo leftist ideologies advocating rightist means such as **dictatorship** of the proletariat. To many people the term is associated with practice of not very leftist attempts at pursuing communism, such as Leninism or Stalinism.

Let's also mention what we will call the **pseudo left** (or false left). Pseudo left movements are usually called left and may possess some aspects of it, but their behavior violates some fundamental ideas of leftism. These movements typically come from the extremely capitalist west where true left simply doesn't exist anymore, not even as a widely known concept.

Some examples of pseudo leftism are (not surprising prevalently US movements):

- **feminism**: Feminism is nowadays agreed by many to have degraded to a movement **fighting** for female **superiority**^[FES] and gaining political power, using means such as **forcing ideas and laws, using violence and bullying (legal, psychological and physical)**, pursuing a revolution (which, as explained below, we are against). Examples of this include the **metoo** bullying campaign or supporting codes of conduct^[COC] in free software development. This is in accordance with our observation (explained later on in the text) that the name of the movement indicates its goal – the movement is named *feminism* (implying *female*), **not** *gender equality*.
- **LGBT**: LGBT has gone the same road as feminism, to gaining **power through force and fear**, no longer caring about equality, but about the **fight of homosexuals** et al. against heterosexuals and everyone who simply disagrees with the LGBT gospel (e.g. gay marriage and adoption of children by gay parents). Their infamous **pride** marches have become a demonstration of **power** and give an impression of military parades meant to spread **fear and war mentality**. They also take part in aggressively pushing harmful codes of conduct^[COC] in software development. The **disinterest in actual equality** is supported by the fact that LGBT doesn't endorse sexual orientations that are nowadays unpopular and whose support would cost them political power. These include e.g. pedophiles, zoophiles and necrophiles, who are prosecuted as **rapists and criminals** (just as gay people were only a few decades ago, also resembling witch hunts that cost many innocent people their lives).
- **Antifa**: Antifa is yet another movement opposing a rightist concept, but they are a militant (violent and oppressive) group, using very rightist means of **fight, war, violence and oppression** enjoyed by its members, making them actually a rightist group that simply competes with other rightist groups such as Neonazis. For this they are criticized and rejected by true leftists.^[AFC]
- **US Democratic Party**: The party is called *left* in the USA but that is nowadays very clearly only a **historical** label. Democrats today are as much leftist as Nazis were. They are capitalists,^[DEC] populists and militarists and only a slightly less extreme right than Republicans, to whom they serve as opposition, and so are called *left* just out of convenience, not because of factual reasons. True left is basically not present in the USA in any significant form, and there is no longer even a wide knowledge among the people what true left means.

Just for the record, let us stress that we are **for** the social equality of all people, both genders, gays and all other sexual orientations including the ones that are nowadays prosecuted.

There exists so called **horseshoe theory** that states the extreme left and extreme right become similar in their behavior, just as both ends of horseshoe get closer further away from its center. This theory is flawed, because again, what it calls an extreme left is in fact pseudo left, i.e. something originally left, which however degraded into rightism. The following model more accurately captures reality:

```
            LEFT    <--------------,-,-,-------------->   RIGHT
          difficult               / / /   .->              easy
     long-term solutions:        | | |   /      quick, short-term solutions:
non-violence, empathy, equality,  \_\_\_/       violence, war, brainwashing, 
     rationality, freedom,                     control, censorship, fascism, 
    voluntarism, sharing, ...                   supremacy, hate, slavery, ...
```

We can see left and right are clearly distinguished. Right, unlike left, offers quick and easy solutions (which however become very bad in long term), and so behaves as a kind of **magnet**, exerting a constant force pulling towards right on every individual. A way to true left is therefore very difficult and requires a constant resistance to this force, to resorting to the attractive but wrong solutions. This force diverts many people from their leftist path to the pseudo leftist one, and it is also why right has been prevalent in the history. If we put enough effort to make ourselves strong enough to resist the magnet of rightism, it will be possible to reach true left.

Those calling themselves **conservative** are usually rightist, because conservatism means keeping the old values, which have prevalently been rightist.

It has to also be noted that the common and traditional view of a **family** – the one that prefers to benefit its members before other members of the society – is by definition **rightist**. However, this is only one possible view of family and so by opposing rightism **we aren't opposing families as such**! Our view of a family is just different. To us, a family is a **group of people who are emotionally closest to each other**, and so they want to e.g. spend most of their time together. This is completely supported by us. What we oppose is e.g. the idea of trying to achieve better education for own children on the detriment of other children.

## The Issues of Competition

Though our civilization likes to think of itself as advanced, it hasn't, since its departure from the jungle, still solved the very basic issue of **unconditionally guaranteeing food and shelter for everyone**, and it is dealing with countless **catastrophic issues** indicating the opposite of success: extreme **large scale poverty**^[POV] while eight richest people own as much wealth as the poorer half of the world,^[WDI] **wars and crime**, extreme **destruction of life environment**, **moral decline**, **surveillance and loss of privacy**, restriction of people's freedoms, aggressive advertisement, **declining mental health**^[MHD] and happiness of people, **financial crises**, **terrorist acts** such as mass shootings, **media control**, plutocracy (**loss of democracy**) and many others. And though people generally see these issues and acknowledge their threat and necessity to be solved, very few make the extra step – or perhaps are lead not to making it – of actually looking for the **root cause**, which is the only place where the cure can be effectively applied. Curing the symptoms is all the society is trying to do, even though it is clearly not enough and just creates more and more issues. If we keep asking ourselves *why* is this happening for long enough, we will always get to the underlaying cause – **capitalism**, and eventually simply **competition** and rightist thinking.

We will talk about **capitalism** and **competition** a lot – these two terms are not equivalent, but from our point of view and in the context of the analyzed issues we can use these mostly interchangeably. We see **competition** as the ultimate root cause of the presented issues, but since **capitalism** (a system based on competition) is absolutely prevalent nowadays, very well observable and widely familiar to most people, and it is at the same time the greatest manifestation of the presented issues of competition, we will sometimes use the word *capitalism* as meaning a *society based on competition*. Capitalism cannot exist without competition and (as we will try to show) society based on competition will lead to capitalism as we know it today (hence capitalism cannot be *fixed*, as the only fix means getting rid of competition, which immediately gets rid of capitalism). Capitalism may also be seen by some as only an economic system, but when it is spread so widely as it is today, it inevitably permeates other aspects of society, such as culture, art, politics and the mentality of people.

Richard Stallman, the father of free software, has written in his GNU Manifesto:^[GNM]

*"The paradigm of competition is a race: by rewarding the winner, we encourage everyone to run faster. When capitalism really works this way, it does a good job; but its defenders are wrong in assuming it always works this way. If the runners forget why the reward is offered and become intent on winning, no matter how, they may find other strategies—such as, attacking other runners. If the runners get into a fist fight, they will all finish late."*

This itself is a good point, but many will argue this is a solvable issue, and the reason why we have laws and rules for the markets. Indeed, we have seen capitalism somewhat "working". But if we take a closer look at the principles of competition and also at what we're seeing nowadays in the late stage capitalism, we will find that unfortunately competition is **unsustainable**. Let's take a closer look at what happens **in the long run**.

```
quality (improvement)
  ^
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  |   __/
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  |/
  +------------------------------------> effort (time, cost, …)
0

```

This graph shows a dependency of improvement on invested effort, called a *learning curve*.^[LCU] It applies to practically any improvement – performance of an athlete depending on how much time he has spent training, improving chess skills, quality of a product depending on how much money and time have been invested into it etc. Note the **non-linearity** of the curve – improvement becomes more expensive the more we have already improved. Or in other words, **improvement gets more and more expensive over time**. (Even though the curve may sometimes look a bit different, e.g. have an S-shape, or even show accelerated improvement at the beginning, such as in case of Moore's law, there is always a point from which improvement slows down as we're approaching the physical limits etc.)

For example if you decide to start jogging without having sported before, you'll see a quick initial improvement – in a few weeks you'll be able to jog even several times further and faster. But the more you've improved, the smaller improvements you will see. When you've been jogging for years, a few weeks of additional training will definitely not make you jog several times further.

Why is this fact important to us? It will show us that what mr. Stallman has said in his manifesto – competitors getting into fist fights – is not something only the *bad guys* do. It shows it is what **everyone** inevitably has to do if they want to win the competition. It is because of this fact – improvement getting progressively more expensive – that from a certain point only a minuscule improvement in the product or service quality costs a company an extremely large investment. From this point, the company can no longer effectively compete by improving its product – pouring money in this effort will keep improving the quality at a snail's pace and making it slower and slower. Since the company is now in stagnation, its competitors will soon catch up with it, improving their own competing products to a very similar quality level, at which point small random fluctuations (such as fashion) will unpredictably decide which company will be preferred by the customers.

What the stagnating company however can do to effectively spend its money is invest in **hurting the competition**, or otherwise unethically fight for their position at the top (e.g. by forcing the product with false advertisements, using political power etc.). There are many ways of hurting competition, legal (not necessarily ethical) and illegal. It may simply be destroying the competition by buying it, fighting with unfair prices, creating cartels, corruption, defamation, legal battles, patent trolling, technological war, media war, getting unfair advantage e.g. by secretly violating customers' privacy and so on. Even though people will find temporarily lower prices a good thing, all of the mentioned practices go against the beneficial promises of capitalism and hurt the society, at least by creating monopoly, preventing actual improvement and innovation of competitors, and some are downright dangerous to the people and destructive to society.

A great recent example of corruption by capitalism is technology. Purposeful **obscurity** by corporations seeking to *protect* their secrets,^[FRC] unnecessary burdening systems – such as **DRM**, **advertising** or **spyware** – built into products, **consumerism**-driven meaningless burdening features (*bloat*),^[SUC] fight and hostility towards objectively better ways (e.g. free as in freedom software), against being able to **repair** technology (Apple), these are just **some** features of modern technology that are **not** an exception – they are **the standard**.^[TGE]

Companies can be seen as machines programmed for pursuing one goal – **profit at any cost**, as much as possible. Not to innovate, not to contribute to society, not to make people's lives better, just profit. Laws don't pose moral standards to companies, they pose only **an obstacle** that is to be overcome, bypassed or destroyed. A corporation is a **psychopath**^[CAP] who's been given an immense power to rule over people.

A company is a machine that is intelligent, but has no emotions, empathy or conscience like humans. It runs on humans, has humans inside, but is structured in such a way that the resulting higher entity is not like a human at all.^[CNH] It exploits the intelligence of humans to make decisions about how to best make profit, but since ethical behavior is in this regard an **obstacle**, it has evolved to have mechanisms to prevent ethical behavior. This often manifests itself in the employees saying "don't blame me, **I am just doing my job**". Everyone is just doing their job, everyone needs to make living, no one can be blamed, and yet, the company keeps doing horrible things. An extreme example of such machines were the Nazi extermination camps, in which very few people would approve of what happened at large scale, but thanks to the spread responsibility and *everyone just doing their job* an unimaginable number of people have been murdered.

Some still argue that companies are like people – only some have bad intentions and behave in shady ways. They say only **corporatism** is bad and that small companies are different. This statement is very far from the truth, because **in order to be successful in the world of hard competition, a company cannot take on the disadvantage of only behaving ethically**. A small company that intends to survive is always an **aspiring corporation**. Deciding to only behave ethically or not taking the chance to become a corporation means giving up an advantage and ultimately losing to those who behave unethically – just as in the jungle those who decide to not take every chance to survive will simply die. It is simple – if you don't do everything you can to beat your opponents, you will lose to those who do. And indeed, taking a look at the real world confirm this.

Yes, you may have seen a small company behaving nicely, or even a big one doing something good as a PR move – this is possible. But in the long run, the small ethical company will either get devoured by the competition, or it will grow and be forced to change its behavior to the unethical. The probability of a company behaving unethically and the evil it does far surpassing the good converges to 100% as time goes on.

If we are interested in the future, improvement, stability and sustainability, we simply have to look foremost at how our model behaves in the long run, analyze the **late stage**, not the early or mid stages. In the long run, competition degrades into **oligarchy** – **rule of the winners** who only strengthen their position and weaken any potential threat of opposition. The supposed benefits of capitalism, such as the principle of **supply and demand** – i.e. what is demanded by people's needs is encouraged to be supplied by the market – fall apart in late stage capitalism, as demand becomes something corporations with enough resources can arbitrarily **control and create**, e.g. by advertisement, psychological manipulation, media manipulation, purposeful denial of controlled resources, creating arbitrary issues to subsequently offer solution to etc. There exist Internet companies that successfully sell animal feces to people.^[SHE] No longer are the true needs of people controlling what the market should try to create, the suppliers (ruling monopolies) themselves dictate what people should need.

This makes sense also from just logical viewpoint – the essential principle of competition is to encourage progress **by promising something extra** to the winners, and so motivating them to innovate. The capitalist system promises to the winners power (wealth, fame) and monopoly (e.g. the copyright or patent monopoly,^[CMO] or just monopoly via the power of money). This **does** encourage innovation at the initial stage when everyone is on the starting line, but it eventually leads exactly to what is promised – power and monopoly of the winner, which is extremely harmful to the society. **We should never promise such a reward** in the first place.

We can see it in practice – there exists no big corporation that doesn't do something downright disgusting – animal cruelty, destroying the environment, spying on people and selling their personal data, ads targeted at children, cheating customers, abuse of employees. Take just the tech giants: Google, Facebook, Microsoft, Apple, EA and many others, all are burdened with progressively longer lists of unethical behavior.^[TGE] Non-technological corporations are no different.^[CUB] A corporation behaving like this **isn't an exception, it is a rule**. A businessman, a marketing person, these are the symbols of **corruption, fraud and moral decline**, the bad guys in every movie and novel, yet we let exactly these people run our society.

Capitalists abuse shortcut thinking and try to deceive people by promising **freedom**, however, this is not freedom for the people, but freedom for the markets – freedom to **pursue profit without being restricted by ethics** – which in practice means **freedom to exploit others** and to restrict the freedom of others, via wage slavery, resource control, media control, and other abuses of power. While people are told they have the **freedom** to choose their job – that if they're dissatisfied with working conditions, they can simply quit for another job – in practice a person is unable to find a job in which he is treated well, because as we've shown, companies must inevitably behave unethically and abuse workers. Therefore this freedom of work choice in practice turns to a **freedom of a slave to choose their master**.

They tell us in a free market we have the freedom to choose between different products, forcing the producers to try to compete by better quality of the products. We can see this is not always true just by looking at what we are offered e.g. in the world of technology: **the only choice capitalism has given us is between Windows and Mac**, both proprietary bloated spying locked-in abusive technology. We have the illusion of freedom of choice by being able to choose the brand, but we can't choose not to be abused – not even schools, hospitals, charities, and other institutions that should never be under the grasp of the market.

Most experts, even capitalists, agree that a **completely unrestrained capitalism means a disaster**^[UCD] and that we need at least some regulation of the market to assure such things as fairness of competition or protection of the customers. Since, as we said, companies have no conscience and only aim to make as much profit as possible by any means necessary, an unrestrained powerful corporation will quickly resort to unethical practice, destroying any competition and eventually endangering the whole society. To prevent this, we have mechanisms that are supposed to stand above companies and protect us – states and market laws.

However, the capitalist system we have created has quickly allowed corporations to evolve to hold such a power that they already far surpass the power of many states, to break free from the cage meant to contain the beasts. States and laws meant to protect us against corporations are becoming just their tools. There will soon be no one above the corporations and unrestrained capitalism is going to become the reality after all. In this sense, the science fiction stories about super intelligent machines that in pursuing a programmed goal get out of control and proceed to destroying our civilization are becoming reality just now, right in front of our eyes. The only difference is these machines are not made of metal and wires, but of humans themselves, organized in a destructive way.

Some people, even anarchists (namely individualists), blame the state for the emergence of monopolies, and say that without a state the market would be **truly free** and therefore somehow ethical. **We strongly disagree with this**. A truly free market means a **truly unrestricted and unregulated market** which we just showed to be **disastrous** for the society. Even though as anarchists we are against states, we see markets as a bigger threat, and we want to eliminate market before we eliminate states. States are actually the only remaining obstacle standing in the way of absolute power of corporations. **Without a state, the strongest corporation would take its place in ruling over people**. It would start creating its own laws and, unlike states which are at least **supposed to** work for the people and common good, a corporation, by definition and without hiding it, pursues **only profit**, so this rule would most likely be the biggest suffering mankind has ever experienced.

Rightists will further argue that competition, and by extension capitalism, is **natural** and simply **works**, and therefore we should support it. While the first part of the statement is correct, the conclusion doesn't follow.

Yes, competition is natural to us because of the natural process of **evolution** – or **survival of the fittest** – of which we as a species have been part since life appeared on Earth. It is natural to us as well as **killing**, **starvation**, **racism** and **wars** which all come with evolution. We see that something being natural doesn't at all mean it should be supported because it doesn't at all mean it is good for us as individuals. **It also isn't true that the opposite of a thing that is natural is automatically unnatural** – it is possible that both things are natural. For example, selfishness and violence are natural to us as well as altruism and peace. In this case which of the opposite sides shows in our behavior depends on **which we decide to support**.

This fact has been acknowledged by even the most prominent rightists, such as **Hermann Göring**, the second man of the Nazi party after Hitler. He said:^[HGW]

*"The people don’t want war, but they can always be brought to the bidding of the leaders. This is easy. All you have to do is tell them they are being attacked, and denounce the pacifists for lack of patriotism and for exposing the country to danger. It works the same in every country."*

Evolution, and competing for the right to live, is a process of nature to **search for the strongest genes** – in which sense it **works** – but not for us, the individuals. Evolution doesn't aim to make us happy or not suffer, it makes us slaves, laboratory rats taking part in the greatest experiment in the universe. To us, evolution is just a **cruel** process. It doesn't make us happier, it makes us suffer. It doesn't make us free, it enslaves us by making it mandatory for us to constantly fight and compete.

Having a society based on competition, for example by implementing capitalism, **works** exactly in the same sense in which a **jungle** works to make the weak suffer and only the strong survive. The whole purpose of the idea of **civilization**, born out of this suffering, is to **escape the jungle**, the cruelty, the enslavement, the unpredictability. By pursuing civilization, we have **consciously** decided to pursue a **social** progress, which itself means creating a very **unnatural** but better environment in which no one – the strong, the weak, the working and non-working alike – aren't sentenced to death or suffering. Or at least, we'd like to **get as close to as possible** to this ideal.

Capitalism – a specific type of jungle – creates the illusion of working by achieving nowadays the no longer relevant kind of progress – **technological progress** – but fails to achieve practically any amount of **the important** kind of progress we have been aiming for – the **social progress**. In plain words, instead of rocks and sticks to fight each other with we now have technologically more advanced rocks and sticks to fight each other, but we are no more happier or less suffering than in the jungle. Instead of making the progress of abandoning the concept of a slave and its master we have simply replaced the master's whip with a gun and the slave's wooden tools with tools made of metal. Nowadays we are able to send a car around Mars or play one of many thousands hyper realistic video games in virtual reality or on our pocket devices, but do we really need it right now, for the price of still not being able to guarantee basic human needs, of giving up our morals, irreversibly destroying our environment and heading to a catastrophe?

Therefore it is crucial for us to understand that at this point when we, humans, have suffered through evolution until now to become by far the strongest species no longer threatened by others, **evolution and competition is from now on only harmful to us**. By continuing to take part in it we are paying the price of suffering for evolving further, which is completely unnecessary and doesn't bring any more benefit. We're buying something that's no longer useful to us.

Let's now stress that by abandoning evolution (improvement by competition), **we would in no way be giving up our further progress and improvement**, we would just choose different, non-harmful means, such as **collaboration**. Let's also note that, as stated above, we wouldn't be abandoning the concept of evolution and competition as such, just **its application to society**. They would still be perfectly fine to be used in entertainment (e.g. games), in science (e.g. evolutionary programming) etc. We simply argue that while the board game of Monopoly is a lot of fun and great to play with friends, it is unacceptably cruel to apply it to the real world and let capitalists play it with real human lives. (Did you know that Monopoly has been designed as a parody and critique of capitalism? And that there is a recent version of the game that promotes cheating as an inherent part of success in capitalism?)^[MOG]

One of the worst and most harmful prevailing conservative ideas is regarding the question of **work**. By work we mean an unpleasant activity that an individual is forced to do to be able to live, by which he becomes a de facto **slave**. Conservatives, but also just wide population in general, still believe that work (i.e. a kind of slavery) should nowadays and in the future be the prerequisite to life, because it has so far always been so. It is so deeply rooted in people's minds that we have created **shortcut thinking patterns** such as *more jobs equals good* and *laziness equals wrong*.

It is absolutely true that at the dawn of our civilization people needed to suffer working in order to survive and later in history this has still mostly been the case. 
With evolving technology less work was required to be done in order to survive, but the parallel evolution of social hierarchies has taken advantage of this established acceptance of work slavery and started transforming it more and more into slavery of many people to a few people. Nowadays this has come to an extreme – with our advanced technology, only a very small amount of work is actually required to be performed by humans in order to secure basic living for everyone, but people are required to work no less in order not to **die**. How is this so? **Work** has become a tool of capitalist slave masters, utilizing e.g. so called **wage slavery**. An extreme abuse of people is happening, people forced to work for majority of their lives in one way or another. All this extra unnecessary work people are required to do (so called *bullshit jobs*, such as advertisement or surveillance) capitalists use to further abuse the people doing the work, the slaves themselves! The false idea that a person has to work to such a degree in order to survive is being heavily advertised and spread by the propaganda of the slave masters (such as the current US president, Trump), who actually succeed in making the brainwashed slaves themselves support *creation of more jobs* (more slavery), when instead we, the people, should be demanding fewer jobs! We should demand such things as **automation** and **universal basic income** to make our lives less miserable.

Let us now focus on our idealism. We can say that true leftist extreme is by definition a paradise without suffering, while the rightist extreme is hell with everyone suffering except a negligible number of a few individuals who are temporarily at the top. Therefore there is no such thing as leaning **too much** to the left, it is **always** better to lean towards left more (see the chapter defining leftism and rightism to see why horseshoe theory is wrong) – and **this is why we are idealists**. A nonsensical argument often given to justify leaning towards right is that the **leftist ideal is an unreachable utopia**. Indeed, a utopia it is as any ideal, but as we have just written, being closer to a utopia is always better than being further away from it. Leaning towards utopia is always better than leaning towards dystopia.

Another argument against leftist utopias is that of a **middle way** – some (namely the centrists) say we need a *balance* of left and right, and with this we also **disagree**. While balance is better than the rightist extreme (although still not really great), balance is always **unstable**, posing the danger of slipping into the rightist dystopia. There is always a tendency in the society to start slipping towards and extreme of the principles it has chosen as its basis. We accept this fact and want to exploit it by choosing the extreme and the principles to be (truly) leftist, i.e. good.

Some people also argue that the effort of trying to achieve an ideal (e.g. communist) society is futile because **it has never been established on a large scale in history** (note that smaller scales have been implemented, see below). That is like arguing our effort to send a man to Mars is futile and that it's impossible because it hasn't yet happened in history, or that we shouldn't try to cure cancer because it is impossible for the same reason. We can see this argument fails in disproving the possibility of achieving our goal, it merely indicates it may be difficult, unlikely, or that we haven't yet reached the necessary level of progress that would allow it. Everything has to happen for the first time at some point – just as our journey to the Mars will happen with technological progress, the achievement of a society we describe here will come with **social progress**.

Let's add to this that the concepts of our ideal society, such as anarchism and voluntarism, are and have already been working on small to even large scales. In the context of the Internet and technology we are just now seeing a rise of large, world-wide decentralized, distributed and federated systems, networks and **communities** working **without central authorities**, such as the **Fediverse** (a large network of interconnected social networks), **Bitcoin** and other cryptocurrencies and systems based on distributed ledger (e.g. blockchain), **peer-to-peer networks** such as **torrent** protocols or **PeerTube** video streaming network, **Tor** network, **free and open source software development** and the **Internet itself**, by design having no central nodes or controlling authorities. Historically, there have been many communities working on the same principles, such as the land of **Zomia**, a community of about 100 million people living without government and social hierarchies.^[ZOM] The **Free Territory** of Ukraine is another famous example of historical anarchist community of about 7 million people that has worked on the principles of federation.^[FTU] An interested reader will be able to find a long sourced list of anarchist communities e.g. at Wikipedia. A lot of **basic income** experiments are currently being conducted, with positive results.^[BIE]

A great myth, nowadays coming mostly from the capitalist west, is that a **fight** is the only means to achieving a goal. We are told to accept that our whole life will be a fight and that we will have to **fight for what we think is right**. It is extremely important to realize that **this is false**. Fight is but a one way, a way of sometimes being able to achieve a quick success, but only a short term one, followed by downfall, revenge of the defeated, having negative long term consequences. Fight is usually **one of the worst solutions**, destructive to both sides, to which life forms resort only in case of emergency, when there is no other way. There are many other better solutions to issues and ways to achieving goals, such as a discussion, diplomacy, education, cooperation and non-cooperation, taking a stance, leading an example, and in many cases even just ignoring or running away from the issue can be better than fighting it. We, humans, the species that has evolved to no longer be endangered by other species, with our highly evolved technology and communication capabilities, practically no longer get to emergent situations in which there is no other option that fight. **Fear** and the necessity of fight is nowadays constructed and fueled by those in power who are dependent on the existence of such society, as admitted above in the quote by Hermann Göring – this is what we call a **culture of fear**, a term popularized by Barry Glassner. Fighting has by now become practically always the wrong way of solving issues. We think in this age fight itself is wrong and therefore we won't fight for this idea.

Another myth is that competition and a motive of profit are **the only drives of progress**. This is also completely **false**. People innovate naturally for many reasons – out of **necessity, natural curiosity and boredom, seeking appreciation, experience and social contact, altruism, out of habit, pursuing higher good and a meaning of life**. Many of the most innovative inventions were made by hobbyist and amateurs in their spare time, without the goal of any profit! For example the Linux free software operating system kernel that powers the Internet,^[LKC] or Wikipedia, the largest encyclopedia in the world, written by volunteers. Retired people keep working even when they no longer have to, simply because a **meaningful activity** is what people want to do with their lives.

## The Rules

We reject systems based on written law created and enforced by an authority (a **government**). Such a system is unacceptable for a great number of reasons and we, as **anarchists**, oppose it. For a detailed explanation of the reasons see e.g. the great, free-licensed text *An Anarchist FAQ*.^[AFQ] Instead of written laws created by authority our ideal society has **moral laws**.

**But what are morals?** Let us see morals simply as each individual's rules of behavior **that lead to good**. To the immediate question of *what is good?* we give an answer: *good* is simply **our ideal society**. We will also sometimes use the term **ethics** – the meaning is similar, but while *morals* are regarding individuals and may change depending on situation, ethics are more general rules regarding the whole society and are usually constant. For example, we say that capitalism is unethical in general, and the act of collecting valuable items may and may not be immoral, depending on the circumstances and motives of the individual who does it – if the intent is to hoard wealth, the behavior is **immoral**, because that leads to capitalism, but it would **not** be immoral e.g. as a part of creating a public museum.

Aren't morals subjective? Largely they are definitely not – even if different cultures in history showed different morals, any such civilization always formed a **large group of people sharing the same morals** (e.g. based on Christianity). We are intending to do nothing different here, just make the group the whole world.

Our morals aren't any alien rules that people would have to relearn with great effort, they are actually very similar to existing morals stemming from Christianity and other religions. This is so because ideas of many religions are mostly socialist and leftist (while unfortunately the politics around religion is usually rightist, e.g. religious wars). For example the teaching of Jesus includes non-violence, non-competition and sharing (*"turn the other cheek"*, *"if someone throws stone at you, throw back also but with bread"*), caring about others (*"love thy neighbour"*) and many other socialist ideas. **Buddhism** advocates not doing harm, not taking or injuring any life, not lying, and other similar life conducts.^[BUD] **Sikhs** traditionally run community kitchens (so called *langar*, which can be found in most major cities) where anyone who comes is served food for free, without the distinction of religion, gender or ethnicity.^[LAN] **Islam** also proclaims charity, tolerance, forgiveness and kindness (yes, it really does).^[ISL] So even though nowadays these old morals are on decline, they have been and are a deep part of our mentality already. We are merely **improving and updating** them, and trying to revert their decline.

Morals of our society are defined simply by **our common goal together with the laws of logic**. Any individual knowing and agreeing on the simple common goal and having the ability to reason (which the absolute majority of a more advanced society has) is able to **deduce** morals, and **verify** the correctness of morals they learn from others. Note a **similarity with distributed systems resistant to altering by an authority**, such as distributed cryptocurrency systems based on blockchain. In our system of morals **the rules cannot be altered by any authority** because there is no outside authority making laws for the people, the laws come from the inside, from people themselves, and as such we have a **true democracy**. This eliminates the issue of laws being manipulated by the powerful few – something unfortunately seen constantly happening in society so far.

It indeed has to be said that predicting consequences of actions in society is difficult and sometimes **impossible** and so people may sometimes be unable to deduce what is right and wrong, or may disagree on it. We acknowledge this, mistakes will happen. The important fact is that in our ideal society people are **not** interested in enforcing their opinions and agenda, but to truly look for the **truth** and are completely open to being proven wrong, admitting own errors and changing their opinions, as that is in their own interest. So there are the best conditions for the truth to be found and mistakes be minimized.

## The Goal

It needs to be remembered that **our ideal society is unreachable.** This is however no reason to despair – we intentionally create this **ideal** just as mathematicians create **ideal models** that are very **useful** even though they can never exactly match reality. This ideal model of society sets us a **direction** and allows its comparison to various aspects of the real world society. Our goal is to **get as close as possible to our ideal society**.

Continuing with mathematics, formal theories are built on top of **axioms** – simple statements that we take as true, without having to, or even being able to be proven. The fundamental idea of our theory – our axiom – is in this regard the same. It is a simple and general statement of a **common goal** shared by all supporters of our proposed society. It is this statement:

*Living beings can feel joy or suffering. We, as living beings, want all living beings (including ourselves) to equally feel as much joy as possible, and to suffer as little as possible.*

Or, in other words, **to all according to their needs.**

Note that this is a **leftist** goal because it seeks to benefit all living beings, equally. A rightist version of the goal could be formulated as well, stating:

*I, as a living being, want myself (or a small group I am a part of) to feel as much joy as possible, and to suffer as little suffering as possible, even on the detriment of others*.

Our leftist goal gives everyone a guarantee (as good as practically possible) of never sinking to the bottom, because the members of society will always care for every other being to be happy and not to suffer, and will even sacrifice a little of their own happiness to eliminate the suffering of others. The rightist goal is, on the other hand, a kind of **lottery** – if you're lucky enough to be born superior or simply by pure chance you may get to experience much more joy, but if not, you will sink to the bottom and suffer – **all or nothing**.

We believe that when it comes to the matter of life, death and suffering of all living, the vast majority of people will simply choose certainty before lottery. It is also a known fact that the expected value of a typical lottery is **negative**, i.e. mathematics objectively advices **not to play**.^[LOT] The lotteries we see in capitalism fall under this kind of lottery – in the real world only an **extremely small** number of individuals are successful. Therefore, logically, at least the vast majority of the unsuccessful should be **against** this lottery, and on the grounds of probability **everyone** should be against it. We hope to further justify the leftist goal even more by showing here it is possible to get close.

We are pure and **idealist left**, opposing both rightist and pseudo leftist ideas (note the wording – we are against **ideas**, not people). Unlike the right and pseudo left we do **not** see ourselves as *fighting* to *win* a battle against the other sides, we do **not** wish wrong to those we oppose, we do **not** seek to punish them or take revenge on them. That would be a primitive goal dooming us to just repeating history over and over again. We seek a higher goal. We seek exactly to eliminate this kind of predatory and war mentality – **not** to win a war, but to eliminate the war. **Not** to oppress those we oppose, but to eliminate any and all oppression of anyone. By this we achieve our goal.

We want a society in which its members are guaranteed some basics rights which **don't have to be earned** and **cannot be lost**. For example, in the current society we've always had a de facto guaranteed right to one of the very basic needs: **air**. No one has to deserve air, and **air cannot be taken away from anyone**, not even the worst criminals (at least in the more civilized countries that no longer have death penalty). We believe this right is good and want to work to further extending the same rights to other essential things, such as simply **living** in itself and having individual **freedom**.

As leftists we are for **social** equality of all members of the society in the widest sense, i.e. all humans and by extension also animals and all that lives and can feel suffering.

Let us stress that we are only talking about **social** equality, **not** other kinds of equality, because this work is only concerned with a **social framework**. We don't at all advocate e.g. physical or intellectual equality, i.e. we don't advocate political correctness, or hiding the fact that there are differences between different races of people, or the two genders, or **making** people physically equal. We take it as given that people are different and we embrace the differences and diversity. What we say is that as a society **we want to prevent any suffering, of everyone, indiscriminately**. Be it an important scientist, a criminal or a mentally disabled person unable to achieve anything significant – all of them can suffer the same, and we want to eliminate any suffering.

But if we allow pointing out physical and intellectual differences between people and groups of people, such as making *"sexist"* or *"racist"* jokes, without any censorship, **won't it lead to discrimination?** Will it not negatively affect the idea of equality of all people? The answer to this is very important to understand. In the spirit of looking for long term solutions, addressing the root causes rather than curing the symptoms, we simply want to establish that what is wrong is not *pointing out* the differences, it is the **discrimination** (creating social hierarchies) what is immoral. In our society **without competition, there is no incentive to discriminate**, and so **political incorrectness won't lead to discrimination**. If people accept our thinking, they will naturally stop discriminating because it will no longer even make sense. By introducing concepts such as political correctness we would be putting in place **unnecessary** restriction on freedom, which is unacceptable.

Some say that this is **unrealistic** – that if we tell people *racism* is okay in speech but not in real life, they will never be able to **separate** the two. To this we object! The current society proves the argument wrong already – we e.g. allow the worst kinds of violence in art, such as movies and video games, and despite some voices saying otherwise, in practice we see that **people are able to separate entertainment media and real life**, especially those with enough education and proper upbringing, which we support and make an essential priority. In the same spirit we don't at all mind the concepts that we oppose in the social framework – e.g. capitalism, competition and violence – in other areas such as art, speech, science and entertainment.

Talking about living beings and life, we may also soon begin to ask **what exactly classifies as life?** As it's been indicated, we connect life to suffering, which is our concern. Therefore for our purposes we will not be using the biological definition of life – this definition serves biologists well, but as will be shown wouldn't be good for us.

We will rather use a different definition – **behavior that is, especially in the area of suffering, similar to that of ours, of humans, we consider life.** Note that this is a **fuzzy definition**, a one that doesn't give a binary *yes* or *no* answer to the question of *what is life*. It rather gives us a real number value, a *degree* to which something is alive. Such fuzzy definitions go along well with our ideas of **moral laws**, not creating a black and white polarized sets, as is the case e.g. with laws written and enforced by governments, which need to give binary verdicts such as *guilty* or *not guilty*. With this definition of life we are able to consider e.g. bacteria alive only to a very small degree (because their behavior is very dissimilar to ours), and consider it acceptable to kill bacteria in most cases. It makes vegans able to eat plants, because these don't show signs of suffering similar to ours. It also allows us to e.g. consider artificial intelligence progressively more alive as it gets more and more human-like – once it starts to show the ability to suffer as much as we do, we consider it alive and apply our principles to it as we do to ourselves.

An important observation showing a big mistake of many movements is regarding their focus on either the **ends** or the **means**. When a group sets for itself a goal, it usually proceeds to specifying the means by which to achieve it, often not realizing the danger of over time refocusing on the means instead, forgetting about the goal, allowing the goal to slowly shift – or most importantly **be shifted** – somewhere else completely. Without keeping the original goal in mind at all times the movement degrades, loses its direction but by inertia keeps its momentum and becomes a dangerous out of control boulder rolling over the society. This is how movements starting with equality as their goal end up as fascists. Therefore we need to remember to always **focus on the goal, not the means**, and specify the goal carefully and correctly – means will always follow, and their justification can always be evaluated against the goal.

How do we practically focus on the goal first? One way is to make ourselves reminded of it constantly, keeping it visible at all times so that any deviation from it is immediately clear and apparent, hits us in the face and tells us to stop. For this reason **the goal should be part of the name of the movement**.

There is a great example of two similar movements, one focusing on the goal, the other on the means – we are of course talking about the **free software** movement and the **open source** movement, respectively. While the free software movement has been around for much longer, it still firmly holds to its original cause – freedom of software users – and manages to achieve it. The open source movement, on the other hand, has intentionally ditched the word freedom and refocused on the means – a source code that is *open*. While the open source initiative keeps a definition of open source software that is **virtually the same as that of free software** and so in theory both should be virtually the same, just by this mental shift from the goal to the means we have seen a rapid drift aways from the ethics and a loss of freedom in the open source world, replacing the goal of freedom with profit of companies, happening by playing tricks on the users, calling software that depends on proprietary platforms *open*, and even starting to call programs and licenses that don't pass the official definition of *open* as *open*, leading to confusion and users who no longer neither know nor care about the way to protect their freedom. Prominent examples include the Android operating system or Microsoft buying itself the open source branding. (Many so called *open source* supporters no longer make difference between truly open source programs and programs whose source is available without proper usage rights. They very often even lack the completely essential knowledge to distinguish between them.)

**Capitalism** is yet another example of a system focusing on the means – the **capital**, wealth, profit. By making capital the center point it doesn't make any promise of leading to happiness or any other kind of good for the society. And indeed, practice follows exactly. Arbitrary justifications of capitalism such as the *invisible hand* have shown to be completely untrue, as markets soon requires huge regulations to prevent monopolies, cartels, unethical behavior towards consumers, other competitors, workers etc.^[UCD]  

Regarding the FSF, we've recently also seen a growing criticism of it from their own ranks. However, this criticism isn't caused by the same kind of issue, but different ones. For example, we hear critics say (and we agree) that the FSF is using non-free licenses for their essays and videos, i.e. while being extremely strict about software freedom, they happily betray these ideas when it comes to works different from software and so violate the related concept of free culture (not just by ignoring it, but by trying to change and misinterpret it).^[RAN] But let's notice that the organization is named the Free **Software** Foundation – free culture isn't mentioned, it has not been their focus, and so, just as we've been explaining, they aren't likely to achieve or contribute very much to this cause.

Another extremely common and undesirable mistake regarding goal definitions, likely stemming from capitalist thinking, is instead of proclaiming "we want to **achieve** *A*" saying "we want to **fight** *B*". This is faulty because:

- Firstly, saying we want to **fight** an undesirable phenomenon – be it racism, poverty, inequality or anything else – implies our goal is the **fight**, not elimination of the phenomenon. Our interest then lies, paradoxically but by definition, in **not** eliminating the phenomenon, but keeping it existing so that we can constantly keep fighting it. One common and infamous example of this paradox is e.g. an anti-virus company, which of course has an interest in the existence of computer viruses.
- Secondly, by such formulation we are again refocusing our attention on the means – fighting – and in addition means that are wrong, as fight often implies violence, which we, as pacifists, want to avoid, and which should come as a last possible option, if at all.

This perhaps can seem like a time wasting playing with words, but let's not forget that we want to base our effort on rationality and keep our approach close to a scientific one. The definition of our goal is what this approach will stand on and it is an absolutely essential part of our effort, so in it, similarly as e.g. in the definition of axioms in mathematics, we need to try to be extremely precise.

**Freedom** is something promised practically by any ideology, and in itself the word doesn't say much, as there is no such thing as a general freedom. Capitalists, for example, are for the freedom of market, which means a freedom to oppress others. We are not for this freedom – we want **freedom of individuals** that will allow them to live a life, experience joy and no suffering – for example the **freedom to live** without working. By advocating individual freedom we **do not** advocate the freedom of the individual to do **anything** they want to, because that would of course allow them to do things that take away freedom of others. We are for example **not** for the freedom to do business, to kill people etc. We should also repeat these limitations of freedom we **won't** enforce using violence, but by non-violent means. However, we aim to restrict the freedom of people **as little as possible**, to the absolute minimum necessary degree.

One of the freedoms implied by this individual freedom, and so a freedom we very much support, is an **absolute freedom of information** in general. We are against any **intellectual property** laws (as we are against private property in general, and against monopoly^[CMO] laws), i.e. we want all information to be in the **public domain**, available and uncensored, just as it has already been the case e.g. with mathematical formulas. These causes are all in accordance with our ideas, and are also supported by many groups that are not associated with us. Reasons for supporting some of these causes are given by people like Richard Stallman^[FRS] or Lawrence Lessig (in his book Free Culture).^[FRC]

We are additionally **against any markets, money and private property** (though we are **not** against personal property, i.e. possession). Unconditional exchange can still happen, but we see it as **immoral** to **arbitrarily** make a person deserve something they need, which in our society of non-competitive and selfless people we equate to what they **want**. That is we are against demanding **pay** (which a person may not be able to afford) and discrimination between people based on what they can offer. If the *seller* **needs** something in return for their goods, they have the same right to simply take it. We also believe that **supply and demand** markets will always tend to lead to **competition and capitalism**.

Finally, let's remember that even if our goal may be extremely difficult to achieve – probably much more than any other social change in the history – it will be enough to **get there just once**, because the goal society is **stable** – unlike societies based on competition, conflict and balance, in which tension is always present, and will sooner or later lead to its collapse.

## The Means

As we have stated, we are always and foremost focused on the **goal**, the means will always follow, and they have to always be subjected to reevaluation against the goal. As soon as the means are seen to not lead to the goal or go against it, we have to abandon them.

Furthermore we highly, and in some cases **exclusively**, prefer means that are themselves **in accordance with the goal** – choosing means that are in conflict with the goal, for example war in pursuance of peace, is wrong because by that we are legitimizing what we are trying to delegitimize.

The road towards peace is that of **love**, and so we love all that lives, even those who hurt us or that we disagree with. Even if we sometimes get into conflicts with people and negative emotions appear, we rationally choose to love them as humans and living beings. In real life we may out of convenience choose to say we *hate* someone, but that just means we hate their opinions, the way they act or similar attributes, but we never hate a person as such. The concept of loving everyone is important to remember.

We are generally **against violent revolutions**, which are favored by the pseudo left. One great issue with the revolutional approach, and that is the social inertia and disagreement about when to stop. If we choose violence as our modus operandi, then firstly we have to agree when exactly to stop, which will cause great disagreement and even if we somehow agree, there will be great disagreement about whether we have already reached that point as measuring the amount of our success is impossible to do precisely. Keep in mind that because of the nature of our goal, being an ideal model, it will most likely never be reached, so we can't simply say we'll stop using illegitimate means when we have reached the goal. And even if we somehow succeed to agree we should stop using the illegitimate means at some point, by the force of inertia and habit some would keep still using them as it is impossible to completely revert behavior of a big group of people in an instant – so we would now have a group of people that we ourselves have created that stands against our goal.

For these reasons and others (such as revolution simply being a violent change that inevitably brings unnecessary suffering) we choose the **evolutionary** approach, or – to avoid confusion with biological evolution which we showed to be undesired – a **slow, peaceful change**.

With this in mind we have to realize that we're required to think far **beyond the scope of our own lifetime**. This is difficult to do, but it is ultimately what we have to do and what we predict people should be able to do more and more as a result of the intellectual and social progress of mankind – in important decisions relying on our intellect and rationality, not instincts and emotion, abandoning selfishness and pursuing greater long-term good for as many people as possible, including those in the future. The greatest minds and visionaries of history, foreshadowing what an advanced intellect looks like, already show this kind of thinking far beyond their lifetime. In this we want to be the same and by it we are one of the first humans to show this advancement in intellect, which should, also thanks to us, become common in the future. We must not do this for any *reward*, or expect any but knowing we sincerely do good and our lives have an important meaning. Nevertheless, if things go well, we may still live to see and enjoy some early fruit of our effort even for ourselves.

So, our methods of operation are **non-violent**, because we believe our proposed system is superior to other systems and if you have something superior to offer, you don't need to force it. We are not even tempted to force our ideas because by our own rules enforcing acceptance of anything automatically means we've lost. We wish to eliminate the distortions (such as propaganda) and by it make it clear our way is the best. Methods we can use are for example:

- **rational discussion**, developing and proving ideas, convincing people on the grounds of logic and by providing scientific evidence,
- **non-cooperation**, refusal to support or take part in what we oppose – such as capitalism, consumerism, proprietary software – as much as possible,
- **education**, making others see the real causes of issues and their solutions, revealing corruption, spreading awareness, teaching critical thinking, revealing populism, deception etc.,
- **leading an example**, showing our ideas work and are better than the status quo,
- **protests** by non-violent means, e.g. strikes,
- **working against the current system**, e.g. by whistleblowing or developing tools for breaking censorship,
- **working for our system**, e.g. by creating public domain works, free software, helping charities,
- **simply being good**, spreading non-violent mood, encouraging civilized and friendly behavior, collaboration and establishing our values.

Note that what would be unacceptable to do to humans – e.g. starve them to death – is generally not unacceptable to do to companies, because as we've shown, companies are not like humans at all, and we don't consider them alive – and of course, they are what we seek to eliminate. To us, it is therefore **not** immoral to steal from companies or otherwise work towards their elimination and towards the benefit of people at large.

We furthermore prefer means that are good in **long term** before those that achieve initially better results, but bring more evil in the future, as we are looking into the future, to create a stable society, to solve problems slowly but once and for all.

We can try to make an analogy (of course keeping in mind all dangers of analogies) between means to solving social issues and means to solving e.g. health issues. A drug (a small dose of poison) can be an effective short term solution to health problems of an individual, but it just as well comes with worse effect in long term, especially when it gets overused. If a person is depressed because of circumstances of their life, a dose of heroin will likely make the depression go away for a few hours, but it needn't be said this leads to a disastrous life in a matter of months. A better, long term solution is to try to solve the cause of the depression, to try to fix the person's life circumstances, even if that is not as pleasing in the immediate. This extreme example is here to demonstrate what kind of solutions we prefer – the long term ones. To us capitalism is like heroin – it should never be in wide use or a basis for solving issues. Its only acceptable use should be under strictly controlled condition in an isolated laboratory.

Therefore, very importantly, we are for example against any use of **censorship** – that is hiding ideas, media and opinions from the public, even partially. Censorship is a short term solution, bad in the long run, additionally in conflict with the **freedom of information and sharing**, and typically requiring some kind of censoring authority, which goes against anarchism. Censoring an idea is easy, and so it is a tempting way of making it go away **for a while** (and a nice way for temporary politicians to achieve quick results), but it is not the **correct way** of dealing with an erroneous idea. The correct way is proving the idea false. Censoring an idea also **psychologically** leads people to firstly get interested in it as in *forbidden fruit*, and secondly see it as more likely true, because if it could be disproved, why would it need to be censored? Finally, if censorship is legitimized as an acceptable practice, it becomes a weapon of propaganda and of authorities against the people, countless examples of which we don't need to point out here.

And so even if we are against Nazism, we will defend the right of Nazis to be heard and will even help them be heard, so that their ideas can be submitted to rational evaluation, publicly refuted and rejected.

As supporters of absolute information freedom and opponents of the concept of intellectual property we are against imposing restrictions on the use of our educational material, such as this very text. The FSF, in our opinion **wrongly**, uses ND (no derivative) restrictions on their materials to prevent others from removing or changing the ideas they spread.^[GND] This is in our view wrong because **we don't want to create gospel**. (Another argument stating that no derivative licenses prevent altering someone's opinions is also invalid – incorrect attribution of statements is simply lying, which is firstly not meant to be an issue addressed by copyright, and secondly if someone's goal is to lie, they can always avoid infringing on copyright.) We simply spread truth we have discover via our effort so that others can see it and don't have to needlessly waste the same effort. The truth we spread can be verified by logic (which will typically require much smaller effort than discovering it, just as mathematical proofs are typically easier to check than to discover). So if anyone modifies our statement to an untrue one, it will simply become a verifiable falsehood and sane people (whom our proposed society produces) will be able to reveal this.

We are also against censorship of **any kind** of pornography or other media capturing crime (not necessarily today, but eventually, as a part of the described slow change). Besides the above given arguments against censorship in general, we don't believe that watching a footage of crime should be considered a crime, that would be just another **unnecessary restriction of freedom**, which we oppose. The supposed justification of the opposite is that allowing illegal pornography increases demand of it and encourage producers to commit more crimes. This is firstly about as much true as saying that USA prohibition decreased the demand of alcohol – it didn't, it just gave rise to mafia – and secondly, demand requires a market, and since we are ultimately against markets, market demand can't rise in our world, because market doesn't exist.

Regarding non-violence and pacifism, a very common question asked is: **if the other side uses violence, how can we protect ourselves?** A lot has been written about this topic, so we won't go into much detail, but we have seen non-violence working in practice against violence many times in the history, e.g. with Gandhi, Martin Luther King or the Velvet Revolution. We therefore know that non-violence works, at least against **some** kinds of violence. 

In our ideal model of the society violence has been completely abolished by everyone, but as rationalists we have to also consider the fact that in practice there will probably always exist cases of violence against which non-violence may be completely ineffective. Let's imagine for example a **lunatic**, simply unable to think rationally, going on a killing spree, to kill as many people as possible. How would we deal with this?

In our perfect, ideal and unreachable society that doesn't use violence at all, people would view this the same way they would view a natural catastrophe, such as an earthquake or asteroid impact, against which they are completely powerless, and they would simply accept this as a disaster. They could run away and hide, but would generally let the lunatic do what he does – wander around the world and kill people, until he dies of old age. The society would be hurt, but would survive. The people who would have died wouldn't have died in vain – by not defending themselves they would have helped keep violence an illegitimate means to rational people, keeping the society safe from its abuse.

Considering such advanced mentality is probably beyond our reach even in far future, we accept that some minimum amount of violence or force will probably always exist as a means of defense, and we can tolerate this fact, as long as it really is the absolute minimum and the mentality regarding violence is correct. We will **never consider any use of violence a victory**, but a loss, just maybe a lesser evil. We will **never celebrate anything achieved by violence**. In the case of the dangerous lunatic killing people, in a world close to the ideal, we would likely immobilize him without hurting him or causing him suffering, and put him in a place where he could not continue to further kill people – keeping in mind this would **not be a prison**! We wouldn't seek to punish the person, just to prevent killing of more people.

Yes, with non-violence we often get hurt, but so is the case with using violence, and in the end with just living in the real world. Not hitting back is what stops further violence and allows better means of solving conflicts, such as a discussion, to take place.

Some critics of non-violence argue that use of violence can be justified because it **can** prevent greater violence from happening, and that can be true, but only in the short term. We think further – our goal is to **delegitimize** violence as such in order to prevent all possible violence in the far future, and so we choose non-violence even if it means we get hurt more in the scope of near future.

Critics can also be heard saying that it is simply not possible to make people change to become completely non-violent. They say violence is naturally in us, and will stay in us for a very long time to come, because evolution of species is a very slow process. To this we have two answers:

1. As we already mentioned, violent behavior is as natural in us as is peaceful behavior, and which one shows is determined by which one is fueled. Therefore what is natural to us **depends greatly on the environment**. Both peaceful and violent natures have been given to us by evolution because we have experienced different environments in which we needed both. Therefore if we create an environment that doesn't fuel violence, violence simply won't show.
2. Even evolutional change in behavior has been shown to be extremely fast under certain conditions, e.g. selective breeding (which in our society could be occurring naturally, at least in part, by females choosing to have children with men who share their moral values). With some effort, wild foxes that are completely hostile to humans change to friendly pets in just a few generations.^[ECD]

People have **no incentive to fight a system that is truly and verifiably designed for and working for their good**, as they would be fighting against their own good. Violence in such world doesn't make sense, which is why in our society violence and resistance can come only from lunatics who are unable to think clearly.

We acknowledge that at the present day there are many individuals, such as radical far right activists, for whom it is too late and who are practically impossible to be convinced to change. However, we are looking far beyond the time of this generation, the time when these individuals will long be gone. At the current time we aim to influence just some people, who will further go on to influencing others and next generations by adopting some of our ideas and passing them to their own children.

**Upbringing** (and not just by parents but by environment at large) is an extremely powerful force determining the nature of an individual. Note that again, in the spirit of non-violence, we **are in no way talking about forceful upbringing**, as that very often leads to achieving the exact opposite – the child later radicalizing **against** the ideas they were force fed – not talking about causing suffering to the child. We are talking about upbringing by **leading an example** and **growing up in the right environment**. For example, even though by evolution **nakedness is the natural thing to people**, they do the unnatural and all wear clothes, because they simply grew up among people who all wear clothes. Wearing clothes is not a force fed idea, it is a standard in our society, and we see practically no people rebelling against this standard. In the same sense we want our moral values, such as non-violence or opposing competition, to become the same standard.

Even though we're **non-violent** and **non-revolutionary**, we are still **strict**. We want to steer the wheel **slowly but firmly**.

Similarly with other issues, by the nature of our **slow change** approach, for some time we will have to tolerate and sometimes even keep doing things we disagree with – e.g. tolerate centralized governments. We may participate in the system, vote and try to make it better by passing laws that will do less harm, while in the meantime working on getting rid of the system. We may sometimes use free licenses for our software and art, even though we fundamentally disagree with the concept of a license. **On the other hand**, if it is moral from our point of view, it is **good** and **desirable** to voluntarily make rapid and significant changes, for example to **never use proprietary software**, to **never eat meat**, to **actively work against global warming** and so on.

Keep in mind that even though we are strictly against **companies**, that is organizations whose goal is profit, we are **not** against organizations in general! We support formation of **non-profit organizations** and nowadays see them as a great way to contribute to society in the framework of the current system. We know non-profits currently suffer from imperfections, such as some similarities to companies, but their goal is absolutely correct (and correctly reflected in the name *non-profit*), and practice indeed shows they usually do much more good than harm, which is only small and very tolerable. These small imperfections will be fixed as our cause is advanced. 

It is clear by now capitalism and competition have infected all vital parts of our civilization, and so it is impossible to abandon them at once without doing an immense unacceptable harm of immediately destroying the basis of the society without having an alternative ready. Our first focus has to be on curing small parts of our society and establishing the foundations for the alternative.

For example, nowadays practically every single piece of an intellectual work – even hobbyist, educational and by intent non-commercial – is protected by some kind of intellectual property law, which is advertised by the propaganda as *preventing exploitation of the author's work*, which may be partially true, but at the same time, which is no longer part of this advertisement, **preventing use of the work for the benefit of society** – remixing and improving – the kind of use our culture has been dependent on since its birth until the recent copyright maximalism has appeared.^[FRC] By the same logic used to justify copyright we could state that a murder is justified because it prevents the victim from dying of cancer. The very worst part is however that the propaganda is successful in making the authors themselves believe the partially censored truth, making them thoughtlessly support the laws and stick the *all rights reserved* to anything they create. As a result, in this society practically every hobbyist and even many charities sworn to helping the society at wide will want to keep their copyright, letting business further into areas where it should never belong, killing the public domain, the idea of completely free sharing and business-free mentality. We think that in the near future it is crucial to achieve a society in which this kind of thinking is changed and in which there are at least **some** places again completely free of business.

How to achieve this? We need to **educate**, **spread awareness**, **lead an example** and **support change** of laws. People must first understand the issue – e.g. the issue of proprietary code, hence basic education in programming – then see the solution – education about free software – and finally demand and achieve the change. So if we teach about such things as free culture, free software, universal basic income and other socialist concepts, and show working examples, the perception of these issues will become wider and people may start demanding change of laws, for example abolishing automatic copyright or reducing its term and scope. This will lead to more public domain and free as in freedom works, its bigger role in society, and ultimately the mentioned *curing* of one part of the society.

We need to constantly keep working on changing the mentality caused by shortcut thinking and wrong associations from old times. Stress that **creating jobs is wrong**, we need to **eliminate jobs**, automate everything and **strive for all people to lose their jobs** so that they can do **voluntary meaningful activities**. It is extremely important to realize and accept that **life must never be something to be earned**, as well as lack of suffering. One of our short time goals is therefore to implement **universal, unconditional basic income**.

Most importantly, we need to teach people to simply think – the important skill of **critical thinking** – to be able to educate themselves, be resistant to populism, lies and falsehoods, and be creative in further pursuing the goal. A common man has to become an independently thinking man.

So, in conclusion, **how can you, the reader, help?** What specific steps can you make right now if you have, at least partially, identified with our ideas? In accordance to these same ideas we will not give you a simple authoritative answer, we don't want to give orders. We simply ask you to **think and let yourself be influenced**, verify the logic yourself and let the ideas be present with you, and as result in your future actions. In some time, your life decisions will start to become subject to the questions we taught you to ask. Perhaps if you are an artist, you will decide to share some of your art freely and dedicate it to the public domain. Perhaps if there is a political party advocating some of our goals, such as universal basic income, you will decide to give it your vote. Perhaps when passing a homeless man on the street, this time you won't look away but will give him some money or buy him food. Perhaps you will decide not to support corporations if you don't have to and you will rather play a free software video game than buying a proprietary one, or you will even consider switching to a lower paying job which serves the society better than your current job. Perhaps you will decide to share this text with other people. Helping make the world a truly great place to live is the best cause we can ever dedicate our lives to.

## Appendix A: Our Views About Technology

Modern technology suffers immensely from the power of corporations that run the world, as we have already said. Here is what we imagine technology should look like in a better world, and which we therefore seek and prefer to use. As modern technology is dominated by computers and software, these will be our focus now, but the general ideas apply to all kinds of technology.

Our foremost priority is to use and create exclusively **free software**^[FRS] (sometimes referred to as *open source*, but we greatly prefer the former). This is not only because of the common reasons of security and its general better quality but also because of our support of information freedom and opposition to capitalism and centralized control. To us, the best form of free software is completely unburdened **public domain** free software (i.e. public domain source code) because of our mentioned opposition to the idea of intellectual property. Our definition of free software includes **all parts of the software**, i.e. even **non-functional data**. With this definition we are closer to Debian than the FSF.^[DVG]

Secondly, when the software is free, we prefer so called **suckless**,^[SUC] **KISS**, **minimal**, *good enough*, **reusable** software, following at least some of the principles of the **Unix philosophy**, because we are concerned with accessibility and efficiency. Let us stress that this applies to all kinds of technology, even that such as video games. For any technology we highly support **hackability**, **transparency**, **maintainability**, **portability** and the ability to be **easily repaired**. A piece of software should be maintained by as few programmers as possible and understandable by as many programmers as possible, be highly reusable and have as few dependencies as possible in order to survive and last for as long as possible, in order to not waste effort on reinventing wheels as we're used to in the current proprietary industry. We believe that this kind of technology is the natural kind and will come when the unnecessary *bloat* resulting from capitalism no longer encumbers it. This doesn't mean we can't create complex technology, just that it shouldn't be more complex than it needs to be to help people.

For these reasons, if we are presented with the choice, we prefer to avoid capitalist inventions that don't adhere to the above, such as C++, Java, OOP in general, heavyweight IDEs and platforms etc. This is only a preference, not a strict rejection. We however strictly reject languages such as C# that are either proprietary or de facto owned by a corporation.

Furthermore, in the spirit of anarchism, we are for **autonomy and independence** of technology users, i.e. **decentralization and distribution** of computer systems and the capability of **working offline**. We oppose modern capitalist trends going against this, such as **clouds**, **DRM** or **software as a service** (SaaS, or more correctly SaaSS – service as a software substitute). We are **not** against servers and centralized technology per se, e.g. archives or game servers, as long as they don't create social hierarchies, don't take away the freedom of users and don't endanger our society in other ways. This applies not only to software, we think more technological autonomy and decentralization is needed, not only to prevent abuse, but also to prevent disastrous scenarios of central node failures, such as blackouts, to which capitalism exposes us nowadays (consider e.g. the fact that Microsoft has the power to shut down any country by simply remotely disabling Windows computers in it, thanks to the universal backdoor that is by design present in Windows^([WBD])). People should be allowed and encouraged to make their own electricity, tools, food etc.

## Appendix B: Our Views About Existing Movements and Organizations

We are eternally grateful for what **Richard Stallman** (RMS) and his **Free Software Foundation** (FSF) have achieved in showing the malicious nature of proprietary software, defining free software, promoting and supporting it, showing it not only works but mostly even **outperforms** proprietary software, and mainly strongly holding to **strict ethics** as the main drive beyond the movement.

We, however, have a word of criticism about the FSF as well. For example, despite being extremely strict about free software, they do **not** support the related concept of **free culture**. The FSF states that *non-functional data* (e.g. art assets in video game) that are part of software **don't** have to be free, i.e. are an exception from the four essential freedoms. They routinely use **non-free** licenses, such as CC-BY-ND, for the media they create (e.g. videos of talks or texts). Their **GNU free documentation license** (GFDL) allows to include *invariant* (no derivative) sections,^[GFN] making the licensed work **not free**, despite the name. GNU Verbatim Copying License is another non-free license from GNU. Furthermore their preference of **copyleft** is something we tolerate as successful means of preventing harm by corporations, but do not fully endorse, as copyleft is based on **restriction via copyright**, which is something we don't support. The **Gnu General Public License** (GPL) itself is a free license, but it is also a long, complex legal text, existing in many variants (GPLv2, GPLv3, LGPL, AGPL etc.) and with many conditions that don't make forking and sharing very easy in practice. We highly prefer **public domain**, or at least permissive licenses (MIT etc.) that make sharing and reuse easier.

Similarly we are very grateful for what **Lawrence Lessig** and his **Creative Commons** (CC) have achieved in helping generalize and spread the ideas of free software to also include **culture and art**, making it easy to practice free culture and subsequently even helping free cultural licenses get somewhat into the mainstream.

However, we have to express criticism on the address of Lessig and CC too. Lessig says in his book *Free Culture* that he is ultimately **for** the concept of **intellectual property**. Additionally the book *Free Culture*,^[FRC] the bible of free culture, is **not** free-licensed (it has the ND restriction) and so is **not part of free culture itself**. At the very least it looks extremely dishonest to betray an idea by the very book that promotes it! Additionally we have to express sadness about the fact that CC offers **non-free licenses** – NC and ND – and that they are **widely confused for free licenses**. CC correctly inform on their website these licenses are not free, but not in a way that would prevent the confusion. There are additionally issues regarding the licenses themselves – e.g. the CC0 waiver, supposed to dedicate a work into public domain, **intentionally** doesn't waive any intellectual property rights besides copyright (such as patents or trademarks) in order to make it possible to make profit off of the work.^[CNP] But by this, confusingly, the waiver actually sometimes does **not** achieve public domain (which is defined as a body of works free of **any** intellectual property, not just copyright). This complicates use e.g. for software (and there is currently no alternative for dedicating software to public domain), and generally goes against the idea of creating a work that stands outside of the business sphere. It seems that **Creative Commons are not serious about free culture**.

We recommend reading Nina Paley's *RANTIFESTO*^[RAN] which voices similar criticism. There are unfortunately no movements that would **strictly** and seriously promote **free software, free hardware and free culture** at the same time.

We are also very grateful to **Gandhi** for his non-violent movement's contribution to society, and to others that followed him such as Martin Luther King. We extremely value that Gandhi not only taught us the principles of non-violence, but also demonstrated that non-violence is a legitimate and effective tool, practically usable **on large scale**. We however don't identify with all Gandhi's values – Gandhi was, unlike us, **not an anarchist**, as he e.g. supported strict legislative restrictions of freedom, e.g. alcohol prohibition.^[GAN]

The **Open Source** movement is (from historical point of view) a relatively recent fork of the Free Software movement, and as such still carries on some good of it, though from the start it has taken a very wrong direction of abandoning the interest of people (**ethics**) and replacing it with **business interests**, which quickly lead to its corruption, and so we **do not support the Open Source movement**, though as free software supporters we often get to collaborate with them. Open Source definitely did help in creating and supporting many great free software projects, but the bad it does is already starting to surpass the good. Due to refocusing from the goal (ethics) on the means (open source) companies like Microsoft are able to abuse the open source brand and slowly shift the goal towards their own interests (which is fight against free software). Microsoft is already seen trying to become the owner and defining force of *open source*, by buying GitHub, infiltrating Linux development, spreading its propaganda (*"Microsoft loves Linux"*) and so on. The movement itself, having lost the sense of the original goal, already starts to accept software violating free software definition and even **their own** official OSI definition of *open source*. The open source supporters, such as **Linus Torvalds**, don't share our concerns about proprietary software, and are often even supporting it. We want to have nothing to do with this.

In previous chapters we have explained why movements such as **feminism**, **LGBT** and **Antifa** are not leftist movements but **pseudo leftist** – because of their means of operation and at least questionable goals – and so we **do not** support them, even though we usually support the idea that may have been present during their birth, i.e. equality of genders and sexual orientations and opposition to fascism.

We have more sympathy for organizations such as PETA (who are not a movement, but a non-profit organization). PETA aren't aiming to gain rights for themselves, but **solely for others** – in this case animals – and that in an honest way. The purpose of their sometimes vocal and loud behavior is, similarly to that of the FSF, attracting attention for the cause, **not** spreading fear and pride of superiority, as is the case with feminists and LGBT members.

We fully support veganism and ethical vegetarianism, as these are completely in accordance with our values.
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- *[CNH]*: This observation has been made by many others, e.g. from John Steinbeck's **Grapes of Wrath**: *"The bank is something else than men. It happens that every man in a bank hates what the bank does, and yet the bank does it. The bank is something more  than men, I tell you. It's the monster. Men made it, but they can't control it."*
- *[CNP]*: **CC0 1.0 Universal**, https://creativecommons.org/publicdomain/zero/1.0/legalcode.txt: *"No trademark or patent rights held by Affirmer are waived, abandoned, surrendered, licensed or otherwise affected by this document."* 
- *[COC]*: **Code of conduct** (COC) is a declaration of how software developers should interact and it has recently become an infamous weapon for forcefully pushing the LGBT and feminist propaganda in free software development. Consider e.g. the following quote: *"We managed to remove Brendan Eich, Linus Torvalds and Richard Stallman. One white male homophobe, one white male tone deaf freak and sociopath and one white male misogynist. COC is our weapon. COC is how we cancel people who should have never be in any society in the first place."* (https://forum.freegamedev.net/viewtopic.php?f=20&t=12536#p88240, archived at https://archive.li/WGz6h#90%). COCs are anti-free speech and hurt free software development (i.e. a true leftist cause) by pushing important developers out of projects based on their political opinions or behavior (see e.g. the famous case of Linus Torvalds being forced to leave the development of his own project, Linux) and preventing rejection of incompetent developers who are under the protection of the COC. The most prominent COC is probably the *Contributor Covenant*, used e.g. by Linux, Go and Ruby on Rails, made by Coraline Ada Ehmke, a transgender LGBT activist.
- *[CUB]*: Countless examples of unethical behavior don't need much pointing out, but some examples include the symbol of capitalism, **Coca-Cola** (https://en.wikipedia.org/wiki/Criticism_of_Coca-Cola, accessed on 2019-08-23), **cigarette companies** (Chesterfield, Camels, Marlboro) falsely advertising smoking as healthy and even targeting children, **Nestlé** claiming and selling water during drought and without legal rights (https://www.latimes.com/food/sns-dailymeal-1864756-drink-nestle-extracting-water-illegally-drought-california-122817-20171228-story.html, accessed on 2019-12-21) or **General Motors** devastating the city of Flint by closing their factories, leaving thousands of people unemployed (portrayed in Michael Moore's 1998 documentary **Roger & Me**). Companies are frequently against protection of employees by unions, see e.g. the article **Delta told its workers to buy video games instead of unionizing** (https://www.vox.com/the-goods/2019/5/10/18564745/delta-anti-union-video-game-poster, accessed on 2019-08-24): *"The seemingly union-busting tactics are cringeworthy, but they’re not unusual."* The Delta posters read: *"Union dues cost around $700 a year. A new video game system with the latest hits sounds like fun. Put your money towards that instead of paying dues to the Union."*
- *[DEC]*: Nancy Pelosi, a high member of the Democratic Party, has publicly said at the CNN town hall in 2017: *"We're capitalists, and that's just the way it is."* According to Gallup inc. polls in 2018 about a half (47%) of Democrat supporters prefer capitalism to socialism. 
- *[DVG]*: **Debian** free software standards (https://people.debian.org/~bap/dfsg-faq.html#not_just_code, accessed on 2019-08-23): *"we apply our standards of freedom to all parts of all software in Debian. This includes computer programs, documentation, images, sounds, etc."*, vs **GNU** free software definition (https://www.gnu.org/distros/free-system-distribution-guidelines.en.html#non-functional-data, accessed on 2019-08-23): *"We don't insist on the free license criteria for non-functional data."*
- *[ECD]*: **Early Canid Domestication: The Farm-Fox Experiment**, by Lyudmila N. Trut, 1999: *"In the sixth generation bred for tameness [the foxes] are eager to establish human contact, whimpering to attract attention and sniffing and licking experimenters like dogs."*
- *[FES]*: It is not uncommon to hear feminists openly talk about wanting to surpass men, e.g. *"Women who seek to be equal to men lack ambition."*, a quote by Timothy Leary. Though this has been criticized by prominent feminists themselves, such as Betty Friedan, the movement's attitude didn't change.
- *[FRC]*: **Free Culture**, by Lawrence Lessig, 2004, http://www.free-culture.cc/freeculture.pdf.
- *[FRS]*: **What is free sotware?**, by the GNU project, https://www.gnu.org/philosophy/free-sw.en.html, accessed on 2019-08-20.
- *[FTU]*: **Demanding the Impossible: A History of Anarchism**, by Peter Marshall, 1992, page 473: *"He took the initiative in organizing an area of some four hundred square miles with a rough population of seven million into an autonomous region […] Anarchists were in charge of a large territory, one of the few examples of anarchy in action on a large scale in modern history."*
- *[GAN]*: In a TV interview for Fox Movietone News from 30 April 1931 Gandhi confirmed he was for complete prohibition in new India. An Anarchist FAQ^[AFQ] also says in the section *A.3.7 Are there religious anarchists?*: *"we must stress that Gandhi was not an anarchist"*.
- *[GFN]*: from the **GNU Free Documentation License**, version 1.3, section 4. MODIFICATIONS (https://www.gnu.org/licenses/fdl-1.3.en.html#section4): *"You must […] preserve all the Invariant Sections of the Document, unaltered in their text and in their titles."*
- *[GND]*: **Licenses for Works stating a Viewpoint**, on the GNU website, https://www.gnu.org/licenses/license-list.html#OpinionLicenses, accessed on 2019-08-23.
- *[GNM]*: **The GNU Manifesto**, by Richard Stallman, 1985, https://www.gnu.org/gnu/manifesto.en.html.
- *[HGW]*: Interview with Göring during the Nuremberg Trials, 18 April 1946.
- *[ISL]*: **The Qur'an: An Encyclopedia**, by Taylor & Francis, 2006 – page 416: *"the righteous is he who […] gives of his money, in spite of loving it, to the near of kin, the orphans, the needy, the wayfarers and the beggars, and for the freeing of slaves"*, page 214: *"In addition to the countless references to forgiveness throughout the Qur’an, there are numerous examples of the practice of it in the life of the Prophet, who is celebrated [as the 'perfect human']"*, page 415: *"Of all the human virtues, the Qur’an insists most frequently and most urgently on benevolence to the poor, the needy, the stranger, the slave and the prisoner. This is expressed in the form of compulsory alms-giving (zakat) and, more importantly, in the form of voluntary charity (saclaqa)."* **Muslim's Character**, translated by Mufti A. H. Usmani, 2004 – chapter 14: *"Hardness be Replied with Softness. […] He should consider overlooking of the errors of the wrongdoers as a kind of gratitude to Allah"*, chapter 15: *"[Islam] has advised [its followers] to treat others kindly, to act righteously, to help their kinsmen and to do all kinds of good and virtuous deeds"*.
- *[LAN]*: **Food that Builds Community: The Sikh Langar in Canada**, by Michel Desjardins and Ellen Desjardins, 2009. Also on Wikipedia: https://en.wikipedia.org/wiki/Langar_(Sikhism).
- *[LKC]*: Linux is one of the most (if not the most) important pieces of software in history, it powers most Internet servers and a lot of other computers. Its creator, Linus Torvalds, started the project as a hobby, without the goal of profit, and made it free as in freedom.^[FRS] In his book **Just for Fun** he writes: *"The most important part of the project was to just figure out what this machine did and have fun with it […] Everybody knew I wasn’t making any money on Linux."* In a famous e-mail from the beginnings of the project he states: *"I’m doing a (free) operating system (just a hobby, won’t be big and professional like gnu)."*
- *[LOT]*: The computed negative expected value can be found e.g. in the Business Insider article **The Mega Millions jackpot is over $500 million — we did the math to see if it's worth buying a ticket**, by Andy Kiersz, 2018, https://www.businessinsider.com/mega-millions-lottery-jackpot-expected-value-2018-3. 
- *[LCU]*: **The Learning Curve**, by F. E. Ritter and L. J. Schooler, 2001, 10.1016/B0-08-043076-7/01480-7.
- *[MCM]*: A very essential text criticizing capitalism is e.g. the famous **Manifesto of the Communist Party**, by Karl Marx and Frederick Engels, 1848.
- *[MHD]*: **Is Mental Health Declining in the U.S.?**, by Edmund S. Higgins, 2017, https://www.scientificamerican.com/article/is-mental-health-declining-in-the-u-s/: *"Suicide rates per 100,000 people have increased to a 30-year high […] Disability awards for mental disorders have dramatically increased since 1980 […] They found that the toll of mental disorders had grown in the past two decades […] Over the past two decades mental illness has become the second most common cause of disability in the U.S."*
- *[MOG]*: **Monopoly’s Inventor: The Progressive Who Didn’t Pass ‘Go’**, by Mary Pilon for    www.nytimes.com, https://www.nytimes.com/2015/02/15/business/behind-monopoly-an-inventor-who-didnt-pass-go.html, accessed on 2019-08-19: *"[Elizabeth Magie] designed the game as a protest against the big monopolists of her time."* **Monopoly Game: Cheaters Edition**, released in 2018, comes with such promotions as *"Complete a cheat to get a reward, but fail a cheat and pay the consequences!"*
- *[POV]*: **How Long Will It Take to Lift One Billion People Out of Poverty?**, by Martin Ravallion, 2013: "*At the time of this writing (in 2012), the available data indicate that 1.2 billion people in the world live in poverty.*" **Investment and Development Will Secure the Rights of the Child**, by Dr. Ernest C. Madu: *"About half of the world’s 2.2 billion children live in poverty, and 300 million go to bed hungry each night."*
- *[RAN]*: **RANTIFESTO**, by Nina Paley, 2011, https://blog.ninapaley.com/2011/07/04/rantifesto/, accessed on 2019-08-23.
- *[SHE]*: **shitexpress**, https://www.shitexpress.com/, accessed on 2019-08-19.
- *[SUC]*: **suckless, software that sucks less**, https://suckless.org/, accessed on 2019-08-23.
- *[TGE]*: Richard Stallman aggregates a sourced list of sins of tech corporations on his website https://stallman.org/ under the section **What's bad about** (accessed on 2019-08-20). These include spying, censorship, patent trolling, worker abuse and tax avoidance by companies such as Microsoft, Apple, Amazon, Netflix, Google, Intel and others. **Techrights** website wiki at http://techrights.org/wiki (accessed on 2019-08-20) offers similar summaries under the section **TechWRONGS**, e.g. http://techrights.org/wiki/index.php/List_of_Microsoft_Sins.
- *[UCD]*: **The evils of unregulated capitalism**, by Joseph Stiglitz (American economist, Nobel Prize laureate, member of the capitalist^[DEC] Democratic party), 2011, https://www.aljazeera.com/indepth/opinion/2011/07/20117714241429793.html (accessed on 2019-08-23): *"I [hoped] the financial crisis would teach Americans [about] the need for greater equality, stronger regulation, and a better balance between the market and government."*
- *[WBD]*: Universal backdoor, a great security vulnerability, is present in Windows operating systems under the name *automatic software updates*. Microsoft doesn't hide this fact, it is descibed in the terms and conditions of use: *"By accepting this agreement, you agree to receive these types of automatic updates without any additional notice."* (https://www.microsoft.com/en-us/Useterms/Retail/Windows/10/UseTerms_Retail_Windows_10_English.htm, accessed on 2019-09-17).
- *[WDI]*: **An Economy for the 99%: It's time to build a human economy that benefits everyone, not just the privileged few**, by Deborah Hardoon, 2017.
- *[WRL]*: **Right-wing politics** and **Left-wing politics** at Wikipedia, accessed on 2019-08-24, https://en.wikipedia.org/wiki/Right-wing_politics and https://en.wikipedia.org/wiki/Left-wing_politics.
- *[ZOM]*: **The Art of Not Being Governed: An Anarchist History of Upland Southeast Asia**, by James C. Scott, 2009 – from preface: *"[Zomia] is an expanse of 2.5 million square kilometers containing about one hundred million minority peoples [who] have not yet been fully incorporated into nation-states. […] Virtually everything about these people’s livelihoods, social organization, ideologies, and (more controversially) even their largely oral cultures, can be read as strategic positionings designed to keep the state at arm’s length. […] Not so very long ago […] self-governing peoples were the great majority of humankind."*
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My Text Data
computer history cheatsheet
-80000     ;technology;     bone ribs probably used for counting
-2400      ;technology;     abacus (a simple calculating tool) invented
-1115      ;technology;     south-pointing chariot (device always pointing to south using cogwheels) invented in China
-500       ;theory;         1st known use of 0 by mathematicians in India
-300       ;theory;         1st use of binary number system by Indian mathematician Pingala
-200       ;technology;     suanpan (a version of abacus, still in use) invented in China
-125       ;technology;     1st known analog computer by Greeks: Antikythera mechanism (used for tracking heavenly bodies using bronze gears)
-100       ;theory;         1st use of negative numbers by Chinese mathematicians
60         ;technology;     1st program by Heron of Alexandria: cart controlled by falling weight, "programmed" with strings
724        ;technology;     1st fully mechanical clock by Chinese inventor Liang Lingzan
1822       ;theory;         Joseph Fourier introduces Fourier transform
14.6.1822  ;technology;     Charles Babbage proposes a mechanical computer to tabulate polynomial functions: Difference Engine
9.1832     ;theory;         Semen Korsakov proposes use of punch cards for data storage in informatics
1835       ;technology;     Joseph Henry invented electromechanical relay
1837       ;technology;     Charles Babbage proposes 1st general-purpose (punch-card) programmable (mechanical) computer: Analytical Engine
1842       ;theory;         1st computer program (computation of Bernoulli numbers) written by Ada Lovelace for Analytical Engine when translating Babbage's work
1847       ;theory;         George Boole introduces Boolean algebra (in The Mathematical Analysis of Logic) - theoretical base of digital technology
1880       ;company;        Bell Labs founded
1885       ;company;        AT&T founded
1906       ;technology;     Lee De Forest improves vacuum tubes so that they can become a predecessor to transistors
1911       ;company;        CTR (future IBM) founded by consolidation of four companies
1924       ;company;        CTR renamed to IBM
1924       ;technology;     Walther Bothe built 1st AND logic gate
1925       ;company;        Bell Labs consolidated with AT&T
22.10.1925 ;technology;     transistor invented (though not to be practically used until 1953)
1931       ;theory;         Kurt Gödel publishes his incompleteness theorems
28.5.1936  ;theory;         Alan Turing introduces Turing machine and a proof of undecidability
1938       ;technology;     1st mechanical binary computer with limited programmability: Z1
31.12.1939 ;company;        Hewlett-Packard founded
5.1941     ;technology;     1st programmable, fully automated electromechanic computer: Z3
1942       ;technology;     1st special purpose digital computer: Atanasoff-Berry computer
1943       ;technology;     1st special purpose programmable digital computer: Colossus
1944       ;technology;     1st general purpose programmable digital computer: ENIAC
1945       ;technology;     1st high-level computer language: Plankalkül
30.6.1945  ;theory;         John von Neumann describes Von Neumann architecture (program stored in memory)
1946       ;technology;     1st commercial calculator by IBM: IBM 603
1948       ;language;       1st assembly language written by Nathaniel Rochester in IBM
1950       ;game;           1st video game presented: Bertie the Brain (tic-tac-toe)
1952       ;technology;     1st compiler written by Grace Hopper for A-0 System
1953       ;language;       FORTRAN language proposed at IBM by John Backus
1953       ;technology;     1st transistor computer (vacuum tubes or relays were used before)
1955       ;OS;             1st operating system: MIT Tape Director
1956       ;theory;         Noam Chomsky describes the Chomsky hierarchy of formal languages
1958       ;language;       Lisp invented
12.9.1958  ;technology;     1st silicon integrated circuit demonstrated by Jack Kilby
1959       ;theory;         Dijkstra's shortest path algorithm published by Edsger Dijkstra
1.1.1963   ;company;        IEEE association is formed by merging IRE and AIEE
1963       ;technology;     mouse invented
1968       ;theory;         Donald Knuth publishes The Art of Computer Programming, a Bible of computer science
1968       ;company;        Intel founded
1968       ;OS;             MIT and Bell Labs start working together on Multics operating system
1969       ;OS;             Bell Labs pull out of Multics development
1969       ;OS;             Ken Thompson and Dennis Ritchie's team starts writing Unix operating system
1969       ;event;          RFC (request for comments) format is created as a part of ARPANET project
1.5.1969   ;company;        AMD founded
24.7.1969  ;event;          1st manned landing on Moon
29.10.1969 ;technology;     Internet starts by sending letter "L" over ARPANET network
1.1.1970   ;event;          start of computer epoch as defined by Unix timestamp
1970       ;OS;             AT&T releases (so called research) Unix, including its source code
11.1.1971  ;event;          term Silicon Valeey coined by journalist Don Hoefler
1971       ;theory;         Stephen Cook publishes a paper which describes the famous P vs NP problem
1971       ;language;       SQL (then SEQUEL) starts being developed at IBM for their computer databases
1971       ;technology;     first commercial 8-inch floppy disk released by IBM (80 KB)
1971       ;language;       Pascal, an introductory high-level language, published by dr. Niklaus Wirth
1972       ;technology;     Ray Tomlinson invents e-mail by writing a system using addresses with "@" symbol
1972       ;language;       C programming language developed by Thompson and Ritchie
1972       ;OS;             Unix rewritten in C
12.1974    ;technology;     RFC 675 specifies the TCP protocol and uses the word Internet for the 1st time
1975       ;OS;             Unix (version 6) is first being sold commercialy
1975       ;technology;     first succesfull personal computer: Altair 8800
4.4.1975   ;company;        Microsoft established
1.4.1976   ;company;        Apple established by Steve Jobs, Steve Wozniak and Ronald Wayne
1976       ;theory;         assymetric cryptography concept published by Whitfield Diffie and Martin Hellman, digital signature introduced
7.1976     ;company;        Steve Wozniak completes Apple I, 1st computer for Apple to sell
1978       ;technology;     Donald Knuth writes 1st version of TeX typesetting system for his next releases of The Art of Computer Programming
9.3.1978   ;OS;             1st BSD (Unix software distribution from Berkley university) released
1978       ;technology;     1st commercial analog optical disc: LaserDisc (LD), not very succesful
1979       ;language;       Bjarne Stroustrup begins work on C++ (then "C with classes")
5.1979     ;OS;             2nd BSD released (included vi and C shell)
2.1981     ;OS;             Microsoft buys 86-DOS OS, renames it to MS-DOS and sells the license to use it to IBM
12.8.1981  ;technology;     IBM releases IBM PC (personal computer) with MS-DOS
1982       ;company;        SGI (Silicon Graphics) founded, start working on IrisGL graphics API
1982       ;technology;     1st commercial CDs
24.2.1982  ;company;        Sun Microsystems founded
1983       ;technology;     1st 3.5 inch floppy disks (1.44 MB)
27.9.1983  ;company;        Richard Stallman announces the GNU project
11.1983    ;technology;     Paul Mockapetris invented and implemented DNS to allow domain names on the Internet
4.10.1985  ;company;        Free Software Foundation founded by Richard Stallman
1984       ;technology;     Apple Macintosh released
6.1984     ;game;           Tetris created by Alexey Pajitnov
20.11.1985 ;OS;             MS Windows 1.0 released
1985       ;company;        ATI founded
1985       ;language;       Object Pascal development started at Apple
6.1985     ;company;        Steve Jobs fired from Apple management, founds NeXT
1986       ;technology;     Intel releases 80386 (i386) 32-bit, 40 MHz processor
1986       ;company;        JPEG (Joint Photographic Experts Group) comittee founded by CCITT and ISO to standardize image compression
3.2.1986   ;company;        Pixar founded
18.12.1987 ;language;       Larry Wall published 1st version of his new language, Perl
1987       ;OS;             MINIX (non-free Unix-like OS for academic purposes) released
1988       ;OS;             1st version of POSIX, an operating system standard, is released
1988       ;company;        MPEG (Moving Picture Experts Group), a group of companies, is established to standardize audio and video formats
1989       ;technology;     Intel releases 80486 (i486) 32-bit, 50 MHz processor
1989       ;technology;     Karlheinz Brandenburg completes his doctoral work which a little leads to MP3 format
25.2.1989  ;event;          GPL license written by Stallman
12.1989    ;language;       Python implementation started
12.1990    ;language;       work on Java (then named "Oak") begin in Sun Microsystems to replace C++
12.1990    ;technology;     Tim Berners-Lee has written tools for WWW (world wide web) at CERN: HTTP, HTTP server, HTML, 1st web browser (WorldWideWeb) and 1st web pages
25.8.1991  ;OS;             Linus Torvalds announces Linux (free OS kernel, made with MINIX) on usenet group
1.1992     ;technology;     First OpenGL open standard released as a succesor to IrisGL by SGI
18.9.1992  ;technology;     1st JPEG compression standard published
12.1992    ;OS;             Linux released under GPL
24.2.1993  ;language;       Yukihiro Matsumoto proposes Ruby programming language in mailing-list
4.1993     ;company;        NVIDIA founded
8.1993     ;OS;             Debian 0.90 Linux distribution released
10.12.1993 ;game;           Doom released
1993       ;OS;             FreeBSD is born by forking BSD in which AT&T's code has been completely replaced with free code
10.1994    ;company;        Tim Berners-Lee founds W3C (World Wide Web Consortium)
1995       ;company;        Red Hat founded
1995       ;language;       Rasmus Lerdorf starts writing tools for his personal webpage, which become PHP (Personal HomePage)
23.5.1995  ;language;       Java released by Sun Microsystems
24.8.1995  ;OS;             Windows 95 released
9.1995     ;language;       1st JavaScript (then LiveScript) released with Netscape Navigator 2.0 browser
1996       ;technology;     IPv6 is being published in a series of RFCs to replace IPv4 when it runs out of addresses
1.1996     ;company;        Google (originaly BackRub) begins as a research project by Larry Page and Sergey Brin
1996       ;technology;     1st DVDs
1996       ;language;       1st CSS released by W3C
1997       ;company;        Steve Jobs returns to Apple
2000       ;company;        Khronos Group (non-profit media standardisation consortium) formed (including ATI, NVIDIA, Intel, SGI, Sun and others)
7.2000     ;language;       .NET and C# announced by Microsoft
15.1.2001  ;company;        Wikipedia started
24.3.2001  ;OS;             1st Mac OS X (based on the OS from NeXT) released
25.10.2001 ;OS;             Windows XP released
10.2001    ;technology;     Apple introduces iPod player
2003       ;company;        4chan started, the Anonymous group starts to form on the website
10.2003    ;company;        Android company founded to work on a new OS for mobiles
28.10.2003 ;company;        Mark Zuckenberk writes Facemash, to later become Facebook
10.2004    ;OS;             1st Ubuntu Linux distribution (based on Debian) released
23.11.2004 ;game;           World of Warcraft released
6.2005     ;company;        Reddit founded
7.2005     ;company;        Android company bough by Google
21.3.2006  ;company;        Twitter launches, 1st tweet written
26.9.2006  ;company;        Facebook launches publicly for all people
9.1.2007   ;technology;     Apple unveils iPhone
5.12.2007  ;OS;             Android alpha, mobile OS built on Linux kernel, released by Google
22.10.2008 ;OS;             1st commercial phone with Android: HTC Dream
22.10.2009 ;OS;             Windows 7 released
27.1.2010  ;technology;     Apple announces iPad
31.1.2011  ;event;          last IPv4 top-level address was allocated
24.4.2015  ;technology;     Apple Watch released
16.2.2016  ;language;       Vulkan API released by Khronos Group
28.3.2016  ;technology;     Oculus Rift released
p          ;1928~?;         Noam Chomsky
p          ;1903~1957;      John von Neumann
p          ;1815~1864;      George Boole
p          ;1879~1955;      Albert Einstein
p          ;1912~1954;      Alan Turing
p          ;1914~1918;      WW I
p          ;1939~1945;      WW II
p          ;1953~?;         Richard Stallman
p          ;1955~2011;      Steve Jobs
p          ;1969~?;         Linus Torvalds
p          ;1955~?;         Bill Gates
p          ;1984~?;         Mark Zuckenberg
p          ;1987~1992;      Unix wars
p          ;1452~1519;      Leonardo Da Vinci
p          ;1856~1943;      Nikola Tesla
p          ;-4~33;          Jesus          

bash cheatsheet
This file is a BASH cheat sheet suited to me specifically, i.e. it contains stuff I use the most.

========= UTILS ========
  POSIX:
    alias name=cmd      manage aliases
    at time             schedule a job (commands from stdin) to be executed at later time by another shell, time is a set of separate arguments
                        (NOT a single string) consisting of: now, midnight, noon, today, tomorrow, +, X hours, X minutes, X weeks, X years,
                        (e.g. echo "touch somwhere/yes.txt" | at now + 1 minute)
      -f file             read commands from given file instead of stdin
    awk prog            process input text by matching records (lines by default) of fields (words by default) to patterns and executing specified actions
                          pattern { action }, pattern can be for example /regexp/ (gawk only), action can be for example print var1 var2 etc. ($0 - whole
                          record, $1 - 1st field, $2 - 2nd field, ...)
      -F regexp           specify field separator
    basename file       print base name of file (without path, with extension)
    batch               schedule commands to execute (equivalent to "at -q b -m now")
    bc                  calculator, prints result of input from stdin (supports +,-,*,/,^,float,brackets)
    cal                 print calendar
    cat f1 f2 ...       print files to stdout
    cd dir              change directory
    cksum f1 f2 ...     print checksum (CRC) of given files
    chmod mode file     change file modes (mode: +x allows execution, -r disallows read etc, +w allows write etc.)
      -R                recursive, apply to all directories and files inside them
    cmp f1 f2           compare two files (write the first line number where they differ)
    comm f1 f2          compares two files and writes three coluumns: uniqui lines in f1, unique lines in f2, lines common to f1 and f2
      -1                  discard column 1 (lines unique for f1)
      -2                  discard column 2 (lines unique for f2)
      -3                  discard column 3 (lines common to f1 and f2)
    cp src dst          copy file
      -R                recursive, copy directories with subdirectories
    cut                 from each line of the input print specified item (byte/character/record)
      -b n1,n2,...        print n1th, b2th, ... byte of each line
      -c n1,n2,...        print n1th, b2th, ... character of each line
      -f n1,n2,...        print n1th, b2th, ... record of each line
      -d c                delimiter used for records
    date format         write date and time, format (e.g. "+%d.%m.%Y:%H:%M:%S") starts with + and contains format chars:
                          %a %b    abbreviation of day of week/month
                          %H %I    hours (24hour/12hour format)
                          %M %S    minutes/seconds
                          %Y %y    year (full/within century)
                          %d %m    day of month/month
    dd                  read input by blocks of given size (512b by default) and filter them in given way (last block is padded with zeros if needed)
      bs=n                block size in bytes
      skip=n              skip first n blocks before copying to output
      count=n             copy only n blocks
      conv=filter         apply filter:
                            swab   swap each pair of input bytes (little endien vs big endien)
                            icase  map to uppercase
                            ucase  map to lowercase
    df                  print free disk space
      -k                  write in kB (1024 b) units
    diff file1 file2    compare and show difference of two files
      -b                  treat whitespaces at the end of the line as a single newline
      -C n                show n lines of context in the output
      -u                  unified format (+ and - symbols)
      -f                  alternative output format
    dirname file        print dirctory part of given path
    dot file            execute script in current environment (. can also be used), returns the value returned by last command in script
    du f1 f2 ...        print file size, by default lists all files in all subdirectories
      -s                  print only total size of specified files
      -L                  follow symbolic links
    echo str1 str2 ...  print strings to stdout
      -n                  don't print the final newline
    ed                  text editor (line-based)
    eval str1 str2 ...  concatenates the arguments (separates with space) and evaluates them as a command
    exit                exit the shell
    expr a b c ...      evaluates a logical expression formed from symbols (each is a separate argument, the expression is NOT a single string):
                          int             integer (0 = false, other are true)
                          | &             or (1st if it's not 0 else 2 if it's not 0 else 0), and (1st if none is 0 else 0)
                          = != < > >= <=  comparisons
                          + - * / %       integer math
                          ( )             brackets, group expressions together
    false               return false
    file                determines and writes the file type (also takes a look at the content, e.g.: HTML UTF-8 file with long lines)
    find path           recursively search for files
      -name str           specifies the pattern to search for (e.g. *.txt)
      ! -name             exclude specific name, e.g.: find . -name "*.cpp" ! -name "not_this.cpp"
      -type               search only for specified file types (d - directory, f - regular file, l - symbolic link)
      -maxdepth n         maximum depth of search
      -iregex r           use regex to search for files (e.g. '.*/\(components\|apps\)/.*\.\(cpp\|hpp\)$')
      -L                  follow symbolic links
    fc                  command history list (by default opens with editor)
      -l                  list the commands (do not open with editor)
      -n                  don't show command numbers
      -r                  reverse the list
      n                   show command with given offset from current (-1 = previous command etc.)
    fold                reformats input to given width (replaces newlines with spaces and aligns to given width)
      -w n                width of the output
    getconf var         get the value of system config variable
    getopts options var parse command line options, each time it's used it placed the next option passed to the shell to var (argument will be
                        in OPTARG) and increments OPTIND variable, options is a string specifying recognized options (e.g. "ab:")
    gmic i1 i2 ... opts -o outimg    CLI version of image processing engine G'MIC (also used e.g. in GIMP)
      -crop x1,y1,x2,y2   crop image with two coordinates
      -mirror axis        mirros along given axis (x, y)
      -rotate deg,interp  rotate with given interpolation (0 = none, 1 = linear, 2 = cubic)
      -montage T,2,0,""   create montage from multiple input images, T is type (X = auto, H = horizontal, V = vertical, ...)
      -resize w,h         scale image to given size
      -scale2x            scale twice using scale2x pixel art scaling algorithm
      -blend T,val        blend two input images, T is type (add, alpha, average, overlay, ...), val is percentage as float (0.0 - 1.0)
      -ditheredbw         create a black&white image with dithering
      -to_gray            convert to grayscale
      -shift dx,dy,0,0,T  shift by given offset, T is boundary type (0 = none, 1 = const, 2 = repeat)
      -gradient_norm      detect edges (compute gradient)
      -noise perc,2       add noise of given percent (0 - 100), "2" means salt&pepper noise
      -blur perc          blur by given percentage (0 - 100)
      -median size        apply media filter (denoise)      
      -sharpen amplitde   perform sharpening
      -denoise width      apply denoise filter of given width
      -deform ampl        apply random deformation (warp) to image
      -cartoon smoothness apply cartoon filter
      -glow ampl          apply soft glow filter
      -eqalize            equalize histogram
      -map_tones thresh   perform tone mapping
      -line x1,y1,x2,y2   draw line on image
      -rectangle x1,y1,x2,y2  draw rectangle on image
      -text what,x,y,size,1,r,g,b  draw given text on image
      -morph frames       morph between two input images (will save output as new images)
      -mul floatval       multiply image by given value (values are 0 - 255), other math operatios are available too (min, mod, ...)
      -replace_color toler,smoothn,r1,g1,b1,r2,g2,b2   replace given color with another color, toler and smoothm are in percents (0 - 100)
      -fft                compute fourier transform (will save output as two images)
    grep                search input for regular expresion
      -e p1 p2 ...        specifies the regexp pattern to search for, it may contain:
                            . * \? \+ [] ^ \|             normal regexp characters (any char, > 0, 1 or 0, > 1, set, set negation)
                            ^ $                           anchors, match beginning and end of the line (^ anywhere else than at start is negation)                    
                            [:alnum:][:alpha:][:punct:]   special classes of characters
                            [:lower:][:upper:][:digit:]
      -E                  use extended regexp fromat: \? \+ \{ \} \| \( \) will be unescaped
      -i                  case insensitive search
      -r                  recursive, search all files in all subdirectories of given path
      -n                  write line number to each result
      -q                  quiet, write nothing
      -v                  invert search, match only lines NOT matching the patterns
      -c                  count, find maximum of c results
    head                print first n lines of the input
      -n n                how many lines to print
    iconv               convert text from one character encoding to another
      -c                  leave out unconvertable characters
      -f enc              inoput encoding (such as ISO-8859-15, UTF-8 etc.)
      -t enc              output encoding
    id                  print user identity (username, uid, gid etc.)
    join f1 f2          performs join operation on relational database-like records in two files which must be sorted on joining fields, example of the file:
                          alice  female
                          bob    male
                          frank  male
      -t                  separator of records (<tab>, <space>, ...), default is <blank>s
      -1 n                join on nth column of 1st file (n starts from 1)
      -2 n                join on nth column of 2nd file
    kill pid            terminate (or send other signal to) a process with given pid
      -s signal           name of the signal to send (SIGKILL, SIGTERM, SIGQUIT, SIGABRT, SIGKILL, ...)
    ls                  list files in current directory
      -a                  all, list even hidden files
      -l                  display in table format with file infos (modes, size, owner etc.)
      -h                  show numbers in human readable format
      -L                  follow symbolic links
      -R                  recursive, list all files in all subdirectories
      -1                  one file per line
      -b                  escape nongraphics characters (spaces become "\ " etc.)
    ln src dst          create link (hard links by default)
      -s                  create symbolic link
      -f                  force overwrites
    locale              write local-specific information
      -a                  write all available locales
      -m                  write available character encodings               
    make                build system for files created from other files based on a Makefile, specific target can also be given, makefile format consists of targets:
                          target: dependcy_file1 dependcy_file2 ...
                          <tab>command
      -f                  specify makefile, default is "Makefile"
      -i                  ignore errors of invoked commands
    man cmd             display manual (documentation) of given command
    mkdir dir1 dir2 ... create directories
    more file           display file in scrollable way
    mv src dst          move file (can also be used to rename file)
      -f                  don't ask if a file should be overwritten
    nl                  number lines
      -i n                increment numbering by n
      -n format           format: ln (left justified), rn (right justified), rz (right justified with leading zeros)
      -s sep              separator used to separate line numbers and text (default <tab>)
      -v n                start numbering from n
      -w n                width, number of chars used for line numbers
    nm file             display symbols in object file (.obj or executable), their type (upper: global, lower: local, a: absolute, d: data, t: text, U: undefined) and offsets
      - t format          offset format: d - decimal, o - octal, x - hexadecimal
    nohup cmd           launch cmd immune to SIGHUP signal (= terminal closed)
    od                  write (dump) the input in hex-editor manner (see also hexdump)
      -t format           format: type plus optional number of bytes to read the input by (e.g. d4), types are
                            a   named char
                            c   char
                            d   signed decimal
                            f   float
                            o   octal
                            x   hexadecimal
      -j n                skip first n bytes of input
      -N n                read n bytes of input
      -v                  write complete output (otherwise * will be used to make it shorter)
    paste f1 f2 ...     write files side-by-side
      -d string           delimit the columns with given string (default <tab>)
    patch file          apply changes (patch, produced by diff) from output to a file (will be modified)
      -b                  save backups of modified files (with .orig extension)
      -o file             write the patched file to the here specified file instead of the input file
      -R                  reverse, patch the file thge other way (from newer to older version)
    pr                  format input for printing on paper
      +n                  start at nth page
      -n                  produce n column output
      -a                  if using columns, they'll be actually written by lines
      -d                  double spaced output
      -h text             header of the page (default is the file name)
      -l n                number of lines on a page will be n
      -t                  don't write the page header nor the five trailing spaces for each page
      -w n                if columns are used, the width of each one will be n
    printf form a1 a2 ... format input arguments (a1, a2, ...) in given way and print them, the form is string specifying the format with possible formating elements in format:
                        %[flags][width][.precision]specifier, where each field has following possible values:
                          flags: # (prefix with 0x, o etc.) 0 (left pad with 0s) <space> (preceed non-negative number with space) - (left justify)
                          width: minimum number of characters to print
                          precision: minimum number of digits (for integers) or decimal digits (for floats)
                          specifier:
                            d u      signed/unsigned dec int
                            o        unsigned oct int
                            x X      unsigned hex int (lower/upper case)
                            f a      float (dec/hex)
                            e        scientific notation (mantisa^exponent)
                            g        shorter of %e or %f
                            s c      string/character
                            n        nothing
    ps                  print processes
      -A                  write all processes (by default only for current user and terminal)
      -f                  full, display more info
      -l                  long, display more info
      -o format           specify format for output
      -u userlist         write processes only of given users (uids or usernamers separated with commas)
    pwd                 print working (current) directory
    read var            read from stdin to variable
    rm file             remove files or directories
      -f                  force, do not prompt
      -r                  recursive, remove directory with all its files and subdirectories
    rmdir dir           removes directory
    sed prog            filter input text by lines, mostly used for substitution of regexps which has prog in format:
                        s/pattern/replacement/flags     where
                          pattern is regexp pattern same as in grep
                          replacement replaces the match, capture groups \1, \2, ..., \9 can be used (\1 = stuff inside first parentheses in pattern, ...)
                          flags can include: g (global, replace all matches in record), i (case insensitive), binX (use X as delimiter instead of /)
      -r                  use extended regular expressions (see grep)
    sh                  shell, runs a new shell
    sleep time          wait for given number of seconds
    sort                sort input lines
      -u                  unique, print duplicate lines only once
      -f                  ignore case
      -r                  reverse sort
      -n                  numeric sort, compare numeric values of the string (e.g. 2 vs 10)
    split file          split file into new files that will be named xaa, xab, xac etc.
      -l n                split by n lines
      -b n                split by n bytes (but do not split in middle of lines)
    strings             find printable strings in input (good for looking for strings in binary files)
      -a                  scan the whole file (otherwise only subportion may be scanned)
      -n n                minimum length of the string (4 by default)
      -t format           write offset for each string (d - decimal, o - octal, x - hexadecimal)
    strip file          remove unnecessary information from input file (determines automatically, for example debugging symbols etc.)
    stty                print or change the terminal settings
      -a                  write all terminal settings
      -g                  write all terminal settings in a format that can be given to another terminal to read
    tail                print last n lines of input (similar to head)
      -c n                count, print last n bytes
      -n n                print last n lines
    tee                 duplicate stdin to stdout
    test str1 str2 ...  evaluate a bool expression and return appropriate code (0 = true, 1 = false), the expression consists of separate args (NOT a single string):
                          -X file       true if given file is directory/regular file/symlink (X = d/f/h)
                          -Y file       true if Y permission (Y = r,w,x) is set
                          s1 op s2      true if two strings are equal (op: =) or not equal (op: !=)
                          n1 op n2      compares two integers based on op: -eq: =, -ne: !=, -gt: >, -ge: >=, -lt: <, -le: <=
                          e1 op e2      logical operation on two expressions based on op: -a: and, -o: or, ! and ( ) can also be used with expressions
    time prog a1 a2 ... measure run time of program prog with arguments a1, a2, ... and print them
    touch               create a new file or modify access and modification time to current time by "touching" it
      -a                  change only access time
      -m                  change only modification time
    tr s1 s2            translate (substitute, replace) characters of input in following way:
                          s1 = ABC..., s2 = XYZ... => each A will be replaced by X, B by Y, C by Z etc.
                          special values can also be specified c1:
                          [:alnum:] [:blank:] [:digit:] [:lower:] [:upper:] [:space:] [:alpha:] [:cntrl:] [:print:]
                          in c2 only [:lower:] and [:upper:] can potentially be used
      -d                  delete all occurences s1
      -s                  replace sequences of repeating characters by a single character 
      -C                  complement, replace all character NOT matching the characters in s1
    true                return true
    tsort               topological sort, print a TOTAL ordering consistent with given PARTIAL ordering from stdin (list of pairs of items that indicate ordering)
                        example: echo "1 2 4 5 3 3" | tsort outputs 1 3 4 2 5 (one of multiple options)
    tty                 print file name of the terminal connected to stdout
    type cmd            writes a type of given command (e.g. keyword, built-in, alias etc.)
    ulimit              print (or set) file size limit
    umask               print (or set, if provided as argument) the default file permissions
    unalias name        unset given alias
      -a                  all, unset all aliases from current environment
    uname               print system name, by default the OS name
      -a                  all, write all info
      -m                  hardware name
      -n                  network node name
      -r                  kernel release version
      -s                  OS implementation name
      -v                  kernel version
    unexpand            convert spaces to tabs
    uniq                convert sequences of repeating lines from input to a single line
      -c                  prepend each line with count of how many times it's repeated
      -d                  output only lines that are repeated
      -f n                ignore first n words (separated by blanks) of each line
      -s n                ignore first n chars of each line
      -u                  write only unique lines (lines that would not be outputted by -d)
    vi                  screen-oriented CLI text editor
    wait pid1 pid2 ...  wait for completion of processes with given PIDs
    wc                  word count, count and prints the number of words (or other units) of input
      -c                  count bytes
      -l                  count lines
      -m                  count characters
      -w                  count words
    who                 print info about logged in users
      -b                  write the time of the last system reboot
      -H                  write table heading
      -r                  write current run level of the init process
      -t                  write the last change to the system clock
      -u                  write idle time (time before any activity occured in the user's terminal) for users
    xargs cmd a1 a2 ... reads input from user and passes it as arguments (along with a1, a2, ...)to given command
      -E s                s will end the input of arguments (otherwise ctrl+d has to be used)
      -n n                reads n arguments, executes the command and starts over
      -I s                insert, command is executed after each line which is substituted for each argument a1, a2, ... that is equal to s
      -p                  prompt, ask user before executing the command
      -t                  trace, write the command being executed to stderr
  UTIL-LINUX:
    column              formats the input into columns, by default considers each line of input a single cell (doesn't split in the middle of lines)
      -c n                format the output for a display that is n characters wide
      -t                  consider the file already being a table and pretty print it
      -x                  fill columns first (from top to bottom, then from left to right), by default this is the other way around
    colrm start end     remove columns from input formatted to columns (for example with column), column is a single character in row numbered from 1,
                        end is optional, tab character increments the column counter to the next multiple of 8
    eject name          eject removable media (floppy, usb disks etc.), name can be a mount point or just a name without path
    fdisk device        manipulate disk partitions
    findmnt             list all mounted filesystems as a tree
    getopt              parse command line arguments, similar to xargs
    hexdump file        dump file in octal, decimal or hexadecimal (in a hexeditor fashion)
      -s n                skip first n bytes, can be entered as decimal, hexadecimal with "0X" prefix or octal with "0" prefix
      -n n                display only n bytes
      -C                  format: by bytes shown in hexa, offset in hexa, plus additional view of bytes as chars (classic hexeditor view)
      -b                  format: by bytes shown in octal, offset in hexa
      -c                  format: by bytes shown as chars, offset in hexa
      -d                  format: by two bytes as decimal, offset in hexa
      -o                  format: by two bytes as octal, offset in hexa
      -x                  format: by two bytes as hexa, offset in hexa
      -e format           specify custom format
    last                show a list of last logged in users
    lscpu               display information abou CPU (name, cores, architecture, cache sizes, flags, vendor ID, byte order, ...)
    lslocks             list local system locks
    lslogins            display known users in the system, their UIDs etc.
    mount dev dir       mount filesystem to given directory
      -t type             indicate filesystem type: ext, ext4, msdos, nfs, nfs4, ntfs, vfat, ...
      -r                  mount read-only
    rename p f1 f2 ...  rename multiple (for single file use mv) files (f1, f2, ...) accoordint to given patter (p) in sed format, e.g. 's/\e.txt$//' *.txt
    script file         records the following work in terminal to given file which can later be replayed with scriptreplay (--timing has to be used for this)
      --timing=file       record command timing into a separate file
    scriptreplay file   replay terminal work recorded with script, timing file has to be provided along with the input file
      -t file             timing file
    su                  opens a new shell as superuser (i.e. with admin privileges) or another user (if specified), asks for root password
      -c cmd              execute only a single given command
      -s shell            specify the shell to be opened
      -p                  preserve the current environment (with some exceptions)    
    umount what         unmounts what (device or directory) previously mounted with mount
    whereis what        print location of command, library, executable, man pages etc.
  GNU COREUTILS:
    dir                 write the content of current directory, synonymous to "ls -C -b"
    fmt                 format input text file by paragraphs
      -w n                format text to width of n characters
      -t                  indent first line differently from the rest of the paragraph
      -s                  only split long lines, do not refill
      -c                  preserve indentation of first two lines (good for headings)
      -g n                set gap size
    env                 show environment variables and their values
    install             copy files and set attributes
    nice cmd a1 a2 ...  run command with different scheduling priority (nice value)
      --adjustment=N      add N to the nice value (10 by default)
    ptx                 create an index of words in the input text file, along with their context
      -G                  traditional format
      -A                  include page references
      -R                  references on right
      -T                  output in Tex format
    seq first inc last  prints numbers from first to last by given increment
      -w                  make the numbers have equal width by padding with 0s
    stat file           display information about file
    tac file1 file2     print files in reverse (files are printed in given order, but their lines are printed from end to start), opposite of cat
    wget url1 url2 ...  download files from web to corresponding files, with advanced options
      -i file             read URLs to download from given file or stdin (if file="-")
      -O file             download all files to a single given file or stdout (if file="-")
      -r                  recursive, download also pages linked to by downloaded pages up to depth given with -l
      -l                  recursive depth (default is 5)
      -L                  with recursive downloading, follow only relative links
      -k                  convert links in downloaded files to point to other local downloaded files
      -E                  forces the downloaded files to have appropriate extensions (such as .html) even if they don't on the web
      -q                  quiet, don't write anything
      -nc                 if the same file is downloaded, only one is kept (by default they will all be saved with extension .1, .2 etc.)
      -nd                 no directories, download all files in the current directory even if downloading recursively
      --header=str        send str in the HTTP header along with other options (allows sending cookies for example)
      --post-data=str     use POST for HTTP requests and send specified data
      -P                  directory prefix, specifies the output directory
      -t n                set number of retries
      -T secs             set the timeout, i.e. the number of seconds to wait before skipping download
      -w secs             wait given number of seconds between downloads to lower the load on servers
      --random-wait       wait randomly 0.5 to 1.5 * number of seconds specified with -w, to appear more like human
      -B url              set base URL to be used when relative links are encountered
    whoami              print the user's effective ID
    yes str             repeatedly prints given string until killed (good for automatical confirmation)
  GNU BINUTILS:
    as file1 file2 ...    assembler
      -o obj                output .obj object file
    ld obj1 obj2 ...      linker, combines multiple .obj object files into one executable file
      -o file               output executable file
      -lLib                 link library named libLib.a to the executable, usable any number of timesq
    objdump a1 a2 ... o   display information from .obj object file (o), one or more of the following actions (a1, a2, ...) must be given:
                            -a              display archive header
                            -g              display debugging information
                            -d              disassemble
                            -S              display source code plus assembly if possible
                            -t
      -EB -EL               set big/little endien
      -l                    show line numbers
    readelf a1 a2 ... f   display information about ELF file (executable file format), one or more of the following actions (a1, a2, ...) must be given:
                            -a              display all info
                            -h              display the ELF file headers
                            -l              display the program headers
                            -S              display section headers
                            -t              display section details
                            -s --dyn-syms   display the symbol/dynamic symbol table
  GNU OTHER:
    gcc f1 f2 ...         GNU compiler collection front-end for compiling C and C++ programs (f1, f2, ...), can also link them (when given obj. files) etc.
      -o file               specify the name of the output file)
      -E                    preprocess (and output to stdout) but do not compile
      -S                    compile (to assembly output) but do not assemble or link
      -c                    compile and assemble (to .obj file) but do not link
      -O -O2 -O3 -Os        optimize/optimize more/optimize even more/optimize for size
      -std=S                specify language standard (c89, c98, c99, c++11, c++14, ...)
      -g                    produce debugging symbols and other debugging info
      -Wall                 turn on most warnings, good for avoiding mistakes
      -Wextra               turns on even more warnings than -Wall
      -pedantic             consider all warning errors
      -Ldir                 also search given directory for libraries when linking
      -Idir                 also search given directory for include files
      -lLib                 link library named libLib.a, usable multiple times
      -D symbol=x -u symbol consider symbol defined to x/undefined
    gdb                   GNU CLI debugger
    gpg                   GNU Privacy Guard, encryption/decryption and key management tool (OpenPGP standard)
      --gen-key             generate public/private key pair, sometimes needs rng-tools installed to generate enough entropy
      --list-keys           list managed public keys
      --list-secret-keys    list managed secret keys
      --import filename     import given key that's in a file (as PGP block), either public (*.pub) or private (*.priv)
      --export "person"     export public key of given person (usually combine with --armor and redirect to file)
      --export-secret-keys  same as --export but for secret keys
      --armor               ASCII armor, use when sending as ASCII
      --clearsign           sign the message (creates a new copy of the input message and appends the signature)
      --verify              verify the signature
      -u "name"             specify protected key used to sign the message
      --encrypt             encrypt
      --decrypt             decrypt
      --recipient "email"   specify the recipient, used with --encrypt
      --output filename     output to file
      --no-tty              don't print to terminal
      examples: encrypt: echo "message" | gpg --armor --encrypt --recipient name@server.com > message.gpg
                decrypt: gpg --output message.txt --no-tty message.gpg
                sign:    gpg --output signed.txt --clearsign out.txt
                verify:  gpg --verify signed.txt
    history               show command history
    tar action f1 f2 ...  tape archiver, .tar archive (so called tarball) manager, action can be:
                          -x                extract files from archive specified with -f
                          -c                create new archive specified with -f (should end with .tar) and add files f1, f2, ... to it
                          --delete          delete from archive
                          -r                append files to archive
                          -t                list the archive content
                          -A                append, add files from one archive to another
      -f archive          specify the archive file to work with
      -z                  use gzip on the final tar archive (the extension should then be .tar.gz), this loslessly compresses the archive
      -j                  use bzip2 on the final tar archive (the extension should then be .tar.bz2), this loslessly compresses the archive
      -J                  use xz on the final tar archive (the extension should then be .tar.xz), this loslessly compresses the archive
      -C dir              change directory to dir
  MOREUTILS:
    sponge              allows to read and modify the same file at the same time by preloading (soaking) the file, e.g.:
                        cat a.txt | sponge | tr a b > a.txt
  OTHER:
    add-apt-repository ppa:rep  add (or remove) given repository (package source)
      -y                  yes, answer yes to all queries
    apt action          Debian package (.deb) management system (front-end, internally uses dpkg), combines apt-get and apt-cache (supports their
                        actions) plus add more actions:
                          full-upgrade      upgrade the system as a whole even if it means removing some packages
                          show pkg          show information about given package
                          list --installed  list installed packages
    apt-cache action    query the apt cache, action can be:
                          showpkg pkg       show information (version, dependencies, ...) about given package
                          stats             display statistics about the cache
                          search regex      search for package by regular expression
                          depends pkg       show dependencies of given package
                          rdepends pkg      show reverse dependencies of given package
                          pkgnames          list all packages in the cache, optional prefix can be given
    apt-get action      manipulate .deb packages, action can be:
                          update            synchronize the package index from the online sources
                          upgrade           install the newest versions of all packages currently installed (but don't remove or install new)
                          dist-upgrade      like install but tries to be smarter and may delete some less important packages
                          install p1 p2 ... install or upgrade specified package(s) including their dependencies, ".?*" regexps can be used
                          remove p1 p2 ...  remove specified packages
                          purge p1 p2 ...   remove specified packages AND their configuration files
                          check             diagnostic tool, update the cache and check for broken dependencies
                          download pkg      download given package to the current directory
                          clean             clears out the local repository of retrieved packages
                          autoremove        automatically removes packages that were installed as dependencies and are no longer needed
                          changelog pkg     display changelog for given package
    avconv              fork of ffmpeg, basically the same

    convert img opts out  part of ImageMagick, manipulate images and convert formats via CLI
      -region WxH+X+Y     apply given options only to given area
      -negate             invert colors
      -monochrome         convert to black and white (with dithering by default)
      -grayscale rec709luma  convert to grayscale (give this exact argument)
      -transparent "#rrggbb"  make given color transparent (you can use "-fuzz x%" before for fuzzy color)
      -gamma floatval     adjust gamma (1.0 is default)
      -magnify            upscale the image 2x using the scale2x pixel art upscaling algorithm
      -flip               flip vertically
      -flop               flip horizontally
      -rotate deg         rotate iven amount of degrees CW
      -crop WxH+X+Y       cut out given rectangle out of image
      -resample WxH       resize the image with resampling
      -liquid-rescale WxH resize with an awesome very quality content-aware algorithm
      -fft                compute Fourier transform (DFT), write output img name like: out%d.png
      -gaussian-blur WxH  apply Gaussian blur of given width and height
      -median WxH         apply median blur filter of given width and height
      -spread amount      display pixels by a random amount in given range (blur)
      -unsharp WxH        apply sharpen filter of given width and height
      -noise WxH          apply adaptive blur (reduces noise but keeps sharp edges)
      -canny WxH          detect edges (1 pixe thick, black and white result)
      -edge WxH           detect edges (with convolution)
      -implode floatval   warp into the middle of image (default value is 0.0)
      -swirl deg          wirl image given amount of degrees around center
      -paint radius       apply oil painting filter
      -posterize num      reduce to given number of colors
      -append             join input images into one (give multiple inut images), see also montage
      -identify           print image info (resolution, format, ...)

    cowsay              show ASCII art cow (or other stuff) that says stuff from stdin
      -n                  accept the input including whitespaces (good when combining with figlet etc.)
      -e XY               set the cow's eyes to string XY (2 chars max)
      -T XY               set the cow's tongue to string XY (2 chars max)
      -l                  list all available cowfiles (files with different ASCII pictures that can be used)
      -f cowfile          specify cowfile (ASCII art picture of animal to use)
      -W N                set (only roughly) the text wrap width to N
      -b                  borg (sci-fi glasses, = instead of eyes)
      -d                  dead
      -g                  greedy ($ instead of eyes)
      -p                  paranoid (@ instead of eyes) 
      -t                  tired (- instead of eyes)
      -s                  stoned
      -w                  wide awake (O instead of eyes)
      -y                  young (. instead of eyes)
    dpkg action         base of the Debian package management system (of .deb packages), possible actions are:
                          --install file    install package from given .deb file
                          --unpack file     unpack given package file, but don't configure or install
                          --remove pkg      remove package, except for its config files
                          --purge pkg       remove package AND its config files
    dpkg-query action   query the dpkg database, possible actions are:
                          -l pattern        list packages matching name pattern
                          -L pkg            list files that the package installed
    espeak              speech synthesizer, speaks the text from stdin
      -f file             file to read the text from
      -a N                amplitude, 0 - 200 (100 is default)
      -g N                gap between words in 10s of ms
      -k X                indicate capital letters, 1 = special sound, 2 = word "capital", 3 and higher = higher pitch (try -k20)
      -p B                pitch, 0 - 99 (50 is default)
      -s N                speed in words per minute (160 is default)
      -v voice            set given voice file (for a list available voices use --voices)
      -w file             write the input into given wav file
      --voices            list available voices
    ffmpeg file         video editing (to convert between formats simply specify different extensions, e.g. ffmpeg -i a.mkv a.mp4)
      -i file             input file, can be:
                            - a single filename
                            - multiple videos can be joined (concatenated) with -i "concat:video1|video2"
                            - video can be created from images i001.png, i002.png, ... using -i "i%03d.png"
                            - to add audio to video specify one video file input and one audio file input
      -framerate n        if making video from images, sets the framerate to n
      -vcodec codec       set codec for output video: copy (the same as input), mpeg4, h264, vp8, mjpeg, png, ... 
      -acodec codec       set codec for output audio: copy (the same as input), mp3, flac, ...
      -ss time            start time (for cutting), format: HH:MM:SS or S
      -to time            end time (for cutting), format: HH:MM:SS or S
      -t time             duration (for cutting), format: HH:MM:SS or S
      -codecs             show all known codecs
      -filters            show available filters
      -vf                 video filter, complex graph filter can be constructed (separate filters with ",", filterchains with ";", labels [labelname],
                          e.g.: "split [main][tmp]; [tmp] boxblur=5:1, crop=W:H:X:Y [tmp2]; [main][tmp2] overlay=x=X:y=Y"), some filters are:
                            atadenoise, avgblur, blend, chromakey, codecview, colorkey, colorlevels, crop, deshake, drawgrid, drawtext, edgedetect,
                            fade, hflip, negate, perspective, reverse, scale, showinfo, threshold, vflip, minterpoolate
      -af                 audio filter, complex graph filter can be constructed as with -vf, some audio filters are:
                            acrossfade, adelay, aecho, amix, atempo, chorus, equalizer, flanger, highpass, pan, treble, volume
      -shortest           the output will be as long as the shortest input
      -b:v n              set video bitrate (quality, bits/s), human readable format can be used, e.g. 64k = 64000 
      -b:a n              set audio bitrate (quality, bits/s), human readable format can be used, e.g. 64k = 64000
      
                          examples:
                          slow motion       ffmpeg -i input.mp4 -vf "minterpolate=60, setpts=4*PTS" output.mp4
    figlet              display the input text as a cool ASCII art big text
      -f fontfile         set font from figlet fontfile (.flf), to see font directory run with -I 2
      -c                  centered text
      -w N                set the output screen width
      -S -k -o -W         set composition rules (nicely merge, separate characters, overlapping, full-width characters)
    fortune             print random fortune cookie text
      -l                  print long fortune
      -s                  print short fortune
    glxgears            displays 3D rotating gears in a new window using OpenGL, good for testing OpenGL functionality
      -fullscreen         run in fullscreen
      -info               dsiplay info about OpenGL (GPU, version, vendor, ...)
    glxinfo             show exhausting information about OpenGL (GPU, version, vendor, extrensions, limits, ...)
    ifconfig            configure or show network configuration (IP addresses, interfaces etc.)
    img2txt             convenrt image to text (good for viewing images in terminal as ACII art)
      -W n                set image width
      -H n                set image height
      -b v                set image brightness (default = 1.0)
      -d type             set dithering type (none, ordered2, ordered4, ordered8, random, fstein)
    less                like more but with more functionality, doesn't have to read the whole file
    montage i1 i2 ... opts out  part of ImageMagick, combines multiple images into one
    mogrify             part of ImageMagick, does the same as convert, but overwrites the input image instead of writing to a new one
    nslookup            interactive (if no arguments are given, or if first one is "-") or noninteractively query DNS servers
      -query=q            set type of query to q: A (IPv4), AAAA (IPv6), hinfo (host info), ...
    vim                 vi improved, a better CLI text editor
    ping address        send ICMP ECHO_REQUEST over network (good for testing connection and latency), address is IP or domain address
      -b                  allow pinging broadcast address
      -c n                count, stop after sending n packets
      -i sec              set interval, wait sec seconds between sending packets
      -R                  record and print route (includes RECORD_ROUTE in the ICMP packets)
      -s n                set packet size to n
      -t ttl              set IP time to live
      -w sec              deadline, end after given number of seconds
      -W sec              wait given number of seconds for response
    ping6               like ping, but uses IPv6
    pkg-config pkg      return metainformation about installed libraries (for automatically building gcc linker options), pkg is the
                        short name of the library (e.g. libsdl2-dev => sdl2), doesn't work for all libraries (only the ones that install
                        .pc file)
                          --cflags          print preprocessor and compiler flags including the ones for dependencies
                          --libs            like --cflags but prints linker flags
                          --exists          check if info (.pc file) for the package exists, return appropriate code
    ssh user@server       open SSH client (remotely login to another shell), quit with "logout"
      -X                    enamble X11 formwarding - remote GUI will be possible
    sudo cmd a1 a2 ...  execute given command with given arguments  as superuser (i.e. with admin privileges) or another user, asks for current user's password
      -b                  run in background
      -E                  preserve the environment
      -s shell            specify the shell to run the command with
      -u user             run as specified user
    toilet              print input text as big ASCII art text, like figlet but with more features (UTF8, colors, filters, ...)
      -f fontfile         set font from given figlet/toilet font file (.flf/.tlf), to see font directory run with -I 2
      --gay               gay filter (characters are rainbow colored)
      --metal             metal filter (character are gray/blue)
      -S -k -o -W         set composition rules (nicely merge, separate characters, overlapping, full-width characters)
      --filter str        apply given filters, (separated by ":", e.g. "crop:gay"), filters are:
                          crop, gay, metal, flip, flop, 180, left, right, border
    traceroute address  trace and print the route the packets take in network when sent to given address
      -w sec              set given numbers of seconds to wait fot the probe
      -I                  use ICMP ECHO for tracing
      -T                  use TCP SYN for tracing
    tree path           display the content of given directory and its subdirectories as a tree
      -L n                set maximum depth to display to n
      -H                  prints the output in HTML
      -d                  list directories only
      -f                  print full path for each file
      -i                  don't format as a tree, just print the files
      -l                  follow symbolic links
      -P pattern          list only files matching given pattern
      -I pattern          ignore files matching given pattern
      -p                  print file type and permissions for each file
      -s -h               print size of each file (-h prints in human readable format)
    valgrind program    dynamically analyses the program (by running it) to find memory leaks and similar bugs
    vrms                virtual Richard Stallman, checks what proprietary SW in installed on the computer
    which cmd           print location of (the executable of) the command
    yum                 rpm package manager (Red Hat Linux, ...)

  COMMON ARGUMENT MEANING:
    -c -n                 count
    -f --force            force, do not prompt
    -h --help             print help and exit
    -H                    follow symbolic links encountered in arguments and during processing
    -i file               input file
    -L                    follow symbolic links encountered during processing
    -o file               output to given file
    -R -r                 recursive, apply to all files and subdirectories recursively
    -r -C                 reverse/complement, do the opposite
    -v --version          print version and exit
    -w                    width

===== BASH LANGUAGE ====

  # comment
  # !/bin/bash
  # put the above line at the beginning of each script
  echo $?                          # $? holds the return value of the last command (0 = OK)
  echo $0                          # $0 holds the name of the sctipt, $1 is 1st param etc.
  
  function myfunc {                # function definition, parameters are in $1, $2, ...
      local VAR=3                  # local variable definition
      echo $VAR $1
    }
  
  myfunc "abc"                     # function call
  
  if [[ $1 -eq 1 ]]; then          # if statement, the cond. is in "test" utility format
    echo "a"
  elif [[ $1 -gt 2 ]]; then
    echo "b"
  else
    echo "c"
  fi
  
  while [[ $i -lt 10 ]]; do        # while loop
    echo $i
    i=$(expr $i + 1)               # $(...) causes evaluation
  done
  
  for c in "hello" "world"; do     # for loop
    echo $c
  done
  
  echo $RANDOM                     # random number in range 0 - 32767 (16 bit int)
  
  glxgears&                        # run in background

  # redirections:
  #   descriptors:
  #     0                  stdin
  #     1                  stdout
  #     2                  stderr
  #   redirections:
  #                        N is a descriptor (e.g. 1)
  #                        D is file name or &descriptor (e.g. &2)
  #     [N]>D              redirect output from descriptor N to target D
  #     [N]>>D             redirect output (append)
  #     [N]<D              redirect input
  #     c1 | c2            pipe, redirect output of command c1 to input of command c2

====== FILE SYSTEM =====
history cheatsheet
This is a history cheatsheet and an overview for quick orientation, it may be inaccurate and/or subjective/biased.

                        -13 799 000 000  The Universe starts its existence with the Big Bang. Everything is just a hot plasma, radiation dominates over matter.
                        -13 798 623 000  The Universe cools down and becomes transparent, neutral atoms form, basic elements like hydrogen and helium start to exist.
                        -13 600 000 000  First stars appear.
                        -13 300 000 000  Galaxies are slowly forming.
                        -4 568 000 000   The Sun and our solar system form.
              ___       -4 540 000 000   Earth forms out of debris, it is just a hot lava at this stage, with atmosphere mainly of hydrogen. Hadean eon begins with Earth.
 Hadean      |          -4 500 000 000   Moon is likely formed out of debris left after a Mars-sized body collides with Earth.
             |___       -4 000 000 000   1st single-cell life appears on Earth, in the ocean. They will soon start producing oxygen and creating air atmosphere. This ends Hadean and starts Archean.
 Archean     |___       -2 500 000 000   1st multi-cell organisms. Archean ends, Proterozoic begins.
 Proterozoic |___       -541 000 000     Complex life evolves, the amount of oxygen in the atmosphere is close to today's. With this Proterozoic ends and Phanerozoic, the current eon, begins.
             |          -225 000 000     1st dinosaurs and mammals appear. Compared to today the Moon in the sky is bigger, the day is 1 hour shorter and there is only one big continent called Pangea.
             |  Juras / -201 300 000     Jurassic, a geological period in the middle of "Age of Reptiles", begins after Triassic, after a mass extinction event.
             |   sic  | -175 000 000     Pangea supercontinent very slowly starts to break apart into continents that we have today.
             |        \ -145 000 000     Jurassic ends with another mass extinction event, to be followed by Cretaceous (Křída).
 Phanerozoic |          -66 000 000      An asteroid colliding with Earth (in today's Mexico) changes climate and makes dinosaurs go extinct, giving place to a rapid rise of mammals.
             .          -7 000 000       Australopithecus (likely future humans) split from chimpanzees (Pan); our last common ancestor dies around this time.
             .        / -3 400 000       Stone Age starts with to-be-humans (Australopithecus) beginning to use stone tools.
             .      / | -2 588 000       Ice Age (most recent of periodic glaciations) starts.
                    | | -2 000 000       Homo Habilis emerges, likely from Australopithecus, still similar to apes (about 1.3m tall, weighing about 37 kg), sometimes walks on two legs.
                    | | -1 800 000       Homo Erectus evolves from Homo Habilis, walking long distaances on two legs.
            Ice Age | | -1 750 000       Speech and language might have started evolving around this time.
                    | | -1 000 000       Humans start using fire around this time (but don't know how to create it).
                    | | -400 000         Humans learn how to start fire around this time.
                    | | -300 000         1st appearance of Homo Sapiens ("wise man", anathomically modern human) in Eastern Africa, evolves from Homo Erectus.
                  / | | -250 000         Neanderthals emerge in parallel to the line of future modern humans their relatives, but will later go extinct.
                  | | | -170 000         Humans start wearing clothes.
     Neanderthals | | | -64 000          Neanderthals make primitive cave paintings (hand stencils) by this time.
                  | | | -44 000          Some humans have migrated to Europe (even Britain) and Asia, start replacing Neanderthals that live there. Later they also reach Australia (during glaciation).
                  \ | | -40 000          Cave paintings of animals have been made by this time. Humans are using tally marks to count items. Neanderthals go extinct.
                    | | -33 000          Dogs are domesticated by man.
                    | | -15 000          Some humans have migrated into Americas (lower sea levels and glaciations made it possible to walk by foot to north America).
                    \ | -11 700          Ice Age ends.
                      | -10 000          World population of humans is over 1 million by this time.
                      |
            Stone Age | -9500            Agriculture (farming) is already developing by this time.
                      | -6000            1st writing systems emerge. Written recording of history will later end the prehistoric era.
                      | -5000            World population is about 10 million around this time.
                      | -4500            Wheel has been invented and used in primitive mechanisms.
                      | -3500            In Mesopotamia (today's Iraq) the 1st civilization, Sumer, starts to form. Horses are probably domesticted around this time.
                      | -3300            In Indus valley (south Asia, Indus river) a civilization starts to form.
                    / \ -3300            Bronze Age starts and Stone Age ends with humans learning to smelt ore (happened at different times around the world).
                    |   -3100            Ancient Egypt civilization starts forming along the Nile river.
                    |   -3000            Stonehenge (probably a burial site) construction begins. It will take at least 1500 years to complete. Meanwhile Egyptians start using papyrus.
                    |   -2600            Maya civilization starts emerging in central America. Meanwhile Egyptians start building pyramids.
         Bronze Age |   -2560            The Great Pyramid of Giza is built in Egypt over 20 years, probably as a tomb of faraon Khufu (also called Cheops). Other pyramids and the Sphinx will follow decades later.
                    |   -2100            In Canaan, an area around today's Israel, people (future Jews) called Israelites appear (Israel being a second name of Jacob, a son of Abraham, their religion patriarch).
                    |   -1792            Hammurabi becomes a king of a recently formed city-state Babylonia (with capital city Babylon) in Mesopotamia. He becomes known for his eye-for-eye laws.
                    |   -1600            Mycenaean civilization (Mycenae being near future Athens) starts emerging in mainland Greece. It will later grow into Ancient Greek civilization.
                    |   -1650            Mammoths go extinct (last woolly mammoths died in the area of Syberia).
                    \ / -1200            Iron Age starts and Bronze Age ends with humans learning to produce iron (happened at different times around the world).
                      | -1194            Trojan War (Greeks vs the city Troy) could have happened now (though mostly mythical), which will be described in Homer's Illiad and Oddysey.
                      | -1100            Celts (called Gauls by Romans) start emerging in the area of today's Austria. The will later set in the British isles.
                      | -1000            Nomadic people that will later be called Persians start settling west of Mesopotamia (north-west of today's Iran).
             Iron Age |
                      | -930             Kingdom of Israel and Kingdom of Judah (south of the former) emerge, together covering roughly the area of today's Israel.
                      | -800             1st Ancient Greek cities (Polis) start appearing, an Archaic Greek period begins. The cities will grow (Athens the most) and take colonies, alphabet will emerge as well as culture and politics.
                      | -776             1st ancient Olympic Games are held. They start as a celebration of Zeus with a few sport contests, later will become the largest sport events in the world.
                  /   | -753             Rome, an important city, is founded (likely date). It will now be governed as monarchy, known as a Roman Kingdom.
        Rome City |   | -722             Kingdom of Israel stops existing after being invaded by expanding Assyria. The population is deported and exiled.
                  |   | -700             Ancient Greece (later with Rome defining Antiquity) starts around this time with Homer likely writing the two epic poems Illiad and Oddysey.
            /     |   | -600             Cartage, a city-state in north coast of Africa founded as Phoenician settlement, is becoming one of the leading commercial centers in Mediterranean sea.
            | /   |   | -563             Gautama Buddha (Siddhartha), founder of Buddhism, is born as a son of a king in south Asia (present Nepal). He will refuse to live in luxury and leave to seek and teach the meaing of life.
            | |   |   | -586             Kingdom of Judah is conquered by Babylonians (east) competing with Egyptians (west), creating a province named Yehud. The population (Jews) is captivated and deported to Babylon (some fled to Egypt).
            | |   | / | -570             Pyhagoras, one of the geatest Greek philosophers, is born on a greek island Samos around this time. He will contribute to mathematics and create a Pythagorean code.
            | |   | | | -550             Persian empire, called Achaemenid Empire, starts by Cyrus the Great getting to power and conquering large area, that will eventually become the largest empire so far.
            | |   | | | -540             Persian with Cyrus the Great invade and conquer Babylonia and allow Jews to return to their previous homeland.
            | | / \ | | -509             Rome transforms from kingdom to republic (ruled by two consuls, elected annually) with an overthrow of the king (Lucius Superbus) after his son raped a woman. It will be known as Roman Republic.
            | | |   | \ -500             Iron Age ends.
            | | |   \   -495             Pythagoras dies around this time. It is not clear how. Legends say he commited suicide or was killed after refusing to run through a corn field.
            | | |     / -492             Greco-Persian wars begin with Persians invading Greece. Greece will win this fight in Battle of Marathon (-490), but the Persians will return and the war will continue.
            | \ |     | -483             Buddha dies of old age, supposedly after predicting his own death and peacefuly accepting it.
   Carthage |   |     | -480             Battle of Thermopylae takes place between Sparta (Greek city-state under king Leonidas) and Persians (under king Xerxes) over 3 days. Persians win and kill Leonidas.
            |   |     \ -449             Greco-Persian wars end with a peace treaty.
            |   |     / -470             Socrates, a great Greek philosopher, is born around this time in Athens. He will contribute to moral philosophy and ethics.
            |   |   / | -427             Plato, a great Greek philosopher and a student of Socrates, is born around this time in Athens. He will create the 1st Academy (a university school).
            |   |   | \ -399             Socrates is senteced to death by drinking a poison for his political views. He faces the death very bravely.
            |   |   | / -384             Aristotle, a great Greek philosopher, is born in northern Greece. He will study at Plato's school and will be interested in formal logic and will tutor Alexander the Grea.
            |   | / | | -356.07.20       Alexander the Great, one of the greatest military leaders of all time who will conquer the Persian empire, is born as a son of a King of Macedonia (Greece). Aristotle will be his tutor.
            |   | | \ | -348             Plato dies. It is not clear how.
            |   | \   | -323.06.10       Alexander the Great dies in Babylon at the age of 32 in circumstances that involved drinking.
            |   |     \ -322             Aristotle dies of natural causes in Euboea, Greece.
            |   |     / -264             Punic Wars, a series of wars between clashing empires of Rome and Carthage, begin.
            |   |     | -218             Hannibal, a Carthagean general, achieves a famous feat, crosses the Alps with nearly 50 000 men, and goes on to a successful campaign against Rome, but in the end he will be forced to return home.
            \   |     \ -146             Punic Wars end by Rome winning over Carthage, destroying and burning the city, selling the surviving Carthagians to slavery.
                |       -146             Rome starts to dominate over Greek after winning a battle of a Greek city Corinth and completely destroying it.
                |     / -100.07.12       Julius Caesar, an important Roman leader, general and writer, is born in Rome to an aristocratic family.
                |     \ -44.03.15        Julius Caesar is assasinated, stabbed by tens of people including Brutus ("Even you, Brutus?"), for having become too powerful (a dictator).
                \ /     -27              Roman Empire starts with transforming the Roman Republic to so called Principate -- a democracy ruled by a single emperor, Augustus being voted the 1st.
                  |   / -4               Jesus Christ, a jewish preacher to become the central figre of Christianity, is born in Nazareth (today's Israel) around this year, will be baptized by John the Baptist in the Jordan river.
                  |   |
                  |   | 1                The Common Era starts.
     Roman Empire |   \ 30               Jesus is crucified on the order of Pontius Pilate, the administrator of a Roman province Judea (the area where Jesus preached), after Jesus caused a disturbance in a temple.
                  |     64.07.18         A great fire erupts in Rome, for which many later blame the emperor Nero, allegedly for wanting to "purge" the city.
                  |     79               Mt. Vesuvius (coast of today's Italy) violently explodes (100000 times stronger than Hiroshima), destroying several Roman settlements including Pompeii, burying and preserving the people in stone.
                  |     140              Ptolemy, a Greek mathematician and astronomer, publishes (around this time) a book with a geocentric model of the Universe, which will be accepted for very long.
              / / \     293              Roman Empire is de facto split into two parts with emperor Diocletian constituting Tetrarchy (rule of 4 people): West and East (so called Byzantine Empire). This ends a decades-long Roman crisis.
              | |     / 375              Migration Period (Stehovani Narodu, also Barbarian Invasions), a period of large migrations of various peoples (Germanic, Hunnic, Slavic, ...) in and from the declining Roman Empire, starts with Hunn invasion from Asia.
            / | \     | 476.09.04        Middle Ages start with the end of Western Roman Empire when a germanic statesman Odoacer deposes a young Roman emperor and becomes the 1st king of Italy and accepts to rule under Eastern (Byzantine) Empire.
            | |       | 480              Slavic tribes settle in the area of today's Czech and Prague around this time, as a part of Migration Period.
            | |       | 500              Chess early predecessor, Chaturanga, exists by now in Gupta Empire (India). The rules of the game are different (and not completely known today), but the pieces are very similar.
            | |       | 536              "Worst year ever", volcanic eruption in Iceland causes a year-long fog, ash, darkness, world-wide climate change and subsequently a famine and plague.
            | |       \ 568              Migration Period ends with Lombards moving into Italy.
            | |     /   570              Mohammed, a prophet that will start the Islam religion, is born in Arabic city of Mecca.
 Middle Age | |     |   600              In Moravia region first fortified settlements are being built around this time, which will lead to forming Great Moravia, a majore central European state.
            | |     \   632              Mohammed, the prophet of Islam, falls ill and dies.
            | |       / 742.04.02        Charles the Great (Charlemane), a very important emperor that wil unite most of Europe, is born probably this year, as a son of Frankish king.
          / | |       | 800.12.25        Holy Roman empire, a loose a central Europe complex of territories (greatly independent, including Germany, Bohemia, Italy and others), starts by pope crowning Charles the Great an emperor.             
          | | |       \ 814.01.28        Charles the Great dies of lung illness.
          | | |         863              Cyril and Methodius, brother from the Byzantine Empire, bring Christianity to Moravia (along with a newly invented alphabet and translations), after being invited by Moravian prince Rastislav.
          | | |         870              Borivoj I, the first recorded duke of an important Premysl dynasty, takes reign over Bohemia (then under Great Moravia).
          | | |         935.09.28        Wenceslaus I (Sv. Vaclav), a Bohemian Duke from the Premysl dynasty who will be elevated to sainthood, is murdered by his brother Boleslav in order to take the reign.      
          | | |
          | | |         1085.06.15       Vratislaus II becomes the first king of Bohemia (before this there were dukes), the title being granted by the Holy Roman Emperor.
          | | |
          | | |         1120             Kosmas, a dean living in Prague, writes (in Latin) his Chronicles (Kronika), the first text on history of Czech people.
          | | | /       1173.08.09       Leaning Tower of Pisa is stared being built in Pisa (Italy), it will start to tilt during the construction 5 years later due to bad foundations. This tilt will make it famous.
          | | | |
          | | | |       1250             On Easter Island (isolated in the Pacific Ocean) Moai (mysterious big head statues) start being made by the aboriginal Rapa Nui peoplei around this time.
          | | | |     / 1299             Ottoman Empire is established by a chief Osman I near the area of Turkey. The Empire will grow and become very strong.
          | | | |     |
          | | | | /   | 1300             Renaissance, a time of return to Ancient Greece and Rome ideas and a transition from middle ages to modern days, starts around this time in Florence, Italy, with artists such as Dante.
          | | | | | / | 1316.05.14       Charles IV, an important ruler for the Czech, is born in Prague to Eliska Premyslovna and John of Bohemia (Luxembourgish).
          | | | | | | | 1347             Black Death, the biggest plague in history, is carried into Constantinople by fleeing traders. It will spread to whole Eurasia and kill up to 200 million people (42%) over the next years, greatly affecting the world.
          | | | | | | | 1348.04.07       Lands of Czech Crown (Zeme Koruny Ceske) come into existence by Charles IV declaring their existence in two newly released documents.
          | | | \ | | | 1372             Leaning Tower of Pisa is completed, with the tilt around 5 degrees (which will later be lowered).
          | | |   | \ | 1378.11.29       Charles IV dies, probably after having fallen from a horse.
          | | |   |   | 
          | | |   |   | 1442             The Great Wall of China is started being built by the Ming dynasty along the north border to protect China from Mongolians, although similar walls were built in there as early as 7th century BC.
          | | |   |   | 1450             Johannes Gutenberg (German metal-worker) invents (moveable) printing press, making book copying very cheap, which will lead to Renaissance.
          | | |   | / | 1452.04.15       Leonardo da Vinci is born in the town Vinci in Florence (today's Italy).
          | | \   | | | 1453.05.29       Byzantine Empire ends when after long wars its capital Constantinople is captured by the army of Ottoman Empire.
          | |   / | | | 1473.02.19       Nicolaus Copernicus, an important future brilliant polymath and astronomer, is born in Polish Prussia to merchant parents.
          | |   | | | | 1492.10.12       Christopher Columbus discovers America (not the 1st, but 1st significant), though this will be known only after his death.
          | \   | | | | 1492             Middle Ages end with the discovery of America.
          |     | | | | 1512             Holy Roman Empire is renamed by a decree to Holy Roman Empire of the Germany Nation, because of the bigger power of Germans and lost territries e.g. in Italy.
          |     | | | | 1500             World population is about 500 million around this time.
          |     | | | | 1504             Mona Lisa, maybe the most famous painting, is being created in Florence (Italy) by Leonardo Da Vinci around this year.
          |     | | | | 
          |     | | | | 1516.10.31       Martin Luther, a German monk, publishes his 95 Theses criticizing the Roman Catholic Church (mainly indulgences), which will lead to a reform and a split of the Protestant branch of the church.
          |     | | \ | 1519.05.02       Leonardo da Vinci dies in Clos Lucé (France), probably of stroke.
   Holy   |     | |   | 1543             Copernicus publishes a book proposing heliocentric universe (Sun in the center, but planets still only revolve around perfect circles), which will replace Ptolemy's geocentric model.
   Roman  |     \ |   | 1543.05.24       Nicolaus Copernicus dies on internal bleeding, shortly after publishing his most important work.
   Empire |       | / | 1564.04          William Shakespeare, regarded as the best (play)writer of all time, is born in Stantford upon Avon, England (exact birth date isn't known).
          |     / | | | 1571.12.27       Johannes Kepler, an future important astronomer and mathematician, is born in Germany to a mercenary and an inkeeper.
          |     | | | | 1595             Shakespeare's play Romeo and Juliet is premiered around this time.
          |     | | | | 
          |     | \ | | 1600             Renaissance ends around this time, transitioning to Modernity.
          |     |   | | 1600             Shakespeare's play Hamlet, maybe the most famous play of all time, is premiered around this time.
          |     |   | | 1606.02.26       Australia is discovered by Willem Janszoon (Dutch) who lands at its north coast. More Dutch explorers will follow to land at north and west and will name the continent New Holland.
          |     |   | | 1609             Kepler starts publishing his revolutionary laws of planetary motion, which correct the Copernicus' model (planets move along ellipses and with varying speed).
          |     |   \ | 1616.04.23       William Shakespeare dies in Stantfort upon Avon, for reasons not known today (probably of fever contracted by drinking too much).
          |     | /   | 1618.05.23       Thirty Years' War, a big European war over religion and politics, starts by Bohemian Revolt when Hussites (protestants) defenestrate Castholic councillors in Prague and put up a protestant government.
          |     | |   | 1620.11.08       Battle of White Mountain (Bitva na Bile hore), a big battle of 30 Years' War, is fought near Prague, Czech protestants lose to Ferdinand II Habsburg (catholic army) who takes place of the Czech king.
          |     \ |   | 1630.12.15       Johannes Kepler dies of an illness in Germany.
          |       |   | 1638             Galileo Galilei reports he tried to measure the speed of light by observing a lantern some distance away, but was unable to decide whether the speed of light is infinite of just very fast.
          |       | / | 1643.01.04       Isaac Newton is born in eastern England.
          |       \ | | 1648.05.15       Thirty Years' War ends by signing Peace of Westphalia between Holy Romain Empire, Habsburgs and other German princes, Spain, France and others.
          |         | | 1662             Dodo, a species of bird living on Mauritius island, is last seen around this time before its extinction, most probably caused by humans.
          |  Newton | | 1687             Isaac Newton publishes Principia, one of the most important works of science which describes laws of motion, gravity and planetary movements.
          |         | | 
          |         | | 1707.04.19       James Cook lands at the east coast of Australia and claims it for Britain.
          |         | | 1712             Steam engine by an English inventor Thomas Newcomen becomes the 1st commercially successful steam engine with piston (though simpler steam devices have already been used even in previous century).
          |         \ | 1727.03.31       Isaac Newton dies peacefully in his sleep.
          |     /     | 1756.01.27       Wolfgand Amadeus Mozart, the most famous composer, is born in Salzburg, Austria. He is a child prodigy who will start composing at the age of 5.
          |   M |     | 1760             Industrial Revolution begins in the UK with many new innovations (steam power, machines, tranport, ...), hand production will be replaced by machines, people will move to cities to work in factories.
          |   o |   / | 1769.08.15       Napoleon Bonaparte, a famous general and emperor, is born in Corsica (blonging to France). He will fight in French revolution as well as abroad and become general.
          |   z | / | | 1775.04.19       American Revolutionary War (War of Independence), between Britain and its 13 American colonies who demand independence, begins by siege of Boston, after the colonies refuse to accept taxing laws.
          |   a | | | | 1776.07.04       US Declaration of Independence is pronounced on a congress in Philadelphia, stating why the 13 colonies regard themselves sovereign states, laying foundation to the USA.
          |   r | \ | | 1783.09.03       American Revolutionary War ends by Britain recognizing the sovereignty of the United States in a treaty.
          |   t | / | | 1789.07.14       French Revolution starts with the Storming of the Bastille (fortress in Paris, got overthrown), when the people grew tired of too much power of the king Louis XVI and the nobles, and demanded more power.
          |     \ | | | 1791.12.05       Mozart dies in his home in Vienna after an illness, aged only 35.
          |       | | | 1792.09.21       France becomes a republic by a vote on a convention. The king, Louis XVI, will be executed by guilotinne the next year.
          |       \ | | 1799.11.09       French Revolution ends when Napoleon takes over the parliament in Paris and as a war hero is elected the First Consul of France, replacing a post-revolution rule of 5 people.
          |         | |
          |         | | 1802             1st steam locomotive (full scale and working) is built by Richard Trevithick in England.
          |       / | | 1804.12.02       Napoleonic Wars (between France and other countries) start when Napoleon crowns himself an Emperor of France.
          |       | | | 1805.12.02       Battle of Austerlitz is won by Napoleon at Slavkov against the bigger army of Russians and Austrians.
          \       | | | 1806.08.06       Holy Roman Empire (of the German Nation) ends after emperor Francis II's abdicated after his deafeat by Napoleon, who reorganizes it into a Confederation of of the Rhine.
                  | | | 1814             Napoleon is exiled to an island Elba (Italy) by his enemies, after an unsuccessful invasion of Russia, retreat and abdication. He will be allowed to rule the island, will build a small army and escape.
                  \ | | 1815.06.18       Napoleonic Wars end by France, lead by Napoleon by again becoming its rules, losing a Battle of Waterloo (today's Belgium) against British and Prussian armies.
                    | | 1815.12          Napoleon is exiled to the island Saint Helena (SW from Africa), after having lost his popularity, abdicating, being hunted by Prussians and being forced to ask for asylum from the Brits.
                    | | 1816             Year without summer -- weather abnoralities with extremely cold weather for the whole year result in an agricultural disaster in the north hemisphere.
    /               | | 1818.03.05       Karl Marx, the philosopher who will come with the idea of Communism, is born in the west of Germany, to a relatively wealthy middle-class family.
    |               | | 1820             World population reaches 1 billion around this time.
    |               \ | 1821.05.05       Napoleon Bonaparte dies on Saint Helena island, probably of stomach cancer.
    |                 | 1826             1st photography is taken by Nicéphore Niépce in France -- a view from a window of his estate.
    |                 | 1845.01          Raven, one of the most famous poems in history, is published by Edgar Allan Poe.
    |           /     | 1847.02.11       Thomas Alva Edison, a famous inventor, is born in Ohio, USA.
/   |           |     | 1850.03.07       Tomas Masaryk (TGM), the future first Czechoslovak president and a professor, is born to a poor family in Hodonin.
|   |    Edison |     | 1853             Karel Jaromir Erben publishes Kytice, a very famous Czech poem collection.
|   |           |     | 1855             Bozena Nemcova publishes Babicka (Grandma), a very famous Czech book.
|   |         / |     | 1856.07.10       Nikola Tesla, a famous inventor, is born in the place of today's Croatia, then Austrian Empire.
|   |         | |     | 1859.11.24       Charles Darwin publishes the revolutionary book On the Origin of Species which scientifically explains the evolution of life. This is in conflict with the Bible.
|   |   Tesla | |     | 1860             1st sound recording, a person singing Au clair de la lune, is recorded on paper. It can not be played back, but will later be replayable.
|   |         | |     | 1860             1st bicycle with pedals (velocipede, enlarged front wheel) is invented around this time.
|   |         | |   / | 1861.04.12       American Civil War starts by Confederation (11 souhern states where slavery is legal and wants to split from the USA) attacking Union (North, with Abraham Lincoln as president).
|   |         | |   | | 1863.01.01       Slavery ends with Abraham Lincoln issuing Emancipation Proclamation. This frees all slaves, but those in Confederation stay effectively slaves until the end of war.
|   |         | |   | | 1865.04.14       Abraham Lincoln is shot by a South sympathizer, and dies.
|   |         | |   \ | 1865.05.09       American Civil War ends with the Confederation surrending, the Union winning.
|   |     /   | |     | 1867.05.29       Austria-Hungary is established by Franz Joseph and Deák (Hungarian statesman) signig a Compromise which unifies a weakened Austrian empire with Hunagry (who insist on equality to Austria).
|   | /   |   | |     | 1869.10.02       Mahatma Ghandi, a important indian activist and proponent of nonviolent resistance, is born in western India.
|   | | / |   | |     | 1870.04.22       Vladimir Ilyich Lenin, a revolutionary and a future head of Soviet Russia, is born in the south-west of Russian Empire as one of 8 children. He will study to become a lawyer.
|   | | | |   | |   / | 1875.09          Statue of Liberty is started being built by the French, to be given as a gift to the Union (USA) for having won the Civil War and ending slavery.
|   | | | |   | |   | | 1877             Thomas Edison invents phonograph cylinder, a practical sound recorder and player, which starts the recording industry.
| / | | | |   | |   | | 1878.12.18       Joseph Stalin (born Ioseb Jughashvili), a future leader of the Soviet Union, is born in Georgia (southeast of Europe).
| | | | | |   | | / | | 1879.03.14       Albert Einstein, arguably the most famous scientist, is born in Ulm, Germany.
| | | | | | / | | | | | 1881.10.25       Pablo Picasso, maybe the most famous painter, is born in Málaga, Spain.
| | \ | | | | | | | | | 1883.03.14       Karl Marx dies of bronchosis in London, as a stateless person.
| |   | | | | | | | \ | 1886.10.28       Statue of liberty is dedicated to the USA by the French.
| |   | | | | | | |   | 1887.01.28       Eiffel Tower starts being built in Paris for the 100th anniversary of French revolution by Gustave Eiffel (but the tower was designed by other people). It will take 2 years to finish.
| |   | | | | | | |   | 1888             Jack the Ripper (probably), a famous uncaught killer, performs a series of five murders in Whitechapel district of London in this year.
| |   | | | | | | |   | 1888.10.14       1st video footage (2 second shot of his family) is taken Louis Le Prince on his self-invented single-lens camera.
| |   | | | | | | |   | 1889             Starry Night, one of the most famous paintings in history, is created by vincent Van Gogh.
| |   | | | | | | | / | 1889.04.20       Adolf Hitler is born near Germany border in Austria (then under Austria-Hungary).
| |   | | | | | | | | | 1894.08.24       Tomas Bata with his siblings founds the Bata shoe company in Zlin, Czech. He will later become the only owner, he will become very famous as the company will become one of the most successful in the world.
| |   | | | | | | | | | 1895.11.27       Nobel Prize is established by Alfred Nobel, a famous swedish inventor of dynamite, in his last will after he has read a mistakingly published negative obituary of himself.
| |   | | | | | | | | |
| |   | | | | | | | | | 1903.08.23       Lenin becomes a leader of a group called Bolsheviks ("majority", also the Reds) at a congress of Russian socialist party (which he is a member of), splitting from the rest called Mensheviks ("minority") after disagreeing on important issues.
| |   | | | | | | | | | 1903.12.17       1st sustained flight (lasting 12 seconds) with a heavier-than-air airplane is performed by Wright brothers (USA).
| |   | | | | | | | | | 1905             Albert Einstein's miracle year. He gets his PhD and publishes 4 works (including theory of relativity) that change the understanding of the Universe.
| |   | | | | | | | | | 1909.04.06       North Pole is claimed to have been stood on for the 1st time by Robert Peary, reached with dogsleds, but this is disputed (undoubtedly it was reached later in 1948 by Soviets).
| |   | | | | | | | | | 1911.12.14       South Pole is reached in 56 days by Norwegian Roald Amundsen after a dramatic race with Roebrt Scott (Brit), whose party will get there 33 days later and die on the way back.
| |   | | | | | | | | | 1912.04.14       Titanic, the biggest ship yet, sinks on its first sail (from UK Southampton to USA New York) after hitting an iceberg. Over 1500 people die.
| | / | | | | | | | | | 1914.07.28       World War I (WW1) starts when Gavrilo Princip assasinates Franz Ferdinand and his wife on their visit to Sarajevo.
| | | | | | | | | | | | 1914.08          Hitler voluntarily enters the German army where he will fight and serve as a messenger until the end of the war. He will be wounded and receive honors.
| |WW1| | \ | | | | | | 1918.10          Austria-Hunagry, with the end of the war becoming clear, starts breaking apart quickly with its nations claiming independence and creating separate counties (Austria, Hungary, Czechoslovakia, Poland, ...).
| | | | |   | | | | | | 1917             Russian revolution happens in two revolutions during this year, ending the Russian Empire, forcing Tsar Nicholas II to abdicate, replacing his rule with so called soviets (workers' councils), with Lenin as a leader, creating Soviet Russia.
| | | | |   | | | | | | 1918.10.28       Czechoslovakia (so called first republic) becomes an independent state, out of Lands of Bohemian Crown (Zeme Koruny Ceske), splitting from Austria-Hungary.
| | \ | |   | | | | | | 1918.11.11       World War I ends with an armistice between the Allies and Germany.
| |   | | / | | | | | | 1920.01.17       Prohibition of all alcohol goes into effect in the USA. The temperance movement, who blame alcohol for society decline, manages to make it a law. This will give rise to mafia who will profit from illegal alcohol.
| |   | | | | | | | | | 1920             Karel Capek publishes R.U.R., a very famous Czech play which invents the word "robot".
| |   | | | | | | | | | 1921.07.29       Hitler becomes the leader of national socialist party (NSDAP, the Nazi party), having proven a very good speaker, after having been a member for two years.
| | / | | | | | | | | | 1922.12.30       Soviet Union (USSR) is established as a union of (until now mostly independent) socialist soviet (run by workers) states: mainly Russia, Ukraine and Belarus.
| | | | | | | | | | | \ 1923.11.01       Ottoman Empire ends and the republic of Turney is declared instead.
| | | | | | | | | | |   1924             Car is owned by about 50% of households in the USA.
| | | | \ | | | | | |   1924.01.21       Lenin dies after a period of deteriorating health, in the west of Russia. He will have a huge funeral and his body will be embalmed and put on display in a mausoleum in Moscow. Stalin will later become the new leader of USSR.
| | | |   | | | | | |   1924.04.01       Hitler is imprisoned for trying to start a revolution by force. He will spend 1 year in prison and write his famous Mein Kampf there.
| | | |   | | | | | |   1925.10.22       Transistor, a key component of an electronic computer, is invented in Canada, though it will not be practically used until 1953.
| | | |   | | | | | |   1928.09.28       Alexander Fleming, a Scottish scientist, accidentally discover penicillin, one of the 1st antibiotics, which is a revoltion for medicine.
| | | |   | | | | | | / 1929.01.15       Marti Luther King Jr., an important non-violent resistance activist (inspired by Ghandi) who will promote equallity betwen races of people, is born in Atlanta, USA.
| | | | / | | | | | | | 1929.09.04       Great Depression, the worst economic crisis of the century, starts with stock prices dropping in the USA. People will be unemployed and commit suicides. The crisis will affect the whole world.
| | | | | | | | \ | | | 1931.10.18       Thomas Edison dies of diabetes in his home in New Jersey.
| | | | \ | | |   | | | 1933             Countries start recovering from the great depression, but its consequences will last for many years.
| | | |   | | |   | | | 1933.03.23       Hitler (now the chancellor) and his Nazi party achieves absolute political power in Germany, using the great depression for populism, speeches, illegal steps and rewriting constitution.
| | | |   | | |   | | | 1933.10          Einstein emigrates to the USA after having given up German citizenship and staying in various countries for months, because of Hitler getting to power in Germany.
| | | |   \ | |   | | | 1933.12.05       Prohibition of alcohol ends in the USA after pressure from companies and people because of its many negative effects including crime and economy.
| | | |     | | / | | | 1935.01.08       Elvis Presley, meaybe the most famous singer who will make the Rock and Roll music genre popular, is born in Mississippi.
| | | | /   | | | | | | 1936.10.05       Václav Havel is born in Prague to a wealthy family. He will help overthrow the Czechoslovakia totalitarianism and become its president.
| | | | |   | | | | | | 1937.05.06       Hindenburg, a German airship, catches fire and burns while docking in New Jersey. 36 people died. The disaster is widely covered in media.
\ | | | |   | | | | | | 1937.09.14       Tomas Garrigue Masaryk dies from lung sickness at 87 in Lany, Czechoslovakia.
  | | | |   | | | | | | 1938.09.30       Munich Agreement is signed in Munich, which says France will allow Nazis to seize Sudetenland -- border areas of Czechoslovakia where a lot of Germans live, on a condition they won't demand more land.
  | | | |   | | | | | | 1938.10.30       Adaptation of a sci-fi novel The War of The Worlds is broadcast on radio, by many mistaken for news broadcast causes wide panic about Earth being under attack by aliens.
  | | | |   | | | | | | 1939.03.16       Protectorate of Bohemia and Moravia is established from Prague by Hitler after invading the country. Prezident Beneš has exiled to London, the new one -- Emil Hácha -- submits and is kept as a head of the protectorate.
  | | | | / | | | | | | 1939.09.01       World War II (WW2) starts by Germany invading Poland (1st blitzkrieg). Allies (UK, France, USA, China, Canada, ...) will fight against Axis (Germany, Italy, Japan, ...).
  | | | | | | | | | | | 1939.09.17       Soviet Union, having a secret mutual non-aggression pact with Germany, invades Poland too and takes part of it. They will continue in other countries which will later become the Eastern bloc (communist states under USSR).
  | | | | | | | | | | | 1940.07.21       Beneš Decrees start being published by Czechoslovakia president Edvard Beneš in London exile (coutry is occupied by Nazis), describing post-war denazification, deportation of Germans etc.
  | | | | | | | | | | | 1941.05          1st fully programmable electromechanical computer, Z3, is created in Berlin by Konrad Zuse.
  | | | | | | | | | | | 1941.06.22       Germany invades the Soviet Union (breaking their mutual non-aggression pact) which makes the Soviets join the Allies in WW2.
  | | | | | | | | | | | 1942.05.27       Reinhard Heydrich, the Nazi protector in Czechoslovakia, is assasinated in Prague by 3 (Gabčík, Kubiš, Valčík) of 7 parachutists of the Czech army in exile. The parachutists hide after the attack.
  | | | |WW2| | | | | | 1942.06.16       After Nazis having destroyed Lidice and Ležáky, killing hundreds, in reaction to the killing of Heydrich, Čurda, a Czech soldier, betrays the assasins and reveals them to Nazis, who kill them all after an 8 hour fight.
  | | | | | | \ | | | | 1943.01.07       Nikola Tesla dies alone in a hotel room in New York.
  | | | | | |   | | | | 1944.06.06       Normandy (north France) is invaded by Allies (D-Day) to liberate France from Nazis -- this includes a battle of Omaha beach, one of the bloodiest battles of WW2. Over 15000 people died.
  | | | | | |   | | \ | 1945.04.30       Hitler commits suicide by shooting himself in his bunker in Berlin, on his order his body is burned immediatelly.
  | | | | | |   | |   | 1945.05.08       Germany surrenders, ending WW2 in Europe, protectorate of Bohemia and Moravia ends as well. However, the war still continues elsewhere in the world.
  | | | | | |   | |   | 1945.08          USA destroy Hiroshima (6th) and Nagasaki (9th) (Japan cities) with atomic bombs (Little Boy and Fat Man), killing about 200000 people.
  | | | | | |   | |   | 1945.08.02       The winning Allies divide Germany and Berlin to 4 zones governed by UK, USA, France and Soviet Union. This division will laer become the Iron Curtain and Berlin Wall.
  | | | | \ |   | |   | 1945.09.02       World War II ends with Japanese foreign minister signing surrender documents on board of a US ship at Tokyo Bay.
  | | | |   |   | |   | 1945.10.24       Allies from WW2 form United Nations (UN) -- an organization to maintain peace, prevent future wars, uphold international law and human rights.
  | | | |   |   | |   | 1945.10.28       Czechoslovak president Edvard Beneš wants deportation of Germans (mainly from Sudetenland) to Germany according to Beneš Decrees, which happens and results in 15 to 270 thousand of deaths of these.
  | | | |   |   | |   | 1945.11.20       Nuremberg trials, the trials with Nazis, begin in Germany. Many of the leaders (Hitler, Goebbels -- minister of propaganda, Himmler -- leader of the SS, ...) have commited suicide and wouldn't be punished.
  | | | |   | / | |   | 1947.03.12       Cold war, a political tension between USA and Soviet Union, starts by US president Truman announcing Truman Doctrine, a policy against Soviet totaliatarian regimes.   
  | | \ |   | | | |   | 1948.01.30       Mahatma Ghandi is assasinated in a prayer meeting by a man with a gun, who blamed him for a suffering of a lot of people.
  | |   |   | | | |   | 1948.02.25       "Victorious February" in Czechoslovakia gives the communist party absolute power, creating a totalitarian regime.
  | |   |   | | | |   | 1949.04.04       NATO (North Atlantic Treaty Organization), an alliance between many world countries (similat to UN but focused on military), is created.
  | |   |   | | | |   | 1950.05.30       Dr. Milada Horáková's trial starts for her protests against the Czechoslovakia communist party. She will become famous for her brave defense despite torture before the trial. She will be sentenced to death and executed.
  \ |   |   | | | |   | 1953.03.05       Stalin dies of stroke in Moscow and has a huge funeral. Nikita Khrushchev will later become the new leader of the USSR as the first secretary.
    |   |   | | | |   | 1953.05.29       1st man, Edmund Hillary, climbs the highest mountain on Earth, Mount Everest, with the help of sherpa Tenzing Norgay.
    |   |   | C | \   | 1955.04.17       Albert Einstein dies in Princeton Hospital, aged 76, after refusing a surgery of his aortal bleeding.
    |   |   | o |     | 1957             TV is present in about 50% of homes in the developed countries.
    |   |   | l |     | 1958.12.31       Cuban revolution, led by Che Guevara and Fidel Castro, ends victoriously, overthrowing the current USA-assigned leader Batista, setting up socialism with Fidel Castro as the leader.
    |   |   | d |   / | 1960.08          The Beatles, perhaps the most famous musical band ever, forms.
    |   |   | | |   | | 1961.04.12       Yuri Gagarin (Soviet Union) becomes the 1st human to journey to outer space by leaving Earth and orbiting it once in his Vostok spacecraft.
    |   |   | W |   | | 1963.11.22       J.F.Kennedy is assasinated in Texas by a long-range rifle by Lee Harvey Oswald (this will become a conspiracy theory). Vice persident Lyndon Johnson takes up the presidency 2 hours later.
    |   |   | a |   | | 1967.10.09       Che Guevara is executed by a gun after being captured in Bolivia, where he went to lead another communist revolution, this time unsuccessfully. He will remain known as a great symbol of revolution.
    |   |   | r | / | | 1968.01.05       Prague Spring starts with a newly elected first secretary of the communist party, Alexander Dubček, starting to grant additional freedoms to Czechoslovak people (so called Socialsm with Human Face).
    |   |   | | | | | \ 1968.04.04       Martin Luther King is fatally shot while standing on a balcony in Memphis, by a criminal man.
    |   |   | | | \ |   1968.08.21       Czechoslovakia is invaded by a Warsaw Pack Army (mainly Soviet Russia) in order to end Prague Spring. 137 civilians die. Dubček is arrested, later kept at office but without continuing his liberation efforts.
USSR|   |   | | |   |   1969.01.16       Jan Palach, a student of Charles University in Prage, self-immolates in protest of the Russian invasion and censorship. A few others will follow him, but he will be partly forgotten until the Velvet revolution.
    |   |   | | |   |   1969.07.20       Neil Armstrong (USA) becomes the 1st human to walk on the Moon as a part of Apollo 11 NASA program.
    |   |   | | |   \   1970.04.10       The Beatles break up after a long time of disagreements in the band. John McCartney, the frontman, announces he's leaving.
    |   |   \ | |       1973.04.08       Picasso dies from heart attack in France, after a period of high creativity.
    |   |     | |       1973.07.10       Olga Hepnarová (19) drives over people in Prague with her truck as a revenge to society she hates, killing 8. She will be sentenced to death by hanging and the last person to be executed in Czechoslovakia.
    |   |     | |       1975             Microsoft and Apple, the most unethical companies that will enslave humans via personal computers, are founded around this time.
    |   |     | \       1977.08.16       Elvis Presley is found dead from heart attack in his bathrhoom, after a period of health problems and drug abuse.
    |   |     |         1979.05          Václav Havel goes to prison for 4 years for his political activity, after also having been banned from his work in theathre.
    |   |     |         1980.12.08       John Lennon, an ex-member of the Beatles, is shot and killed in New York by his fan, out of religious reasons.
    |   |     |         1987             World population reaches 5 billion.
    |   |     |         1989.11.09       Berlin Wall, the symbol of Cold War that separated east and west Berlin, is taken down.
    |   |     |         1989.12.29       Velvet Revolution starts in Czechoslovakia with student protests and leads to an end of 41 years of Communist party rule, creating a democratic republic with Václav Havel as president.
    |   |     |         1991.11.24       Freddie Mercury, frontman of one of the most famous bands, Queen, dies of AIDS. He records songs until the very last moments.
    \   |     \         1991.12.26       Soviet Union dissolves, ending the cold war. The Union's last president, Michail Gorbatchev, introduce some freedoms, which led to countries demanding independence, leading to the collapse.
        |               1993.01.01       Czechoslovakia splits into two states: Czech and Slovak republic, because of growing national tension.
        |               1997.05.11       Deep Blue becomes the first computer to beat the world champion (Garry Kasparov) in a chess tournament.
        |               1997.08.31       Princess Diana of the British Royal Family dies in a car accident in Paris. The event will become a subject of conspiracy theories.
        |
  Havel |               2000             About 50% of the USA household have a personal computer and about 50% of USA population is using the Internet.
        |               2001.09.11       9/11 terrorist attacks by abducted planes on the USA by al-Queda, Twin Towers in New York are destroyed, 3000 people die.
        |             / 2001.10.07       USA (supported by UK and others) invades Afghanistan, starting a war ("on terror") to dismantle al-Qaeda and remove ruling Taliban (al-Qaeda supporter) from power.
        |             | 2003.04.14       Human genome has been completely mapped after 13 years of work.
        |             | 2004.05.01       Czech Republic joins the EU.
        |             | 2011.07.22       Anders Breivik, a right wing extremist, kills 77 people in Oslo and on Utoya island in Norway in a protest against immigration.
        \             | 2011.12.18       Václav Havel dies in his home in Czech, a week after having met with his friend Dalai Lama.
                      | 2012.08.25       1st man made object, space probe Voyager 1, leaves the Solar System at the speed of 61000 km/h, 35 years after its launch.

TODO:

Speed of light measurement
Kepler
Galilo Galilei
Ptolemy's geocentric model
Chalres IV
Franks
Premyslovci
Rasputin
Tibet
protestants
crusades
Marshal's plan
Slavkov battle
Al Capone
Vietnam war
Korean war
European Union
Prussia
Bay of Pigs
Evita Peron
Popes
Byzantine empire
Vikings
Carthage
Great Plague
Hussites
NATO
Mussolini
Europen Union
Syria
Palestina
Czech manuscripts
Churchill
Manhattan project
Putin
French revolution
Great Wall of China
Menova Reforma
mass extinctions
Silk Road
Fudalism vs Capitalism

hw history cheatsheet

year | type     | name      | bits | ~freq.  | ~memory   | ~elements    | other      | comment
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1941 | computer | Z3        |  22  | 5 Hz    | 64 * 22 b | 2000 relays  | ~1 tonne,  | 1st programmable, fully automatic 
     |          |           |      | 1 IPS   |           |              | punch tapes| electromechanical, digital computer,
     |          |           |      |         |           |              |            | made in Germany
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1945 | computer | ENIAC     |      | 100 kHz |           | ~17000 vacc. | ~27 tonnes | 1st programmable electronic
     |          |           |      | 1000 IPS|           |tubes, 1500   |            | computer, made in USA
     |          |           |      |         |           |relays        |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1954 | computer | IBM 650   |      | 0.2     |drum,      | vacuum tubes | ~2 tonnes  | popular computer by IBM
     |          |           |      | IPS     |4000 * 10  |              |            | punch cardds
     |          |           |      |         |dec. digits|              |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1964 | archit.  |IBM System |  32  |         |           |              | 8bit bytes | 1st general purpose architecture/
     |          |360 (S/360)|      |         |           |              | microcode  | instruction set (CISC), attempting 
     |          |           |      |         |           |              |            | compatibility between computers 
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1966 | computer | Apollo    |  16  | 2 MHz   |2048 * 16 b|              |            | computer by NASA for Moon landing
     |          | Guidance  |      |         |           |              |            |
     |          | Computer  |      |         |           |              |            |
     |          | (AGC)     |      |         |           |              |            |
---------------------------------------------------------------------------------------------------------------------------
1968 | event    | Intel founded
---------------------------------------------------------------------------------------------------------------------------
1971 | event    | AMD founded
---------------------------------------------------------------------------------------------------------------------------
1971 | CPU      |Intel 4004 |  4   | 700 kHz | 64 B      | 2250 10000   | BCD, MOS   | 1st commercial CPU
     |          |           |      |         |           | transistors  |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1972 | g. cons. | Magnavox  |      |         | 64 B      |              | Intel CPU, | 1st home video game console, output
     |          | Odyssey   |      |         |           |              | game cards | to TV, no sound, 3 dots on screen
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1975 | CPU      | AMD Am9080|  8   | 2 MHz   |           | 6000 6000nm  |            | reverse-eng. clone of Intel 8080 CPU
     |          |           |      |         |           | transistors  |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1977 | g. cons. | Atari 2600|  8   | 1 MHz   | 128 B     |              | MOS, 2 KB  | output to TV, joystick, sprite-based
     |          |           |      |         |           |              | game cartr.| graphics
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1978 | CPU,     |Intel 8086 |  16  | 5 MHz   |           |              |            | starts x86 family
     | archit.  | (iAPX 86) |      |         |           |              |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1981 | computer | IBM PC    |  16  | 5 MHz   | 640 KB    |              | Intel 8088,| open architecture personal computer,
     |          |           |      |         |           |              | DOS        | defines desktop PCs, introduces IBM
     |          |           |      |         |           |              |            | PC compatibility
---------------------------------------------------------------------------------------------------------------------------
1981 | event    | Intel-AMD agreement                                                  Intel grants some rights to CPUs to     
     |          | agreement                                                            AMD, also out of pressure from IBM
---------------------------------------------------------------------------------------------------------------------------
1982 | CPU      |Intel 80286|  16  | 10 MHz  |           | 134000 1500nm|            |
     |          |           |      |         |           | transistors  |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1982 | computer | Commodore |  8   | 1 MHz   | 64 KB     |              | BASIC      | US successful home computer
     |          | 64 (C64)  |      |         |           |              | interpret.,| contained in a keyboard, begins
     |          |           |      |         |           |              | cartridg.  | demoscene
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1982 | computer |Sinclair ZX|  8   | 3.5 MHz | 48 KB     |              |BASIC,color | UK home comp., sold also in less  
     |          | Spectrum  |      |         |           |              |256x192dis. | powerful versions
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1983 | g. cons. | Nintendo  |  8   | 2 MHz   | 2 KB      |              |1 MB cartr. | version of Japanese Famicom with 
     |          | Entertain.|      |         |           |              |            | almost same HW, output to TV
     |          | System    |      |         |           |              |            |
     |          | (NES)     |      |         |           |              |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1985 | CPU      |Intel 80386|  32  | 20 MHz  |           | 275000 1000nm|            | IA-32 is the 32 bit version of
     |          | (i386,    |      |         |           | transistors  |            | X86 family
     |          |  IA-32)   |      |         |           |              |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1989 | CPU      |Intel 80486|  32  | 50 MHz  |           | 1M 1000nm    | L1 cache   |
     |          | (i486,486)|      |         |           | transistors  |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1989 | g. cons. | Game Boy  |  8   | 4 MHz   | 8 KB      |              | 160x144    | small handheld console by Nintendo,
     |          | (GB)      |      |         |           |              | 2b display | 2D games
     |          |           |      |         |           |              |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1991 | g.cons.  |Super Nint.|  16  | 4 MHz   | 128 KB    |              | 100 MB     | 2D and extremely simple 3D games
     |          |Entertain. |      |         |           |              | game cart. |
     |          | System    |      |         |           |              |            |
     |          | (SNES)    |      |         |           |              |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1991 | CPU      | AMD Am386 |  32  | 30 MHz  |           |              | no L2      | successful clone of Intel 80386, 
     |          |           |      |         |           |              |            | will lead to lawsuit with Intel
---------------------------------------------------------------------------------------------------------------------------
1993 | event    | NVidia founded
---------------------------------------------------------------------------------------------------------------------------
1993 | CPU      | Intel     |  32  | 60 MHz  |           | 3M 800nm     |~24 KB L1,  | remains x86, but drops it from the
     |          | Pentium   |      |         |           | transistors  |improved FPU| name
     |          | (P5)      |      |         |           |              |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1994 | g. cons. |PlayStation|  32  | 30 MHz  | 2 MB      |              |RISC CPU,GPU| by Sony, output to TV, 3D games
     |          | (PS1,PSX) |      |         |           |              |640x480 res.|
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1996 | g. cons. |Nintendo 64|  64  | 90 MHz  | 4 MB      |              |640x480 dis.|
     |          | (N64)     |      |         |           |              |64 MB cart. |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1996 | CPU      | AMD K5    |  32  | 100 MHz |           | 4M 400nm     |24 KB L1    | 1st in-house CPU by AMD, competition 
     |          |           |      |         |           | transistors  |            | to Intel Pentium
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1996 | GPU      | Voodoo    |      | 50 MHz  | 8 MB      | 500nm        |            | GPU by 3dfx
     |          | graphics  |      |         |           | transistors  |            | 
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1997 | CPU      | Intel     |  32  | 300 MHz |           | 7M 200nm     |MMX,32 KB   | evolving P5 archit. to P6
     |          | Pentium II|      |         |           | transistors  |L1,512 KB L2|
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1997 | CPU      | AMD K6    |  32  | 300 MHz |           | 8M 300nm     |MMX, 64 KB  | competition to Intel Pentium II
     |          |           |      |         |           | transistors  |L1          |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1998 | CPU      | Intel     |  32  |         |           |              |            | low-end consumer CPU line = Pentium
     |          | Celeron   |      |         |           |              |            | II without some cache
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1998 | CPU      | Intel Xeon|  32  | 400 MHz |           |              | 1 MB L2    | xeon =high end non-consumer Pentium
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1998 | g. cons. | Game Boy  |  8   | 4 MHz   | 32 KB     |              |160x144 col.| improved Game Boy
     |          |Color (GBC)|      |         |           |              | disp.      |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1999 | CPU      | AMD Athlon|  32  | 1 GHz   |           | 22M 200nm    | 128 KB L1, | 1st CPU to reach 1 GHz, overrtakes
     |          | (K7)      |      |         |           | transistors  | 512 KB L2  | and outperforms Intel Pentium III
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1999 | CPU      | Intel     |  32  | 1 GHz   |           | 10M 100nm    | SSE, PSN,  | race vs AMD to 1 GHz, controversial
     |          |Pentium III|      |         |           | transistors  | 512 KB L2  | serial number (PSN, surveillance)
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
1999 | GPU      | NVidia    |      |         |           |              |            | 1st GeForce by NVidia, fixed-pipeline
     |          |GeForce 256|      |         |           |              |            | (transf., light, clip)
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2000 | CPU      | Intel     |  32  | 2 GHz   |           | 42M 100nm    |            |
     |          | Pentium 4 |      |         |           | transistors  |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2000 | CPU      | AMD Duron |  32  | 1.2 GHz |           | 25M 130nm    | 128 KB L1, | budget low-end CPU alternative to
     |          |           |      |         w           | transistors  | 64 KB L2   | Athlon (reduced cache, ...)
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2001 | CPU,     | Intel     |  64  | 1.5 GHz |           |              |            | 1st Intel's 64bit CPU, IA-64 is NOT 
     | archit.  | Itanium   |      |         |           |              |            | compatible with x86-64, it is a new 
     |          | (IA-64)   |      |         |           |              |            | 64 bit architecture
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2001 | g. cons. | Game Boy  |  32  | 16 MHz  | 256 KB    |              |240x480 col.| handheld by Nintendo, 2D and very
     |          | Advance   |      |         |           |              | disp.      | simple 3D games
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2003 | CPU      |AMD Opteron|  64  | 2 GHz   |           | 100mn        | 1024 KB L2 | 1st CPU with x86-64 (AMD64) arch.,
     |          |           |      |         |           | transistors  |            | backw. compatible with x86
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2003 | g. cons. | Nokia     |  32  | 100 MHz | 16 MB     |              | ARM CPU,   | smartphone/gaming handheld by Nokia,
     |          | N-Gage    |      |         |           |              | 176x208    | 3D games
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2005 | CPU      | Intel     |  64  | 3 GHz   |           | 376M 80nm    | 2 cores    | 1st Intel's dual core CPU
     |          | Pentium D |      |         |           | transistors  |            |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2005 | CPU      | AMD Athlon|  64  | 2 GHz   |           | 240 80nm     | 2 cores,   | 1st AMD's dual core CPU
     |          | 64 X2     |      |         |           | transistors  | 1 MB L2    |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2006 | CPU      | Intel Core|  64  | 2 GHz   |           | 300M 65nm    | 2 cores    | new naming: solo = 1 core, duo = 2 
     |          | 2 Duo     |      |         |           | transistors  |            | cores, quad = 4 cores etc.
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2006 | event    | AMD buys ATI
---------------------------------------------------------------------------------------------------------------------------
2007 | event    | Intel Management Engine (ME)                                         ME, a dangerous backdoor, is intro.,
     |          |                                                                      later will be put in all CPUs
---------------------------------------------------------------------------------------------------------------------------
2008 | CPU      | Intel     |  64  | 1.6 GHz |           | 47M 45nm     | 2 cores    | Atom = new line of mobile low-volt.
     |          | Atom 330  |      |         |           | transistors  | 1024 KB L2 | CPUs
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2008 | CPU      | Intel     |  64  | 3 GHz   |           | 700M 45nm    | 8 MB L3    | new naming for Core processors: -iX,
     |          |Core-i7 920|      |         |           | transistors  | 4 cores    | higher X = better, != no. of cores
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2009 | CPU      | Intel     |  64  | 2.7 GHz |           | 700M 45nm    | 8 MB L3,   | 
     |          |Core-i5 750|      |         |           | transistors  | 4 cores    |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2010 | CPU      | Intel     |  64  | 3 GHz   |           | 382M 32nm    | 4 MB L3,   | 
     |          |Core-i3 530|      |         |           | transistors  | 2 cores    |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2010 | CPU      | Intel     |  64  | 3.2 GHz |           | 1B 32nm      | 12 MB L3   |
     |          |Core-i7 970|      |         |           | transistors  | 6 cores    |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2012 | computer | Raspberry |  64  |>=700 MHz| >=256 MB  |              | ARM,USB,SD,| popular UK single board comp.,"open"
     |          | Pi        |      |         |           |              | ET,HDMI,GPU| arch. (proprietary firmware)
---------------------------------------------------------------------------------------------------------------------------
2013 | event    | AMD Platform Security Processor                                      AMD starts putting backdoor (similar
     |          |                                                                      to Intel ME) to its CPUs
---------------------------------------------------------------------------------------------------------------------------
2015 | g.cons.  | Arduboy   |  8   | 16 MHz  | 2.5 KB    |              | 32 KB ROM, | simple open handheld console
     |          |           |      |         |           |              |128x64 1b d.|
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2017 | g.cons.  | Pokitto   |  32  | 48 MHz  | 36 KB     |              | ARM CPU,   | open educational handheld console
     |          |           |      |         |           |              | 256 KB ROM,|
     |          |           |      |         |           |              | 220x176    |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2017 | CPU      |Intel Core-|  64  | 2.5 GHz |           | ~5B 14nm     | 24 MB L3   |
     |          | i9 7980XE |      |         |           | transistors  | 18 cores   |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2017 | CPU      | AMD Ryzen |  64  | 4 GHz   |           | 5B 12nm      | 96 KB L1,  |
     |          |Threadripp.|      |         |           | transistors  | 32 MB L3,  |
     |          | 1950X     |      |         |           |              | 16 cores   |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------
2018 | g.cons.  | Gamebuino |  32  | 48 MHz  | 32 KB     |              | ARM CPU,   | open educational handheld console        
     |          | (GB) Meta |      |         |           |              | 256 KB ROM |
     |          |           |      |         |           |              | 160x128    |
-----+----------+-----------+------+---------+-----------+--------------+------------+-------------------------------------

school results
These are my school results.

=================================================================================
  ELEMENTARY SCHOOL - Základní Škola Babice
=================================================================================
____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
| period       | classes                                                                                                                                                                                                                                                   |           |           |           |           |
|      | year@ |           |   Czech   |  fundam.  |  musical  |    art    |  manual   | physical  |  national |  natural  |  English  |           |   civil   |  family   |           |           |           | computer  |  English  |   house   |   Czech.  |   math    |           |           |  absent   |           |
| year |(class)|   math    |   lang.   | (prvouka) | education | education |  work ed. | education |  history  |  science  |   lang.   |  history  | education | education | geography |  physics  | chemistry |  science  | conversat.|  keeping  | lang. exc.| excercise |   mean    | behavior  |   hours   |   other   |
|______|_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |                                                                                   |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
| 1997 |       |                                         1                                         |           |           |           |           |           |           |           |           |           |           |           |           |           |           |     1     |           |    36     |           |
|______|   1   |___________________________________________________________________________________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (C)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     1     |     1     |     1     |     1     |     1     |     1     |     1     |           |           |           |           |           |           |           |           |           |           |           |           |           |           |     1     |     1     |    36     |           |
| 1998 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     1     |     1     |     1     |     1     |     1     |     1     |           |           |           |           |           |           |           |           |           |           |           |           |           |           |     1     |     1     |    64     |           |     
|______|   2   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (C)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     1     |     1     |     1     |     1     |     1     |     1     |     1     |           |           |           |           |           |           |           |           |           |           |           |           |           |           |     1     |     1     |    22     |           |
| 1999 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     1     |     1     |     1     |     1     |     1     |     1     |           |           |  passed   |           |           |           |           |           |           |           |           |           |           |           |     1     |     1     |    27     |           |   
|______|   3   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |commendat. |   
|      |       |     1     |     1     |     1     |     1     |     1     |     1     |     1     |           |           |  passed   |           |           |           |           |           |           |           |           |           |           |           |     1     |     1     |    46     |for learn. | 
| 2000 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|attitude___|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     1     |           |     1     |     1     |     1     |     1     |     1     |     1     |     1     |           |           |           |           |           |           |           |           |           |           |           |     1     |     1     |    136    |           |   
|______|   4   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     1     |           |     1     |     1     |     1     |     1     |     2     |     1     |     2     |           |           |           |           |           |           |           |           |           |           |           |   1.22    |     1     |    88     |           |   
| 2001 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     1     |           |     1     |     1     |     1     |     1     |     2     |     1     |     2     |           |           |           |           |           |           |           |           |           |           |           |   1.22    |     1     |    151    |           |   
|______|   5   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     1     |           |     1     |     1     |     1     |     1     |     1     |     1     |     2     |           |           |           |           |           |           |           |           |           |           |           |   1.11    |     1     |    76     |           |   
| 2002 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |  
|      |       |     2     |     2     |           |     1     |     1     |     1     |     1     |           |     1     |     1     |     1     |     1     |     1     |     1     |     1     |           |           |           |           |           |           |   1.15    |     1     |    88     | distinct. |
|______|   6   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (B)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     2     |     2     |           |     1     |     1     |     1     |     1     |           |     1     |     1     |     2     |     1     |     1     |     1     |     2     |           |           |           |           |           |           |   1.31    |     1     |    84     | distinct. |   
| 2003 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     2     |           |     1     |     1     |     1     |     1     |           |     1     |     1     |     2     |     2     |     1     |     1     |     2     |           |     1     |     1     |           |           |           |   1.27    |     1     |    54     | distinct. |   
|______|   7   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (B)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     1     |           |     1     |     1     |     1     |     1     |           |     2     |     1     |     2     |     1     |     1     |     1     |     2     |           |     1     |     1     |           |           |           |    1.2    |     1     |    84     | distinct. |   
| 2004 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |   
|      |       |     1     |     2     |           |     1     |     1     |     1     |     1     |           |     1     |     1     |     3     |     1     |     1     |     2     |     2     |     1     |     1     |           |     1     |           |           |   1.31    |     1     |    50     |           |   
|______|   8   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (B)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |distinct., |   
|      |       |     2     |     2     |           |     1     |     1     |     1     |     1     |           |     2     |     1     |     2     |     1     |     1     |     2     |     2     |     2     |     1     |           |     1     |           |           |   1.43    |     1     |    98     |comm. for  |   
| 2005 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|math_comp._|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |distinct., |   
|      |       |     1     |     2     |           |     1     |     1     |     1     |     1     |           |     2     |     1     |     2     |     1     |     1     |     2     |     1     |     2     |           |           |           |     1     |     1     |   1.31    |     1     |    86     |rebuke for |   
|______|   9   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|absent_HWs_|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |comm. for  |   
| 2006 |       |     2     |     2     |           |     1     |     1     |     1     |     1     |           |     1     |     1     |     2     |     1     |     1     |     1     |     2     |     3     |           |           |           |     1     |     1     |   1.38    |     1     |    131    |good behav.|   
|______|_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|

  explanations:
  classification: 1 = best, 5 = worst (except for behaviour in which 3 is the worst)

=================================================================================
  HIGH SCHOOL - Střední Průmyslová Škola Zlín, obor technické lyceum
=================================================================================

________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
| period       | classes                                                                                                                                                                                                                                       |           |           |           |           |
|      | year@ |           |   Czech   |  English  |           |           |           |           |           | physical  | computer  | technical |   civil   |    CAD    |industrial | program-  | microcomp.|   math    |  physics  |descriptive|           |           |           |  absent   |           |
| year |(class)|   math    |   lang.   |   lang.   |  history  | geography |  physics  | chemistry |  biology  | education |  science  |  drawing  | education |  systems  |    art    | ming      | programm. |  seminar  |  seminar  | geometry  |  economy  |   mean    | behavior  |   hours   |   other   |
|______|_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
| 2006 |       |     2     |     1     |     1     |     2     |     2     |     3     |     3     |     2     |     1     |     2     |     2     |           |           |           |           |           |           |           |           |           |   1.91    |     1     |    42     |           |
|______|   1   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (H)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     3     |     1     |     2     |     3     |     3     |     2     |     3     |     2     |     1     |     2     |     3     |           |           |           |           |           |           |           |           |           |   2.27    |     1     |    40     |           |
| 2007 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     2     |     2     |     1     |     2     |           |     3     |     3     |           |     1     |     2     |     2     |     2     |     2     |     2     |           |           |           |           |           |           |     2     |     1     |    29     |           |
|______|   2   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (H)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     1     |     2     |     1     |     3     |           |     2     |     3     |           |     1     |     2     |     2     |     2     |     3     |     1     |           |           |           |           |           |           |   1.92    |     1     |    44     |           |
| 2008 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     2     |     2     |     1     |           |           |     2     |     3     |           |     1     |     1     |           |     3     |     3     |           |     2     |     1     |           |           |     1     |           |   1.83    |     1     |    15     |           |
|______|   3   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (H)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     2     |     3     |     1     |           |           |     2     |     4     |           |     1     |     1     |           |     4     |     2     |           |     2     |     3     |           |           |     3     |           |   2.33    |     1     |    53     |           |
| 2009 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |       |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     2     |     2     |     1     |           |           |     1     |           |           |     1     |     1     |           |           |           |           |     1     |     2     |     1     |     2     |     3     |     3     |   1.67    |     1     |    13     |           |
|______|   4   |___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |  (H)  |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |           |
|      |       |     2     |     3     |     1     |           |           |     2     |           |           |     1     |     1     |           |           |           |           |     2     |     3     |     2     |     2     |     2     |     4     |   2.08    |     1     |    35     |           |
| 2010 |_______|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|___________|
|      |                                                                                                                                                                                                                                                                                           |commendat. |                                                                                                                                                                                                                                                                                 |
|      |  final exam (maturita):  Czech language and literature: 1                                                                                                                                                                                                                                 |for a good |
|      |                          computer science:              1                                                                                                                                                                                                                                 |final proj.|
|      |                          mathematics:                   3                                                                                                                                                                                                                                 |           |
|      |                          physics:                       2                                                                                                                                                                                                                                 |           |
|      |                          year project:                  1                                                                                                                                                                                                                                 |           |
|______|___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________|___________|

  explanations:
  classification: 1 = best, 5 = worst (except for behaviour in which 3 is the worst)

=================================================================================
  UNIVERSITY - Brno University of Technology, Faculty of Information Technology
=================================================================================
__________________________________________________________________________________________________________________________________________________________________________________________
| period                       | course                                              | results                                                     | whole semester                      |
| study | year | year@ | abbr. | title                                | cred. | type | midterm | projects         | labs   | other | exam  | total | cred. | mean  | place  | scholar-   |
|_______|______|_______|_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|_ship (CZK)_|
|       |      |       |  IAS  | Asemblery (Assembly Languages)       |   6   |  P   |  17/20  |                  | 20/20  |       | 36/60 | 73  C |       |       |        |            |
|  Bc.  |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IDA  | Diskrétní matematika                 |   7   |  P   |         |                  |        |  83   |       | 83  B |       |       |        |            |
|       |      |       |_______|_(Discrete Mathematics)_______________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       | 2010 |       |  ITO  | Teorie obvodů (Circuit Theory)       |   6   |  P   |  12/20  | 12.5/15          |        |       | 34/65 |58.5 E |  31   | 2.08  | 64/226 |     0      |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IUS  | Úvod do softwarového inženýrství     |   5   |  P   |         | 5/5 6/10 20/20   |        |       | 43/65 | 74  C |       |       |        |            |
|       |      |       |_______|(Introduction to Software Engineering)|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IZP  | Základy programování                 |   7   |  P   |  7/12   | 2/5 7/10 9.5/10  |        |   1   | 38/55 |71.5 C |       |       |        |            |
|       |______|       |_______|_(Introduction to Programming Systems)|_______|______|_________|_7/8______________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  IFY  | Fyzika (Physics)                     |   5   |  P   |  17/20  |                  | 18/20  |       | 55/60 | 90  A |       |       |        |            |
|       |      |   1   |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IMA  | Matematická analýza                  |   5   |  P   |         |                  |        |  83   |       | 83  B |       |       |        |            |
|       |      |       |_______|_(Mathematical Analysis)______________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  INC  | Návrh číslicových systémů            |   5   |  P   |  18/25  | 20/20            |        |       | 49/55 | 87  B |       |       |        |            |
|       |      |       |_______|_(Digital Systems Design)_____________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IOS  | Operační systémy (Operating Systems) |   5   |  P   |         | 5/15 15/15       |        |       | 51/70 | 71  C |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|  37   | 1.581 | 25/184 |    7174    |
|       |      |       |  IPR  | Prvky počítačů (Computer Hardware)   |   6   |  P   | 7.5/15  |                  | 30/30  |       | 30/55 |67.5 D |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  BAN4 | Angličtina 4: středně pokročilí 2    |   6   | PVA  |  39/40  |                  |        |       | 59/60 | 98  A |       |       |        |            |
|       |      |       |_______|_(New Headway Intermediate 2)_________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       | 2011 |       |  ITW  | Tvorba webových stránek (Web Design) |   5   |  V   |  12/20  | 18/20 29/30      | 10/10  |       | 17/20 | 86  B |       |       |        |            |
|       |      |_______|_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  IAL  | Algoritmy (Algorithms)               |   5   |  P   |  14/14  | 10/10 9/10 4.4/5 |        |   1   | 28/51 |75.4 C |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|_9/10_____________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IFJ  | Formální jazyky a překladače         |   5   |  P   |  16/20  | 19/20 4.4/5      |        |       |38.2/55|77.6 C |       |       |        |            |
|       |      |       |_______|_(Formal Languages and Compilers)_____|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  INM  |Numerická matematika a pravděpodobnost|   5   |  P   |         |                  |        |  79   |       |  79 C |       |       |        |            |
|       |      |       |_______|_(Numerical Methods and Probability)__|_______|______|_________|__________________|________|_______|_______|_______|  31   | 1.983 | 78/275 |     0      |
|       |      |       |  INP  | Návrh počítačových systémů           |   5   |  P   |  20/20  | 12/12 6/16       |        |       | 32/52 |  70 C |       |       |        |            |
|       |      |       |_______|_(Design of Computer Systems)_________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  ISS  | Signály a systémy                    |   6   |  P   | 17.5/25 | 12/12            | 12/12  |       |42.8/51|84.3 B |       |       |        |            |
|       |      |       |_______|_(Signals and Systems)________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IPSO | Pedagogická psychologie              |   5   |  V   |         |                  |        |  65   |       |  65 D |       |       |        |            |
|       |______|       |_______|_(Educational Psychology)_____________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |   2   |  IDS  | Databázové systémy (Database Systems)|   5   |  P   | 12.5/14 | 5/5 5/5 5/5 13/20|        |       |32.5/51|  73 C |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IPK  | Počítačové komunikace a sítě         |   5   |  P   |  5.4/9  | 3.5/4 6/6 8/10   |  6/6   |       | 44/65 |72.9 C |       |       |        |            |
|       |      |       |_______|(Computer Communications and Networks)|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IPP  | Principy programovacích jazyků a OOP |   5   |  P   |  18/20  | 8.6/10 3.9/10    |        |       | 26/60 |56.5 E |       |       |        |            |
|       |      |       |_______|_(Principles of Programming Languages)|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IZG  | Základy počítačové grafiky           |   6   |  P   |  9/12   | 6/18             | 18/18  |       | 50/52 |  83 B |       |       |        |            |
|       |      |       |_______|_(Computer Graphics Principles)_______|_______|______|_________|__________________|________|_______|_______|_______|  32   | 2.08  | 64/164 |     0      |
|       |      |       |  IZU  | Základy umělé inteligence            |   4   |  P   |  8/20   |                  |17.75/20|       | 51/60 |76.75 C|       |       |        |            |
|       |      |       |_______|_(Fundamentals of Artif. Intelligence)|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IJA  | Seminář Java                         |   4   | PVT  |         | 20/20 64/80      |        |       |       |  pass |       |       |        |            |
|       |      |       |_______|_(Java Programming Language)__________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  PRM  | Právní minimum (Fundamentals of Law) |   3   | PVH  |         |                  |        |       |       |  pass |       |       |        |            |
|       |      |_______|_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       | 2012 |       |  IIS  | Informační systémy                   |   4   |  P   |  15/19  | 30/30            |        |       | 24/51 |  69 D |       |       |        |            |
|       |      |       |_______|_(Information Systems)________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IMP  | Mikroprocesorové a vestavěné systémy |   6   |  P   |  14/14  | 14.6/19          | 16/16  |       |23.3/51|67.9 D |       |       |        |            |
|       |      |       |_______|(Microprocessors and Embedded Systems)|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IMS  | Modelování a simulace                |   5   |  P   |  8/10   | 20/20            |        |       | 44/70 |  72 C |       |       |        |            |
|       |      |       |_______|_(Modelling and Simulation)___________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  IPZ  | Periferní zařízení                   |   4   |  P   |  26/30  |                  | 3.8/4  |       |63.3/66|93.1 A |       |       |        |            |
|       |      |       |_______|_(Peripheral Devices)_________________|_______|______|_________|__________________|________|_______|_______|_______|  33   | 2.053 | 96/240 |     0      |
|       |      |       |  ISA  | Síťové aplikace a správa sítí        |   5   |  P   |         | 16/21            | 16/24  |       | 33/55 |  65 D |       |       |        |            |
|       |      |   3   |_______|_(Network Applic. and Network Admin.)_|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  ISP  | Semestrální projekt (Term Project)   |   2   |  P   |         |                  |        |  100  |       |  pass |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  ITU  | Tvorba uživatelských rozhraní        |   4   |  P   |  18/20  | 43/55            | 24/25  |       |       |  85 B |       |       |        |            |
|       |      |       |_______|_(User Interface Programming)_________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  JS1  | Španělština: začátečníci 1/2         |   3   |  V   |         |                  |        |       |       |  pass |       |       |        |            |
|       |______|       |_______|_(Spanish for Beginners 1/2)__________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  ITY  | Typografie a publikování             |   4   |  V   |         | 6/10 12/15 13/15 |        |       | 30/30 |  86 B |       |       |        |            |
|       |      |       |_______|_(Typography and Publishing)__________|_______|______|_________|_10/15 15/15______|________|_______|_______|_______|   7   |  1.5  | 59/369 |     0      |
|       | 2013 |       |  JS1  | Španělština: začátečníci 2/2         |   3   |  V   |         |                  |        |  85   |       |  85 B |       |       |        |            |
|       |      |_______|_______|_(Spanish for Beginners 2/2)__________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  IPA  | Pokročilé asemblery                  |   5   |  V   |         | 20/26            | 14/14  |       | 23/60 |  57 E |       |       |        |            |
|       |______|       |_______|_(Advanced Assembly Languages)________|_______|______|_________|__________________|________|_______|_______|_______|   5   |  3.0  | 125/160|    500     |
|       |      |       |  IBP  | Bakalářská práce (Bachelor's Thesis) |   9   |  P   |         |                  |        |       |       |  pass |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |                                                                                                                                                                 |
|       |      |       |  final exam (státnice):  thesis:   A             total Bc. study stats:  credits (work hours):   85 (5180)           mark histogram:  A: 4                      |
|       |      |       |                          exam:     B                                     points:                 2614/3200                            B: 10                     |
|       |      |   4   |                          total:    B                                     exams:                  26                                   C: 12                     |
|       |      |       |                          place:    5/123                                 midterms:               22                                   D: 5                      |
|       |      |       |                                                                          projects:               45                                   E: 3                      |
|       |      |       |                                                                          courses:                37                                   F: 0                      |
|       |      |       |                                                                          mean:                   1.948                                                          |
|       |      |       |                                                                          merit scholarship:      7674 CZK                                                       |
|       |      |       |                                                                          repeated exams:         0                                                              |
|_______|      |_______|_________________________________________________________________________________________________________________________________________________________________|
|       | 2014 |       |  HSC  | Hardware/Software Codesign           |   5   |  P   |  16/20  | 5/25             |        |       | 45/55 |  66 D |       |       |        |            |
|  Ing. |      |       |_______|_(Hardware/Software Codesign)_________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  MAT  | Matematické struktury v informatice  |   5   |  P   |  14/20  |                  |        |       | 68/80 |  82 B |       |       |        |            |
|       |      |       |_______|_(Math. Structures in Computer Sc.)___|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  PDB  | Pokročilé databázové systémy         |   5   |  P   |  14/20  | 17/20            |        |       | 39/60 |  70 C |       |       |        |            |
|       |      |       |_______|_(Advanced Database Systems)__________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  PGR  |Počítačová grafika (Computer Graphics)|   5   |  P   |   7/7   | 30/30            | 12/12  |       | 41/51 |  90 A |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|  35   | 1.583 | 10/110 |    9913    |
|       |      |       |  TIN  | Teoretická informatika               |   5   |  P   |  19/20  | 5/5 4/5 4.2/5 5/5|        |       | 49/60 |86.2 B |       |       |        |            |
|       |      |       |_______|_(Theoretical Computer Science)_______|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  FIT  | Dějiny a filozofie techniky          |   3   | PVH  |         |                  |        |       |       |  pass |       |       |        |            |
|       |      |       |_______|(History and Philosophy of Technology)|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  PGP  | Pokročilá počítačová grafika         |   5   | PVG  |   7/9   | 10/10 30/30      |        |       | 43/51 |  90 A |       |       |        |            |
|       |      |       |_______|_(Advanced Computer Graphics)_________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |   1   |  STI  | Seminář teoretické informatiky       |   2   |  V   |         |                  |        |       |       |  pass |       |       |        |            |
|       |______|       |_______|(Theoretical Computer Science Seminar)|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  FYO  | Fyzikální optika (Physical Optics)   |   5   |  P   |  8/10   | 21/30            |        |       | 29/60 |  58 E |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  MUL  | Multimédia (Multimedia)              |   5   |  P   |  8/10   | 23/24            | 15/15  |       | 46/51 |  92 A |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  PDS  | Přenos dat, poč. sítě a protokoly    |   5   |  P   |  9/15   | 9/25             |        |       | 36/60 |  54 E |       |       |        |            |
|       |      |       |_______|(Data Comm., Comp. Netw. and Protoc.)_|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  ZPO  | Zpracování obrazu (Image Processing) |   5   |  P   |  10/10  | 24/29            | 10/10  |       | 42/51 |  86 B |  35   | 1.714 | 20/127 |     0      |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       | 2015 |       |  ZRE  | Zpracování řečových signálů          |   5   |  P   | 10.5/14 | 14/15 14/14      |  6/6   |       |40.8/51|85.3 B |       |       |        |            |
|       |      |       |_______|_(Speech Signal Processing)___________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  WAP  | Internetové aplikace                 |   5   | PVI  |  16/19  | 30/30            |        |       | 48/51 |  94 A |       |       |        |            |
|       |      |       |_______|_(Internet Applications)______________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  VIN  | Výtvarná informatika (Computer Art)  |   5   |  V   |         | 49/49 51/51      |        |       |       | 100 A |       |       |        |            |
|       |      |_______|_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  GZN  | Grafická a zvuková rozhraní a normy  |   5   |  P   |   8/9   | 39/40            |        |       | 38/51 |  85 B |       |       |        |            |
|       |      |       |_______|(Graph. and Sound Interf. and Stand.)_|_______|______|_________|__________________|________|_______|_______|_______|   9   | 1.277 | 10/198 |     0      |
|       |      |       |  KRG  | Kreativní grafika (Creative Art)     |   4   |  V   |  30/40  | 60/60            |        |       |       |  90 A |       |       |        |            |
|       |______|       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |   2   |  ARC  |Architekt. a program. paralel. systémů|   5   | PVC  |  7/10   | 10/15 3/15       |        |       | 38/60 |  58 E |       |       |        |            |
|       |      |       |_______|(Paral, System Archit. and Program.)__|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  VNV  | Vysoce náročné výpočty               |   5   | PVM  |  18/20  |                  | 19/20  |       | 36/60 |  73 C |  15   | 2.166 | 110/198|     0      |
|       |      |       |_______|_(High Performance Computations)______|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  VIZ  | Vizualizace a CAD                    |   5   |  V   |  28/40  | 60/60            |        |       |       |  88 B |       |       |        |            |
|       | 2016 |_______|_______|_(Visualization and CAD)______________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  SEP  | Semestrální projekt (Term Project)   |   5   |  P   |         | 90/100           |        |       |       |  90 A |       |       |        |            |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  GUX  | Grafická uživ. rozhraní v X Window   |   5   |  V   |  14/20  | 7/8 9/12         |        |       | 35/60 |  65 D |  15   |  1.5  | 13/88  |     0      |
|       |      |       |_______|(Graph. User Interf. in X Window Sys.)|_______|______|_________|__________________|________|_______|_______|_______|       |       |        |            |
|       |      |       |  POV  | Počítačové vidění (Computer Vision)  |   5   |  V   |   9/9   | 8.1/10 27/30     |        |       | 46/51 |90.1 A |       |       |        |            |
|       |______|       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |  DIP  | Diplomová práce (Master's Thesis)    |  13   |  P   |         |                  |        |       |       |  pass |  13   |  3.5  |  0/0   |    400     |
|       |      |       |_______|______________________________________|_______|______|_________|__________________|________|_______|_______|_______|_______|_______|________|____________|
|       |      |       |                                                                                                                                                                 |
|       |      |   3   |  final exam (státnice):  thesis:   A             total Ing. study stats:  credits (work hours):   122 (3416)          mark histogram:  A: 9                     |
|       |      |       |                          exam:     C                                      points:                 1692/2100                            B: 6                     |
|       |      |       |                          total:    B                                      exams:                  17                                   C: 3                     |
|       | 2017 |       |                          place:    ?/?                                    midterms:               19                                   D: 2                     |
|       |      |       |                                                                           projects:               29                                   E: 3                     |
|       |      |       |                                                                           courses:                24                                   F: 0                     |
|       |      |       |                                                                           mean:                   1.677                                                         |
|       |      |       |                                                                           merit scholarship:      10313 CZK                                                     |
|       |      |       |                                                                           repeated exams:         0                                                             |
|_______|______|_______|_________________________________________________________________________________________________________________________________________________________________|
|       |      |       |                                                                                                                                                                 |
|       |      |       |  total study stats:  credits (work hours):   307 (8596)          mark histogram:  A: 13                                                                         |
|       |      |       |                      points:                 4306/5300                            B: 16                                                                         |
|       |      |       |                      exams:                  43                                   C: 15                                                                         |
|       |      |       |                      midterms:               41                                   D: 7                                                                          |
|       |      |       |                      projects:               74                                   E: 6                                                                          |
|       |      |       |                      courses:                61                                   F: 0                                                                          |
|       |      |       |                      mean:                   1.845                                                                                                              |
|       |      |       |                      merit scholarship:      17987 CZK                                                                                                          |
|       |      |       |                      repeated exams:         0                                                                                                                  |
|_______|______|_______|_________________________________________________________________________________________________________________________________________________________________|

  explanations:

  study type:
      P   = povinný (mandatory)
      V   = volitelný (optional)
      PV* = povinně volitelný (mandatory optional)
      
medical
Yes, this is public.

General
=======

- Never had the sense of smell, as far as I can recall.
- Have hallux varus (gap between foot fingers).
- In teens broken right instep during football.
- blood type: B (probably) or AB, home tested
- handedness: right

Psychological
=============

- From the age of about 20 suffering from anxiety, months-long episodes of depression, psychosomatic symptoms (exhaustion, sight issues, ...), panic attacks -- taking antidepressants, visiting psychiatrist and psychotherapist.
- Diagnosed avoidant personality disorder during a stay in mental hospital (FN Brno) in 2019.
- In 2020 admitted disability pension (level 1 of 3) for AVPD.
- IQ: measured by Mensa CR: 151 (Stanford-Binet, SD 15), 148 (Czech scale, SD 15), 177 (Cattel scale, SD 24) 
- INTJ, melancholic, 100% introverted according to some tests.
- political opinions: pacifist anarcho communist

Genetic Markers
===============

results of parents' DNA tests:

father:
  maternal line (mitochondrial DNA):
    haplogroup: HV
    HVR1 mutations: 16093C, 16129A, 16221T, 16519C
    method: SOP085
  paternal line:
    haplogroup: E1b1b
    method: SOP84
    DYS439    13
    DYS390    25
    DYS385b   18
    DYS389I   13
    DYS389II  32
    DYS438    10
    DYS437    14
    DYS385a   17
    DYS391    11
    DYS19     13
    DYS393    13
    DYS392    11

mother:
  maternal line (mitochondrial DNA):
    HVR2 mutations: A263G, 309.1C, 315.1C
    HVR1 mutations: T16519C
  paternal line (Y chromosome):
    DYS456    16
    DYS389I   13
    DYS390    24
    DYS389II  30
    DYS458    15
    DYS19     16
    DYS385    11, 15
    DYS393    13
    DYS391    10
    DYS439    10
    DYS635    25
    DYS392    11
    YGATAH4   12
    DYS437    14
    DYS438    11
    DYS448    21

ideas
These are just ideas I write down so that I can possibly use them later.

---
"XXX je styl, který se snaží být co nejvíce nedefinovatelný, i když i to často porušuje, právě aby nemohl být takto definován."
---
"velmi zakázané"
---
lednička, která se dá otevřít jen jednou za určitou dobu (pro lidi, co chtějí zhubnout)
---
kino, ve kterém se promítají jen reklamy, návštěvníci dostávají za jejich sledování zaplaceno.
---
krabička, která se připojí k televizi, detekuje reklamy a pouští místo nich např. zvolenou hudbu.
---
sluneční hodiny - nahoře tlustá deska s tenkými dlouhými děrami v různých úhlech, které propustí paprsek právě jenom v onom úhlu, na konci každé zrcátko, které paprsek přesněruje na kulatý ciferník.
---
"Já je relativní pojem."
---
Trapasplast
---
"Nikde není hezky a všude je hezky."
---
"Používá hodně středníků => je to programátor."
---
brčko se závažím (aby furt nevyjíždělo)
---
"slevy zdarma"
---
přízemní ryba (ancitrus)
---
příklad: spočítat časy, kdy jsou ručičky hodinek na jedné přímce
---
"Mluvím plynatě česky."
---
vylučovací metoda - přemýšlení na wc
---
pseudohotový projekt (nemůže být úplně hotový)
---
Zelený výkal
---
Čivavovost
---
"Nechte mši mšicím."
---
Věda zabývající se sama sebou nebo vědami, které se zabývají sami sebou
---
Posilovací stroj, co vyrábí elektřinu
---
Virtuální krčma v prohlížeči
---
Facebook účet ovládaný robotem.
---
Grafický esolang (flow chart), program je png obrázek vývojového diagramu, interpretuje se...
---
příšera složená z malých kulatých (buňkovytých) příšer, např. do RGP
---
univerzální věc
---
Program pro řešení celočíselných sérií (brute force test diferencí, substitucí, transformací, ...).
---
simulátor dirigenta - myš ovládá tempo, klávesnice dynamiku
---
video: jak funguje počítač (kompletně od elektroniky až po aplikace OS nebo internet, animované)
---
hra s 2D časem
---
"Takže věty se prý nemají začínat slovem takže."
---
opak komprimačního programu (zvětší soubor) - kompresor
---
3D internetový obchod (FPS pohled, nadstavba nad klasickým webovým obchodem)
---
parodický software
---
Převést nějakou TES hru na textové RPG. Wrapper?
---
Příběh pro knihu:
V blízké budoucnosti, krátce po vynalezení teleportů - existují "proxy" budovy (je jich jenom pár) na neutrálních půdách, v každé z nich existují portály do všech významných míst světa. Ze všech ostatních míst na světě existují portály pouze do "proxy" budov. Hlavní hrdina (informatik?) zůstane po globálním výpadku proudu uvězněný, spolu s dalšími lidmi, v proxy budově uprostřed antarktidy (která v té době bude díky technologii již mírně obydlená, ale pouze velmi řídce). Proxy budovy mají sice záložní zdroje, ty ale z nějakého důvodu vypadly taky. Zanedlouho se dozví, např. z nějakého rádia, že důvodem výpadku je nejspíš extrémně silné záření z vesmíru, které na Zemi bylo nejspíš vysláno záměrně jinou inteligentní formou života, protože bylo namířeno přímo na Zemi. Mimozemská civilizace chce nejspíš ochromit lidskou civilizaci a pak na ni zaútočit, čeká se na válku.
---
Život je nespravedlivý, ale jenom k někomu => je nespravedlivý ke všem => je spravedlivý ke všem => je spravedlivý (tady už je to stabilní)
---
Program pro návrh friendship bracelets - možnost zadat vzor a nechat pro něj vypočítat návod (prohledáváním stav. prostoru, samozřejmě ne pro každý vzor existuje návod).
---
Program pro návrh pěkných funkcí - interaktivní GUI, kde se dá např. nakreslit tvar a ono to pro něj najde funkci.
---
Procedurální generování her (celých, včetně žánru, AI, grafiky, hudby atd.).
---
zhoubná pojistka
---
"You make me brave."
---
implicitní coura - holka, která je moc pěkná, a proto implicitně předpokládám, že je coura
---
napsat něco jako mspaint, ale vylepšené (open-source, multiplatform, víc undo atd.)
---
napsat vlastní jednoduchý textový webový prohlížeč
---
sen: pes, který umí povely, ale aby se mu mohl ten povel dát, tak se mu musí říct, aby načetl patřičnou knihovnu
---
naprogramovat (online) nástroj pro ryhlé programování rastrové grafiky - operace pro manipulaci s pixely, načítání/ukládání obrázků apod.
---
naprogramovat jednoduchý 3D editor zaměřený na hry, ty existující sux
---
hra, která je kompletně procedurálně generovaná, včetně žánru, hudby, spritů, ...
---
Why is there no species with three or more genders?
---
Napsat program pro hodnocení věcí (např. lidí), jako tabule v top gearu. Věci se posouvají po 2D ploše a celé se to ukládá do jednoduché textové databáze, věc má jméno a může mít fotku.
---
Bavím se tím, že vypadám jako bezdomovec, i když nejsem.
---
Stránka zasvěcená herním světům a jejich mapám.
---
Vyhledávač porna podle atributů aktérů: např. výška, tetování, váha, barva kůže, ...
---
sociální sebezraňování
---
Program - hudební nástroj v Javascriptu, bude 2D pole, x směr je výška, y směr je síla, jezdí se po tom myší a klikem se hraje.
---
Podmnožina internetu, pro offline browsing v zombie krytu.
---
Knížka s různými konci, popř. např. trilogie, kde každý díl má např. 3 verze a všechny navazují.
---
Hra založená na neuronových sítích - podstatou by bylo to, aby hráč učil počítač, např. pomocí pohybů myši apod., dokončit jednotlivé úrovně.
---
no gain, no pain
---
Hra o programování - hráč staví roboty a programuje je a pak je pouští do levelů. Levely mají nepřátele, kteří jsou naprogramováni stejně jako hráčovi roboti a někdy by bylo možné prohlédnout si jejich zdrojový kód a hledat jejich slabiny. Za vyhrané levely hráč dostane peníze a za ty bude nakupovat nové součástky (např. procesor s větší pamětí na program nebo jinou instrukční sadou nebo periferie pro robota, ...). Popř. by bylo možné vypustit více robotů do jednoho levelu.
---
Cokoliv kdyby dělal každý, by nebylo dobré. - Protiargumrnt proti "Kdyby se takhle choval každý, ..."
---
Příběh o matematikovi vyprávěný někým jiným: téma jeho výzkumu by bylo vždycky cenzurováno, protože mu vypravěč vůbec nerozumí, je to pro něho prostě nějaký blábol.
---
"There is no such thing as too much spare time."
---
hybridní prostor: Prostor, který "rozvíjí" své dimenze. Jde o souřadnice, u nichž má blízko počátku souřadnic víceméně význam jenom první (x) složka, ostatní se násobí nulou nebo něčím blízkým nule, dále od počátku se začne rozvíjet druhá souřadnice (y), pak třetí atd. Pokud jsou souřadnice bodu a např.:

a = [x, y, z]

pak se na kartézské

a = [x', y', z']

převedou takto (jeden možný způsob):

x' = (1 - 1/(1 + x)) * x
y' = (1 - 1/(1 + sqrt(x'^2 + y^2))) * y
z' = (1 - 1/(1 + sqrt(x'^2 + y'^2 + z'^2))) * z

Teoreticky tam může být jiná metrika, nebo na pravých stranách můžou být místo x', y' apod. jen x, y. 
---
selektivní tolerance (USA)
---
"Jsem zase na začátku" může být řečeno i vpozitivním smyslu!
---
Předsudky nejsou špatné, pokud znamenají "předběžné úsudky" a ne "předčasné soudy".
---
Simulace sociálních skupin: budou dány skupiny a lidi, každý člověk je muž nebo žena, gay nebo straight nebo bisexual, hipster nebo mainstreamer nebo normal. V každém kroku simulace se vybere náhodně jeden člověk a ten se na základě svých preferencí rozhodne, do které skupiny chce přestoupit (nebo jestli přestoupit nechce). Cílem je hledat stabilní a nestabilní konfigurace ve společnosti.
---
You become anti-social when society becomes anti-you.
---
šachová paralympiáda (pro dementy).
---
stěžejní stěžeň
---
Australský dolar vypadá jako pamětní mince ze zoo.
---
alternativa k trestu smrti - doživotní zmražení (když ho ospravedlní, můžou ho vždycky rozmrazit)
---
"It's history now, but back then it felt like a pretty real present."
---
počítačová grafika, zkusit třeba v OpenGL - Nerovnoměrná interpolace po trojúhelníku, např. taková, která je věšinu času průměr dvou hodnot, ale těsně u krajů se rychle změní k jedné nebo druhé, by mohla u 3D modelu udělat efekt zaoblených hran, aniž by objekt vypadal zaoblený celý.
---
Vymyslet hru, která je podobná šachu, ale má se hrát "na slepo" (blindfolded), takže hráči ji můžou hrát kdekoliv jenom tak, že střídavě oznamují svoje tahy. Hra by mohla být podobná šachu, jenom s méně figurami a menším polem, aby bylo jednodušší pamatovat si pozici.
---
Budou v budoucnosti číst dětem pohádky hlasové syntezátory (např. hlasem nerozeznatelným od jejich rodičů)?
---
Co když se vesmír řídí nekonečně mnoha pravidly? => Neexistuje algoritmus pro přesnou předpověď stavu vesmíru. => Neexistuje teorie všeho. => Je to vůbec matematicky možné?
---
Proč se nikdy nenarodil nesmrtelný člověk (genetická mutace)?
---
Fotbalový hack: hráči obklopí spoluhráče s míčem, aby mu ho soupeř nemohl vzít.
---
Elektronický náhrobek - zemřelý bude mít v náhrobku zabudované paměťové médium s obsahem, který si tam sám nahrál (např. svoje fotky, videa, odkaz, životopis, životní práci, ...). Lidi si budou moct tyto informace u náhrobku připojením počítače stahovat.
---
Disciplína X (metamatematika? supermatematika?) - Disciplína nad matematikou, pochopí ji jenom nejinteligentnější lidé na světě. Zatímco v matematice je možné všechno zapsat na papír a o informace se podělit, v disciplíně X to nezle, protože jakmile je v ní informace sdílena s někým jiným, změní se. Proto se nedá vysvětlit běžnému člověku a nemohou o ní existovat knihy v klasické podobě. Jedinci, kteří tuto disciplínu pochopí, jsou schopni předvídat některé věci, které jinak předvídat nelze - např. vývoj v politice nebo směr, kterým se má ubírat matematický důkaz ke zdárnému výsledku - tak lze poznat, že člověk, který tvrdí, že disciplínu X chápe, si nevymýšlí - má "speciální", avšak vědecky měřitelné schopnosti.

Mějme dvě osoby: matematik 1 (M1) - běžný matematik a matematik 2 (M2) - matematik, který pochopil sidciplínu X:

M1: "Můžete mě naučit rozumět disciplíně X?"
M2: "Nemůžu, bylo by to, jako byste se vy pokoušel vysvětlit teorii relativity opici."
M1: "Tak to alespoň zkuste, začněte od úplného základu, definujte axiomy a tak dále."
M2: "Zkusit to můžu." 
chvíli se nic neděje
M1: "Tak začnete už prosím?"
M2: "Ale já už vám dávno disciplínu X vysvětluji, jenomže vy mě nejste schopen vnímat."
---
Většina mých nápadů zůstane ve stadiu vtipu.
---
Protiřečit si je lidské.
---
Random idea generator.
---
Vedlejší účinek: smrt.
---
Hra hledač pokladů, hráč by začínal s detektorem a skůtrem v otevřeném světě, poklady by dával do muzea a kupoval si další vybavení, např. potápěčskou výbavu apod.
---
Řešení přelidnění: Každý, kdo chce mít dítě, musí požádat o povolení nějakého seniora (60+), kterého to dítě má nahradit. Senior může udělit jenom jedno povolení.
---
Aplikace na osobní biografii/timeline - člověk by tam dával události spolu s daty, každá událost by měla typ a mohla by mít fotky, komentář apod. Výsledek by se pěkně vizualizoval.
---
Nástroj na pokročilý morfing obrázků. Šla by např. vybrat jiná než lineární interpolace mezi korespondujícími body sítě, popř. při morfingu více obrázků (např. A -> B -> C -> D) by se body sítě mohly pohybovat s určitou setrvačností (aby se zabránilo trhanému přechodu např. mezi morfingem A -> B a B -> C).
---
Vlastní jednoduchý řečový syntezátor:
Nahrály by se jenom písmena abecedy (popř. fonémy). Lepší by bylo nahrát všechny možné přechody písmen (fonémů) do ostatních písmen, ale těch by bylo moc -> přechod mezi písmeny se bude dělat programově.
Udělal by se jednoduchý převodník z psaného textu na mluvenou formu (x -> ks, á -> aa, na konci otázky vzestup atd.).
Přechod mezi písmeny se bude dělat některým ze způsobů (bude možné zvolit):
žádný - písmena se prostě dají za sebe, nekvalitní, jednoduché
prolínání - konec jednoho písmena se prolne do začátku následujícího prostě snížením a zvýšením hlasitosti (prostě blending), středně náročné a středně kvalitní
interpolace frekvencí - udělá se FFT prvního a následujícího písmena, tím získám hlasitosti a fáze všech sinusovek a ty potom interpoluju, interpolační zvuk vložím mezi písmena, náročnější, hodně kvalitní
---
Udělat 3D prohlížeč imperial library ve webGL - vypadalo by to třeba jak morrowind a byly by to 3D místnost se všemi knihami z imperial library.
---
Výzkum: v jakých časech lidi přichází na autobusovou zastávku před příjezdem autobusu? Bude to gaussovka? Bude to záviset na tom, jak daleko autobus jede? Šel by z toho vyvodit vztah pro ideální příchod na zastávku tak, abych tam byl před většinou lidí?
---
Funny jazyk pro záznam melodie, zapisovala by se textově tak, jak to člověk intuitivně dělá, např.: "tuuduu DUU diii dooo TA da da", překladač by to přeložil do MIDI, byly by přesně dané tóny všech symbolů.
---
Hra, kde by hráč ovládal spoustu (10, 50, 100, ...) postav najednou, tak jako v FPS a všechny by reagovaly stejně - tzn. někteří by vráželi do zdí nebo by stříleli spojence, úkolem by bylo minimalizovat takové případy a dohrát level. Na začátku levelu by hráč mohl postavy třeba strategicky rozmisťovat.
---
Renderer, který by renderoval ne do bitmapy, ale do vektorového formátu. Např. místo rasterizace by se provádělo vykreslování vektorových trojúhelníků (ale musel by se nějak speciálně řešit depth buffer atd.).
---
Když mám číslo a^b, jaký vliv na jeho velikost má a vs b?

Problém: máme číslo N a to máme rozdělit na dvě části, základ a exponent, tak, aby číslo bylo co největší, tzn.:

f(x) = x^(N - x)

Chceme najít maximum f(x), takže derivace je (podle Wolframu):

f'(x) = -x^(N - x - 1) * (x - N + x * log(x))

A položíme rovno 0 (hledáme extrém). Řešení je složité, Wolfram dává:

x_max = e^(W(N * e) - 1)

Kde W je Lambert W function.

Některé hodnoty (optimální rozdělení N pro co největší číslo) pro různá N:

n          x_max        n / x_max        x_max / n
1            1                1              1
2           1.45473    1.37482556901      0.727365
3           1.85455    1.61764309401      0.618183
4           2.22341    1.79903841397      0.555852
5           2.57141    1.94445848776      0.514282
6           2.90403    2.06609435853      0.484005
7           3.2246     2.17081188364      0.460657
8           3.5354     2.26282740284      0.441925 
9           3.83802    2.34495911955      0.426446
10          4.13366    2.41916364674      0.413366

Nekonverguje to k něčemu?
---
vlasce v lásce
---
intimní zóna je záporné číslo (= děvka)
---
Grafická webová aplikace pro organizaci webových stránek do adresářů jako souborů v souborovém systému.
---
tl;dr bot na reddit, zkracoval by dlouhé texty (vynecháním slov jako "so", nahrazením dlouhých slov kratšími synonymi a zkratkami, vynecháním nepodstatných vět atd.).
---
Nástroj na animaci jednoho textového souboru v rámci git repozitáře - udělalo by to naimaci přímo toho textového souboru, jak se umazávaly a připisovaly znaky.
---
Systém označování příbuzenského vztahu člověka x k člověku y:

(m,n,g), kde
m je počet generací dělících člověka x od nejbližšího společného předka x a y
n je počet generací dělících člověka y od nejbližšího společného předka x a y
g je pohlaví: m = muž, f = žena, n = neudáno (může se taky vynechat)

Např.:
já - (0,0)
sourozenec - (1,1,n)

bratr - (1,1,m)
rodič - (1,0)
babička - (2,0,f)
bratranec - (2,2,m)
dcera - (0,1,f)
neteř - (1,2,f)
prateta z druhého kolena - (4,2,f)
atd.

pro nevlastní příbuzné se použije notace:
(m,n,g)/(m2,n2,g2)

Toto značí, že člověk y je k x ve vztahu (m,n,g), přičemž příbuzenský strom je připojený manželstvím nebo vztahem přes uzel (m2,n2,g2).

Např.:
manžel nebo manželka (já připojený přes sebe) - (0,0)/(0,0)
nevlastní otec (otec připojený přes rodiče) - (1,0,m)/(1,0)
tchyně (matka připojená přes mě) - (1,0)/(0,0)
snacha - (0,1,f)/(0,0)
atd.

Lze provádět různé operace, např.:
- prohození čísel m a n prohodí role (např. z bratrance udělá člověka, pro kterého jsem bratranec já)
- odečtení m a n dá rozdíl generací mezi x a y
- odečtení 1 od n získáme rodiče příbuzného, přičtením 1 potomka
- odečtení 1 od m získáme vztah rodiče k příbuznému, přičtením 1 potomka
- přičtením/odečtením 1 k m i n zvyšujeme/snižujeme koleno
atd.
---
Půlbit - informace, která sama o sobě nic neříká, ale v kombinaci s jiným půlbitem dá dohromady 1 bit informace.

Např. mám polarizační destičky, některé horizontální, některé vertikální, a nepolarizované světlo. Jedna destička představuje jeden půlbit - sama o sobě mi nic neřekne (každá propustí polovinu světla). Když dostanu ale dvě destičky, můžu je přeložit přes sebe a zjistit, jestli jsou shodného nebo odlišného typu = 1 dostanu 1 bit informace (jejich konkrétní typ ale nikdy nezjistím, zjistím jenom, zda se liší nebo ne).
---
Video, jak se vyvíjela kvalita grafiky ve hrách - 1 3D (ze začátku možná i 2D) scéna, která se spojitě mění.
---
IM klient pro komunikaci Země-Mars (se zpožděním, ukazoval by info o pozicích zpráv, správně by je řadil atd.)
---
Program, který je dekomprimační algoritmus, přičemž dekomprimační data jsou zdroják toho algoritmu. Tohle je nejspíš NP-těžký problém. Dobré pro IOCCC.
---
Udělat street view v nějaké open-world hře (Skyrim, GTA, ...).
---
Hra - jako FUEL, ale místo aut mounti ve stylu wow, otevřený svět.
---
Povídka o cestovateli, který v čínských/japonských pralesích najde sídlo IT mnichů, něco jako Zen of programming + lovecraft. Cestovatel popisuje komunitu mnichů, jejich moudrost, filozofii a software, který si sami vyvíjejí. Jejich software (programovací jazyk, operační systém, ...) je dokonalý, nepublikují ho ve světě, dělají ho čistě pro jeho krásu. Mají i vlasní počítače, minimalistické notebooky apod., které jim vyrábí mistr na hardware.

Říká se, že mistři mezi mnichy díky létům meditace dokáží používat Internet jen za
pomoci mysli, bez počítače. (Důkaz postnutím příspěvku.)
---
"nosná slepice"
---
Bird Simulator
---
open-source klon Crash Bandicoot
---
Podobná hra jako bird simulator, ale hrálo by se za malý objekt mimozemského původu (nějaká koule), free roaming v městě lidem pod nohama, chození do kanálů, časem i levitace apod. Účelem by bylo hledat nějaké blbosti po městě, které by ten objekt třeba vylepšovaly apod.
---
ASCII to MIDI convertor - CLI nástroj, který by převedl jednoduchý ASCII zápis hudby do MIDI.
---
2D hra (hopsačka), kde by se nepostupovalo doleva/oprava, ale dovnitř do fraktálu.
---
3D puzzle hra, kde je hráč úplně slepý a musí se dostat z bodu A do bodu B pomocí ostatních smyslů (hmat, sluch, ...). Po dokončení levelu si může prohlédnou replay (už normálně ve 3D zobrazení), jak šel.
---
"Pamatuju si to na vlastní mozek."
---
Trpím nespavostí - nikdo se mnou nechce spát.
---
Machinima, která se hraje v reálném čase jako divadlo. Popř. přímo hra k tomu určená (theatre simulator).
---
pokuta z nemovitosti, pokuta za to, že žiješ
---
"výběh" programovacích jazyků - multiagentní systém, kde každý agent by byl napsaný v jiném programovacím jazyku a agenti by spolu interagovali, komunikovali, hráli hry, měřili síly atd. Mohlo by to být např. akvárium. Bylo by dobré pro naučení se hodně programovacích jazyků.
---
Verysmart translator - aplikace, co přeloží text do verysmart jazyka nehrazením různých frází a synonym (např. someone -> one, ...).
---
Program, co v animaci ukáže časový vývoj vesnice/města podle čísel popisných domů - budou se objevovat od nejnižšího po nejvyšší. (OpenStreetMaps?)
---
homophile, gaysexual, pedosexual
---
Číselná soustava, kde první místo má dvě číslice, druhé tři, třetí čtyři atd., tzn.: 0, 1, 10, 11, 20, 21, 100, 101, 110, 111, 120 atd.
---
"Každý ve všem hledá všechno."
---
kolektivní svědomí
---
Point-and-click adventury podle klasické literatury, je to v public domain a bylo by to dobré pro vzdělávání.
---
Create a set of offensive emojis
---
Paint GNU on ground everywhere.
---
Hra se dvěma myšma! Air hockey např.?
---
Are ants communists?
---
komputeristika
---
programovací improvizace - Prostě jenom začít programovat projekt bez cíle, plánovat jen další krok a vidět, co z toho vyleze.
---
rasist captcha - prove you are not a nigger (jew, ...): check all pictures with ....
---
FOSS klon half-life 1:
  - místo: laboratoře výzkumu AI někde na antarktidě (laboratoř musí být izolovaná, aby se případná AI nevymknula kontrole)
  - hl. hrdina: poč. vědec
---
"You should see my mentality from the inside."
---
Ředitelství Chodníků a Polňaček
---
Anti-intellectual-property propaganda game: enemies are things like copyright (C that can eat you), trade dress, patents (invisible enemies) etc. Picking up licenses would protect you.
---
Povídka o copyrightu, kdy lidi vynaleznou stroj času a budou cestovat do budoucnosti a žalovat sami sebe za "ukradení" svého vlastního díla, které nemělo licenci.
---
Anti-utopie: společnost, která je velmi reálná, ale její vlastnosti jsou naprosto mizerné. V ní nyní žijeme. (EDIT: tomu se říká dystopie)
---
Povídka: nastane blackout a bezdomovec, který byl dřív na okraji společnosti a jí zavrhován, je nyní ve výhodě (umí přežít sám a bez technologií). Začne pomáhat lidem, kteří jím dřív opovrhovali.
---
Book: "How I Make My Ends Meet" in which it is only written "I don't". Possibly make a whole "I don't" book series.
---
Umění, jehož hodnota je převážně v podpisu, je nejspíš umění stojící za hovno.
---
Multiagent cellular random art generator (name: Artworkers?). Have a number of painters put on a raster canvas and let them paint art. Each agent can have a separate AI and interact with other painters (e.g. one can draw spirals, one can invert random pixels they step on, running away from other painters etc.).
---
Command line interaktivní editor grafiky (pixel art), jako Vim na grafiku.
---
Book: Tales from Libre Game Developments, include extraordinary stories such as the one about FLARE portraits, or Xonotic forking from Nexuiz
---
Trackmania-like game played only with pen and paper, named e.g. "racer". Top-down, simple 2D physics, parameters (acceleration etc.) given in game name, e.g. "racer:5,10,3".
The goal is to find a series of inputs to finish given track the fastest (like TAS).
---
crimes against economy (as opposed to crimes against humanity)
---
The whole Universe history 3D presentation, including the whole human history. It would be based on data containing historical events (Big Bang, Jesus is born, ...), the inbetween states would be interpolated procedurally. Anything could be zoomed in/out in both time and space.
---
"Business doesn't make sense, it only makes money."
---
Nápady na detektivku:
  - Vrah zavraždí ověť tak, že ji nějak donutí, aby si v určitý čas přiložila ze srandy zbraň k hlavě, a potom skrz napichnuté "chytré" hodinky dálkově pošle elektrický minišok, který způsobí sevřenní ruky a zmáčknutí spouště, takže to vypadá jako sebevražda, komplet bez důkazů (hodinky nikdo zkoumat nebude).
  - Vrah si ze srandy zajistí prokazatelné alibi na několika místech současně, aby si z detektiva udělal prdel. Nicméně to je hloupé, protože pokud může být prokazatelně na více místech zároveň, mohl být i na místě vraždy -- takto by to detektiv vyřešil.
---
zobecněné operace (TODO):

                   =    10 ~ 3       ~: comparison, a ~ b = a + (2 if a = b else 1)
  10 ~ 10 ~ 10     =    10 + 3       +: addition, commut, assoc
  10 + 10 + 10     =    10 * 3       *: multiplication, commut, assoc
  10 * 10 * 10     =    10 ^ 3       ^: power, noncommut (10^2 != 2^10), nonassoc( 2^(3^2) != (2^3)^2 )
  10 ^ (10 ^ 10)   =    10 ' 3       ': tower
---
Stupnice hodnocení skillu určité dovednosti, od 0 do 10. Stupnice je logaritmická, dosažení skillu 1 vyžaduje od průměrného člověka 2 dny úsilí (cca 20 hodin), dosažení skillu 2 vyžaduje 2x tolik atd. Skill 10 tedy vyžaduje cca 1024 * 10 ~= 10000 hodin, což souhlasí s jednou již existující definicí experta. Jednotlivé stupně mohou být pojmenovány např.:

level  description         ~days  ~hours

0:     hasn't started yet  0      0
1:     complete beginner   2      20
2:     knows the basics    4      40
3:     noob                8      80
4:     acceptable          16     160
5:     okay                32     320
6:     not bad             64     640
7:     good                128    1280
8:     very good           256    2560
9:     great               512    5120
10:    master              1024   10000
---
A good idea will be met with praise. A brilliant idea will be met with misunderstaanding and rejection.
---
Algorithm for increasing video (animation) resolution from temporal information, i.e. from movement.

E.g. with 2x upscale a single source pixel S will be expanded into 2x2 output pixels A, B, C and D. There is N options of how to choose ABCD so that they downslace to S again. The core of the algorithm would be heuristically choosing the correct option from the N options, based on the pixel neighbourhood (spatial and temporal).
---
Pixelart upscale algorithm for 1bit images, potentially expandable to color images.

There would be a DB of patterns (along with an image to which they upscale). Patterns would be of various sizes, e.g. 2x2, 3x3, 4x4 etc.

The main goal would be to create an upscale map, i.e. a 2D array that says how each pixel exapnds into 2x2 pixels, i.e. each element of an upscale map would be a 4bit value.

The algorithm would be something like this:

1. Init the upscale map with default values (white pixels expand to 2x2 white, black to 2x2 black), to each pixel assign helper value "matched size" = 0.
2.   Take the next pattern and try to match it in each position and transormation (rotations, flips, bit negations, ...).
3.   If the pattern matches, for each pixel of the matched area:
4.     If the size of current pattern > than the matched pixel's "matched size" value, set the pixel upscale value to that corresponding in the pattern upscale and set "matched size" to the current one.
5. If there are patterns left, goto 2, else end. 

---
What if there exist stronger computational models than a turing machine but we just can't comprehend them because our brains are turing machines and we perceive anything more complex as "random", e.g. true quantum randomness.
---
Create a stereo song with orchestra or other instruments with 3D sound and make the instruments move, or the listener move -- e.g. at the start he stands in front of the orchestra but during chorus he moves into the orchestra center. This could create nice effects (richness, sudden separation of instruments, ...) that aren't possible to achieve with physical orchestra. 
---
Integer numbers representing infinitely many number in interval <0,1], or in other words ordering of rational numbers on interval <0,1], like this:

number   represents  frac shift
0        0           1
1        0.5         1/2
2        0.25        1/4
3        0.75        1/4
4        0.125       1/8
5        0.375       1/8
...      ...         ...

Simple conversion functions exist.

Could be good for arbitrary precision numbers represented by integers.
---
Mini university (or something like that):

Could be a video game, web application, program, a book or something similar that would be a fun way for people to learn and get "mini degrees" from the "mini university".

All would be CC0.

There would be courses made by people with real degrees, e.g. a computer graphics course, calculus course etc. Each course could take e.g. a week to finish and would teach basics and most important things on the subject, would have its small slides, presentations, scripts etc. Completing a course could perhaps be via a test, a small project etc.

Then there would be study areas such as physics, computer science, biology etc., each consisting of many courses, roughly similar to real university. People could pursue various degrees such as "mini bachelor", "mini master" or "mini phd", which could also involve writing theses etc.

Perhaps this could be a social network (or just hosted on one) where real people would get involved -- people with real degrees could grade tests, award degrees etc.
---
Smradopramen (Napajedelská smradlavá pramenitá voda)
---
Libre meme generator: web JS page that allows to select a funny CC0 image from WM Commons and add text (in CC0 font), along with possibility to include CC0 mark at the bottom.
---
1D game with 1D rendering inspired by Flatland.
---
Say "shoot the screen" instead of "take a screenshot".
---
"When in doubt, kill yourself." (could be used e.g. in a C programming tutorial in which I would tell the readers to kill themselves when they make a mistake etc.)
---
torpedo: a pedo that uses TOR
games played
These are video games I've played (without cheats, from start to end - i.e. mostly credits or I've just felt I have invested a lot of time into the game).

- Warcraft III: Reigh of Chaos
- Warcraft III: The Frozen Throne
- World of Warcraft
- World of Warcraft: The Burning Crusade
- World of Warcraft: Wrath of the Lich King
- GTA: Vice City
- GTA: San Andreas
- GTA IV
- GTA: The Lost and Damned
- GTA: The Ballad of Gay Tony
- GTA V
- Mafia
- Mafia 2
- Half-Life
- Half-Life: Blue Shift
- Half-Life 2
- Half-Life 2: Episode One
- Half-Life 2: Episode Two
- Portal
- Portal 2
- Doom
- Doom II: Hell on Earth
- Doom 3
- Doom (2016)
- Trackmania Nations
- Trackmania United Forever
- Trackmania 2: Stadium
- Trackmania Turbo
- The Elder Scrolls III: Morrowind
- The Elder Scrolls III: Tribunal
- The Elder Scrolls III: Bloodmoon
- The Elder Scrolls IV: Oblivion
- The Elder Scrolls IV: Knights of the Nine
- The Elder Scrolls IV: Shivering Isles
- The Elder Scrolls V: Skyrim
- The Elder Scrolls V: Dragonborn
- The Elder Scrolls V: Dawnguard
- Legend of Grimrock
- Legend of Grimrock II
- Pokémon Yellow
- Pokémon Crystal
- Pokémon Sapphire
- Pokémon FireRed
- Pokémon Platinum
- Advance Wars
- Advance Wars 2: Black Hole Rising
- Advance Wars: Dual Strike
- Harry Potter and the Chamber of Secrets (GBA)
- Mirror's Edge
- Orcs Must Die! 2
- Mage Rage
- Steamer Duck
- World of Goo
- The Witness
- Antichamber
- Titan Quest
- Diablo II
- Dračí historie
- Machinarium
- Prehistoric 2
- Crash Bandicoot 3: Warped
- Quake
- Quake 3 Arena
- Open Arena
- Hillclimb Racing
- Atomic Bomberman
- SUPERHOT
- 2048
- Minesweeper
- Kingdom Rush
- Kingdom Rush Origins
- Ravensword: Shadowlands
- Shadow Warrior 2
- Shadow Warrior (2013)
- Far Cry 3
- FUEL
- Racing Gears (GBA)
- Me & My Katamari
- SuperTuxKart
- Neverball
- Frozen Bubble
- Flare
- Rocket Kite
- Arduventure (Arduboy)
- Tackle Box (Arduboy)
- Xonotic
- Freedoom: Phase 1
- Freedoom: Phase 2
- Mindustry
- Anarch
books read
These are the books I've read from start to finish.

- J. R. R. Tolkien - Hobit aneb Cesta tam a zase zpátky
- J. R. R. Tolkien - Pán prstenů: Společenstvo Prstenu
- J. R. R. Tolkien - Pán prstenů: Dvě věže
- J. R. R. Tolkien - Pán prstenů: Návrat krále
- J. K. Rowling - Harry Potter a kámen mudrců
- J. K. Rowling - Harry Potter a tajemná komnata
- J. K. Rowling - Harry Potter a vězeň z Azkabanu
- J. K. Rowling - Harry Potter a Ohnivý pohár
- J. K. Rowling - Harry Potter a Fénixův řád
- J. K. Rowling - Harry Potter a princ dvojí krve
- J. K. Rowling - Harry Potter and the Deathly Hallows
- J. K. Rowling, ... - Harry Potter a Prokleté dítě
- Edwin A. Abbott - Flatland
- Douglas Adams - Stopařův průvodce po Galaxii
- Douglas Adams - Restaurant na konci vesmíru
- Douglas Adams - Život, vesmír a vůbec
- Douglas Adams - Sbohem, a díky za ryby
- Douglas Adams - Převážně neškodná
- H. P. Lovecraft - La Voko De Htulho
- Stephenie Meyer - Twilight
- Ernest Hemingway - Stařec a moře
- Greg Keyes - The Infernal City
- Greg Keyes - Lord of Souls
- Karel Jaromír Erben - Kytice
- Dante Alighieri - Peklo
- Jan Amos Komenský - Labyrint světa a ráj srdce
- Mario Puzo - Kmotr
- Dan Brown - Šifra mistra Leonarda
- Walter Isaacson - Einstein: Jeho život a vesmír
- Walter Isaacson - Steve Jobs
- Kitty Ferguson - Stephen Hawking: Jeho život a dílo
- Stephen Hawking - Stručná historie času
- Linus Torvalds & David Diamond - Just for Fun
- Sam Williams & Richard Stallman - Free as in Freedom 2.0: Richard Stallman's Crusade for Free Software
- Barbara Demick - Nothing to Envy
- Glyn Moody - Rebel Code
- David Kushner - Masters of Doom
- Lawrence Lessig - Free Culture
- H. G. Wells - The Country of the Blind
- MCM - The Pig and the Box
- Karl Marx & Frederick Engels - Communist Manifesto
- Jan Neruda - Písně Kosmické
ptdesigner
--- FILE ./colorbuffer.c ---
//**********************************************************************

/** @file
 * Implementation of color buffer.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "colorbuffer.h"
#include "lodepng.h"
#include "general.h"
#include <stdio.h>
#include <stdlib.h>

//----------------------------------------------------------------------

void color_buffer_set_pixel(t_color_buffer *buffer, int position_x,
  int position_y, unsigned char red, unsigned char green,
  unsigned char blue)

  {
    int index;

    position_x = transform_coordination(position_x,buffer->width);
    position_y = transform_coordination(position_y,buffer->height);

    index = 3 * (position_y * buffer->width + position_x);

    buffer->data[index] = red;
    buffer->data[index + 1] = green;
    buffer->data[index + 2] = blue;

    return;
  }

//----------------------------------------------------------------------

void color_buffer_add_pixel(t_color_buffer *buffer, int position_x,
  int position_y, unsigned char red, unsigned char green,
  unsigned char blue)

  {
    unsigned char help_red, help_green, help_blue;
    int help_red2, help_green2, help_blue2;

    color_buffer_get_pixel(buffer,position_x,position_y,&help_red,
      &help_green,&help_blue);

    help_red2 = help_red + red;
    help_green2 = help_green + green;
    help_blue2 = help_blue + blue;

    color_buffer_set_pixel(buffer,position_x,position_y,
      round_to_char(help_red2),round_to_char(help_green2),
      round_to_char(help_blue2));
  }

//----------------------------------------------------------------------

void color_buffer_substract_pixel(t_color_buffer *buffer,
  int position_x, int position_y, unsigned char red,
  unsigned char green, unsigned char blue)

  {
    unsigned char help_red, help_green, help_blue;
    int help_red2, help_green2, help_blue2;

    color_buffer_get_pixel(buffer,position_x,position_y,&help_red,
      &help_green,&help_blue);

    help_red2 = help_red - red;
    help_green2 = help_green - green;
    help_blue2 = help_blue - blue;

    color_buffer_set_pixel(buffer,position_x,position_y,
      round_to_char(help_red2),round_to_char(help_green2),
      round_to_char(help_blue2));
  }

//----------------------------------------------------------------------

void color_buffer_get_pixel(t_color_buffer *buffer, int position_x,
  int position_y, unsigned char *red, unsigned char *green,
  unsigned char *blue)

  {
    int index;

    position_x = transform_coordination(position_x,buffer->width);
    position_y = transform_coordination(position_y,buffer->height);

    index = 3 * (position_y * buffer->width + position_x);

    if (red != NULL)
      *red = buffer->data[index];

    if (green != NULL)
      *green = buffer->data[index + 1];

    if (blue != NULL)
      *blue = buffer->data[index + 2];

    return;
  }

//----------------------------------------------------------------------

void color_buffer_copy(t_color_buffer *buffer, t_color_buffer
  *destination)

  {
    unsigned int i, j;
    unsigned char red, green, blue;

    color_buffer_init(destination,buffer->width,buffer->height);

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
          color_buffer_set_pixel(destination,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void color_buffer_copy_data(t_color_buffer *buffer,
  t_color_buffer *destination)

  {
    unsigned int i, j;
    unsigned char red, green, blue;

    if (destination == NULL)
      return;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
          color_buffer_set_pixel(destination,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void color_buffer_destroy(t_color_buffer *buffer)

  {
    if (buffer->data != NULL)
      free(buffer->data);

    buffer->data = NULL;
  }

//----------------------------------------------------------------------

int color_buffer_init(t_color_buffer *buffer, int width, int height)

  {
    int i;
    int length;

    buffer->width = width;         // set the new width and height
    buffer->height = height;

    length = width * height * 3 * sizeof(char);

    buffer->data = (unsigned char *) malloc(length);

    if (buffer->data == NULL)
      return 0;

    for (i = 0; i < length; i++)   // set the image to white color
      buffer->data[i] = 255;

    return 1;
  }

//----------------------------------------------------------------------

int color_buffer_save_to_png(t_color_buffer *buffer, char *filename)

  {
    if (lodepng_encode24_file(filename,buffer->data,
      buffer->width,buffer->height) == 0)
      return 1;
    else
      return 0;
  }

//----------------------------------------------------------------------

int color_buffer_load_from_png(t_color_buffer *buffer, char *filename)

  {
    if (lodepng_decode24_file(&(buffer->data),&buffer->width,
        &buffer->height,filename) == 0)
      return 1;
    else
      return 0;
  }

//----------------------------------------------------------------------

--- FILE ./colorbuffer.h ---
#ifndef COLORBUFFER_H
#define COLORBUFFER_H

//**********************************************************************

/** @file
 * Header file of color buffer abstract data type. It server as an RGB
 * image container and provides basic operations for manipulating the
 * image.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "kdtree.h"

                           /** color buffer structure, it holds the
                               pointer to image in the memory */
typedef struct
  {
    unsigned int width;    ///< bitmap width
    unsigned int height;   ///< bitmap height
    unsigned char *data;   ///< raw pixel data in RGB 24bit mode
  } t_color_buffer;

//----------------------------------------------------------------------

int color_buffer_init(t_color_buffer *buffer, int width, int height);

  /**<
   * Initialises a new buffer.
   *
   * @param buffer buffer structure to be initialised
   * @param width width of the image
   * @param height height of the image
   *
   * @return 1 if everything was ok, or 0 if memory could not be
   *         allocated
   */

//----------------------------------------------------------------------

void color_buffer_copy(t_color_buffer *buffer,
  t_color_buffer *destination);

  /**<
   * Copies one color buffer into another newly created one.
   *
   * @param buffer buffer buffer to be copied
   * @param destination buffer to copy the first buffer to, must be
   *        dealocated before this function is called
   */

//----------------------------------------------------------------------

void color_buffer_copy_data(t_color_buffer *buffer,
  t_color_buffer *destination);

  /**<
   * Copies one color buffer into another already existing one.
   *
   * @param buffer buffer buffer to be copied
   * @param destination buffer to copy the first buffer to, must be
   *        already initialised and should be of the same resolution as
   *        the source buffer
   */

//----------------------------------------------------------------------

void color_buffer_set_pixel(t_color_buffer *buffer, int position_x,
  int position_y, unsigned char red, unsigned char green,
  unsigned char blue);

  /**<
   * Sets pixel at given coordination to given color. If one of the
   * coordinations is out of image's resolution range, it will
   * "overflow" over the edge to the other side (wraparound).
   *
   * @param position_x x position of the pixel
   * @param position_y y position of the pixel
   * @param red new red value
   * @param green new green value
   * @param blue new blue value
   */

//----------------------------------------------------------------------

void color_buffer_add_pixel(t_color_buffer *buffer, int position_x,
  int position_y, unsigned char red, unsigned char green,
  unsigned char blue);

  /**<
   * Adds given values to pixel at given position in the color buffer.
   * If one of the coordinations is out of image's resolution range, it
   * will "overflow" over the edge to the other side (wraparound).
   *
   * @param position_x x position of the pixel
   * @param position_y y position of the pixel
   * @param red value to be added to red channel of the pixel
   * @param green value to be added to green channel of the pixel
   * @param blue value to be added to blue channel of the pixel
   */

//----------------------------------------------------------------------

void color_buffer_substract_pixel(t_color_buffer *buffer,
  int position_x, int position_y, unsigned char red,
  unsigned char green, unsigned char blue);

  /**<
   * Substracts given values from pixel at given position in the color
   * buffer. If one of the coordinations is out of image's resolution
   * range, it will "overflow" over the edge to the other side
   * (wraparound).
   *
   * @param position_x x position of the pixel
   * @param position_y y position of the pixel
   * @param red value to be substracted from red channel of the pixel
   * @param green value to be substracted from green channel of the
   *        pixel
   * @param blue value to be substracted from blue channel of the pixel
   */

//----------------------------------------------------------------------

void color_buffer_get_pixel(t_color_buffer *buffer, int position_x,
  int position_y, unsigned char *red, unsigned char *green,
  unsigned char *blue);

  /**<
   * Gets RGB value of given pixel. If one of the coordinations exceeds
   * the image's resolution range, it will "overflow" over the edge to
   * the other side (wraparound). If any of red, green or blue parameter
   * is NULL, the function will not crash.
   *
   * @param position_x x position of the pixel
   * @param position_y y position of the pixel
   * @param red variable to store the red value to, may be NULL
   * @param green variable to store the green value to, may be NULL
   * @param blue variable to store the blue value to, may be NULL
   */

//----------------------------------------------------------------------

void color_buffer_destroy(t_color_buffer *buffer);

  /**<
   * Dealocates the memory used for the buffer.
   *
   * @param buffer buffer to be destroyed
   */

//----------------------------------------------------------------------

int color_buffer_save_to_png(t_color_buffer *buffer, char *filename);

  /**<
   * Saves the buffer content to png file of given name.
   *
   * @param buffer buffer to be saved
   * @param filename name of the file
   *
   * @return 1 if evreything was ok, or 0 if file could not be saved
   */

//----------------------------------------------------------------------

int color_buffer_load_from_png(t_color_buffer *buffer, char *filename);

  /**<
   * Loads image from png file and stores it in given color buffer.
   *
   * @param buffer buffer to store the image to, it should be dealocated
   *        before this function is called
   * @param filename name of the file
   *
   * @return 1 if evreything was ok, or 0 if file could not be opened
   */

//----------------------------------------------------------------------

#endif

--- FILE ./colortransition.c ---
//**********************************************************************

/** @file
 * Implementation of color transition data type.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "colortransition.h"

//----------------------------------------------------------------------

int color_transition_init(t_color_transition *transition)
  {
    transition->number_of_points = 0;

    if ( (transition->points = (t_transition_point *)
      malloc(256 * sizeof(t_transition_point))) )
      return 1;
    else
      return 0;
  }

//----------------------------------------------------------------------

void color_transition_add_point(unsigned char coordination,
  unsigned char red, unsigned char green, unsigned char blue,
  t_color_transition *transition)

  {
    int i,j;
    t_transition_point new_point;

    if (transition->number_of_points == 255)  // no more room for points
      return;

    new_point.red = red;
    new_point.green = green;
    new_point.blue = blue;
    new_point.value = coordination;

               // find a place to put the point to so they remain sorted
    for (i = 0; i < transition->number_of_points; i++)
      if (coordination <= transition->points[i].value)
        break;

    if (i != transition->number_of_points &&
      transition->number_of_points > 0 &&
      transition->points[i].value == coordination)
        return; // point with this coordination already exists => return

    transition->number_of_points++;

    /* shift all points with higher value right so they make room for
       the new one */

    for (j = transition->number_of_points - 1; j > i; j--)
      transition->points[j] = transition->points[j - 1];

    transition->points[i] = new_point;
  }
  
//----------------------------------------------------------------------

void color_transition_remove_point(unsigned char coordination,
  t_color_transition *transition)
  
  {
	unsigned int i, j;
	
	for (i = 0; (int) i < transition->number_of_points; i++)
	  if (transition->points[i].value == coordination)
	    {
		  // shift all points from i forwards to the left by 1:
			
	      for (j = i; (int) j < transition->number_of_points - 1; j++)
	        transition->points[j] = transition->points[j + 1];
	      
	      transition->number_of_points--;
		  break;
		}
  }

//----------------------------------------------------------------------

void color_transition_to_string(t_color_transition *transition,
  char destination[], unsigned int max_length)
  
  {
	unsigned int i;
	int copy_max;
	char buffer[20];
	
	if (max_length == 0)
	  return;
	  
	destination[0] = 0;  // make an empty string
	
	for (i = 0; (int) i < transition->number_of_points; i++)
	  {
		snprintf(buffer,20,"%d %d %d %d;",
		  transition->points[i].value,
		  transition->points[i].red,
		  transition->points[i].green,
		  transition->points[i].blue);
		  
		copy_max = max_length - strlen(destination) - 1;
		
		if (copy_max <= 0)  // no more room for the string
		  break;
		
		strncat(destination,buffer,copy_max);
	  }
  }

//----------------------------------------------------------------------

void color_transition_from_string(t_color_transition *transition,
  char *transition_string)
  
  {
	int v,r,g,b,items_read;
	  
	transition->number_of_points = 0;   // clear the transition
	
	while (1)
	  {
        items_read =
          sscanf(transition_string,"%d %d %d %d;",&v,&r,&g,&b);
          
        if (items_read != 4)
          break;
          
        color_transition_add_point((unsigned char) v, (unsigned char)r,
          (unsigned char) g,(unsigned char) b,transition);
          
        // locate the next semicolon:
          
        transition_string = strchr(transition_string,';');
        
        if (transition_string == NULL)
          break;
          
        transition_string++;  // move one character behing ';'
      }
  }

//----------------------------------------------------------------------

void color_transition_get_color(unsigned char coordination,
  unsigned char *red, unsigned char *green, unsigned char *blue,
  t_color_transition *transition)

  {
    t_transition_point low_point, high_point;
    int i;
    double ratio, complement_ratio;

    if (transition->number_of_points == 0)
      {
        *red = 128;
        *green = 128;
        *blue = 128;
        return;
      }

    for (i = 0; i <= transition->number_of_points; i++)
      if (i == transition->number_of_points ||
        coordination < transition->points[i].value)
        break;

    /* now in i is stored index of the first point larger than the
       point being interpoled */

    if (i == 0)
      {        // no lower point -> transition is constant in this area
        *red = transition->points[0].red;
        *green = transition->points[0].green;
        *blue = transition->points[0].blue;
        return;
      }
    else if (i == transition->number_of_points)
      {        // no higher point -> transition is constant in this area
        *red = transition->points[transition->number_of_points - 1].red;
        *green =
          transition->points[transition->number_of_points - 1].green;
        *blue =
          transition->points[transition->number_of_points - 1].blue;
        return;
      }
    else
      {
        low_point.value = transition->points[i - 1].value;
        low_point.red = transition->points[i - 1].red;
        low_point.green = transition->points[i - 1].green;
        low_point.blue = transition->points[i - 1].blue;

        high_point.value = transition->points[i].value;
        high_point.red = transition->points[i].red;
        high_point.green = transition->points[i].green;
        high_point.blue = transition->points[i].blue;
      }

    if (high_point.value - low_point.value != 0)
      {
        ratio = ((double) (coordination - low_point.value)) /
          (high_point.value - low_point.value);

        complement_ratio = 1.0 - ratio;
      }

    *red = (unsigned char)
      low_point.red * complement_ratio + high_point.red * ratio;

    *green = (unsigned char)
      low_point.green * complement_ratio + high_point.green * ratio;

    *blue = (unsigned char)
      low_point.blue * complement_ratio + high_point.blue * ratio;

    return;
  }

//----------------------------------------------------------------------

void color_transition_destroy(t_color_transition *transition)

  {
    free(transition->points);
    transition->points = NULL;
  }

//----------------------------------------------------------------------

int color_transition_load_from_file(t_color_transition *transition,
  char *filename)

  {
    FILE *file;
    int help_array[4];

    if (!color_transition_init(transition))
      return 0;

    file = fopen(filename,"r");

    if (file == NULL)
      return 0;

    while (1)
      {
        if (fscanf(file,"%d %d %d %d\n",&help_array[0],&help_array[1],
          &help_array[2],&help_array[3]) != 4)
          break;

        color_transition_add_point(round_to_char(help_array[0]),
          round_to_char(help_array[1]),round_to_char(help_array[2]),
          round_to_char(help_array[3]),transition);
      }

    fclose(file);

    return 1;
  }

//----------------------------------------------------------------------

int color_transition_save_to_file(t_color_transition *transition,
  char *filename)

  {
    FILE *file;
    int i;

    file = fopen(filename,"w");

    if (file == NULL)
      return 0;

    for (i = 0; i < transition->number_of_points; i++)
      {
        fprintf(file,"%d %d %d %d\n",transition->points[i].value,
          transition->points[i].red,transition->points[i].green,
          transition->points[i].blue);
      }

    fclose(file);

    return 1;
  }

//----------------------------------------------------------------------

--- FILE ./colortransition.h ---
#ifndef COLORTRANSITION_H
#define COLORTRANSITION_H

//**********************************************************************

/** @file
 * Header file of color abstract transition data type. It provides an
 * interface for creating, storing and using color transitions.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
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//**********************************************************************

#include <stdio.h>
#include <stdlib.h>
#include "string.h"
#include "general.h"
                                /** a structure representing a point in
                                    color transition, it maps one
                                    grayscale value to RGB color */
typedef struct
  {
    unsigned char value;        ///< grayscale value
    unsigned char red;          ///< red channel
    unsigned char green;        ///< green channel
    unsigned char blue;         ///< blue channel
  } t_transition_point;

                                /** color transition structure, it holds
                                    pointer to points which the
                                    transitions consists of */
typedef struct
  {
    int number_of_points;       ///< number of transition points
    t_transition_point *points; ///< array of transition points
  } t_color_transition;

//----------------------------------------------------------------------

int color_transition_init(t_color_transition *transition);

  /**<
   * Initialises a new color transition.
   *
   * @param transition color transition structure to be initialised
   *
   * @return 1 if everything was ok, or 0 if memory could not be
   *         allocated
   */

//----------------------------------------------------------------------

void color_transition_add_point(unsigned char coordination,
  unsigned char red, unsigned char green, unsigned char blue,
  t_color_transition *transition);

  /**<
   * Adds a new point to transition.
   *
   * @param coordination coordination of the point (= grayscale value)
   * @param red amount of red color for the point
   * @param green amount of green color for the point
   * @param blue amount of blue color for the point
   * @param transition transition to add the point to
   */

//----------------------------------------------------------------------

void color_transition_remove_point(unsigned char coordination,
  t_color_transition *transition);

  /**<
   * Removes a point from transition.
   *
   * @param coordination coordination of the point to be removed, if
   *        there is no point with given coordination, nothing happens
   * @param transition transition to remove the point from
   */

//----------------------------------------------------------------------

void color_transition_get_color(unsigned char coordination,
  unsigned char *red, unsigned char *green, unsigned char *blue,
  t_color_transition *transition);

  /**<
   * Returns a color that will be mapped to given coordination (i.e.
   * grayscale value) accoording to given color transition.
   *
   * @param coordination coordination of the point (= grayscale value)
   * @param red variable in which to store the amount of red of the
   *        result
   * @param green variable in which to store the amount of green of the
   *        result
   * @param blue variable in which to store the amount of blue of the
   *        result
   * @param transition transition that will map the point to color
   */

//----------------------------------------------------------------------

void color_transition_destroy(t_color_transition *transition);

  /**<
   * Frees the memory allocated for transition.
   *
   * @param transition color transition to be destroyed
   */

//----------------------------------------------------------------------

void color_transition_to_string(t_color_transition *transition,
  char destination[], unsigned int max_length);
  
  /**
   * Creates a string representing given color transition.
   * 
   * @param transition transition to be converted to string
   * @param destination memory in which the final string will be stored
   * @param max_length maximum length of the final string to be
   *        generated (with the terminating zero)
   */

//----------------------------------------------------------------------

void color_transition_from_string(t_color_transition *transition,
  char *transition_string);

  /**
   * Loads a color transition data from given string.
   * 
   * @param transition transition to be loaded, must be initialised, if
   *        it contains any data, it will be deleted
   * @param transition_string string containing the data to be loaded
   */

//----------------------------------------------------------------------

int color_transition_load_from_file(t_color_transition *transition,
  char *filename);

  /**
   * Loads a color transition from a file. Also serves as an init
   * function.
   *
   * @param transition transition to be loaded, must be deallocated
   * @param filename name of the file from which the transition will be
   *        loaded
   *
   * @return 1 if the transition was loaded succesfully, 0 otherwise
   */

//----------------------------------------------------------------------

int color_transition_save_to_file(t_color_transition *transition,
  char *filename);

  /**
   * Saves color transition to file.
   *
   * @param transition transition to be saved
   * @param filename name of the file
   *
   * @return 1 if the file was saved succesfully, 0 otherwise
   */

//----------------------------------------------------------------------

#endif

--- FILE ./general.c ---
//**********************************************************************

/** @file
 * Implementation of general function.
 *
 * @author Miloslav Ciz
 */

/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
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 */

//**********************************************************************

#include "general.h"
#include <math.h>

                                         // pre-computed Bayer matrices:

const unsigned char bayer_matrix_2x2[2][2] = {{1, 3},
                                              {4, 2}};

const unsigned char bayer_matrix_4x4[4][4] = {{0,  12, 3,  15},
                                              {8,  4,  11, 7},
                                              {2,  14, 1,  13},
                                              {10, 6,  9,  5}};

const unsigned char bayer_matrix_8x8[8][8] = {{0,  48, 12, 60, 3,  51, 15, 63},
                                              {32, 16, 44, 28, 35, 19, 47, 31},
                                              {8,  56, 4,  52, 11, 59, 7,  55},
                                              {40, 24, 36, 20, 43, 27, 39, 23},
                                              {2,  50, 14, 62, 1,  49, 13, 61},
                                              {34, 18, 46, 30, 33, 17, 45, 29},
                                              {10, 58, 6,  54, 9,  57, 5,  53},
                                              {42, 26, 38, 22, 41, 25, 37, 21}};

//----------------------------------------------------------------------

int transform_coordination(int coordination, int limit)

  {
    if (coordination < 0)
      {
        coordination = -1 * coordination;
        coordination = coordination % limit;
        coordination = limit - coordination;
      }

    if (coordination != 0)
      coordination = coordination % limit;

    return coordination;
  }

//----------------------------------------------------------------------

double get_distance(t_metric metric, int x1, int y1, int x2, int y2,
  int space_width, int space_height)

  {
    int x_distance, y_distance;

    if (x1 == x2 && y1 == y2)
      {
        x_distance = 0;
        y_distance = 0;
      }
    else
      {
        x_distance = abs(x1 - x2) < space_width - abs(x1 - x2) ?
          abs(x1 - x2) : space_width - abs(x1 - x2);

        y_distance = abs(y1 - y2) < space_height - abs(y1 - y2) ?
          abs(y1 - y2) : space_height - abs(y1 - y2);
      }

    switch (metric)
      {
        case METRIC_EUCLIDEAN:
          return
            sqrt(x_distance * x_distance + y_distance * y_distance);
          break;

        case METRIC_TAXICAB:
          return (double) x_distance + y_distance;
          break;

        case METRIC_CHEBYSHEV:
          return (double)
            (x_distance > y_distance ? x_distance : y_distance);
          break;
      }

    return 0;
  }

//----------------------------------------------------------------------

double noise(int x)

  {
    /* those are just some random operations that make good noise */
    double result;

    x = x ^ (x<<13);
    result = (1.0 - (((x * (x * x * 15731 + 789221) +
      1376312589) & 0x7fffffff) / 1073741824.0));
    return result;
  }

//----------------------------------------------------------------------

int noise_int_range(int x, int from, int to)

  {
    return round((((noise(x) + 1.0) / 2) * (to - from)) + from);
  }

//----------------------------------------------------------------------

double two_points_to_angle(int x1, int y1, int x2, int y2)
  {
    int dx,dy;
    double angle;

    dx = x2 - x1;
    dy = y2 - y1;

    if (dy == 0)
      angle = 0;
    else if (dx != 0)
      angle = atan(abs(dy)/((double) abs(dx)));
    else
      angle = PI_DIVIDED_2;

    if (dy >= 0)
      {
        if (dx >= 0)  // 4th quadrant
          angle = PI_TIMES_2 - angle;
        else          // 3rd quadrant
          angle = PI + angle;
      }
    else
      {
        if (dx >= 0)  // 1st quadrant
          angle = angle;
        else          // 2nd quadrant
          angle = PI - angle;
      }

    return angle;
  }

//----------------------------------------------------------------------

void line_point(int initial_x, int initial_y, double angle,
  unsigned int point, int *point_x, int *point_y)

  {
    int angle_area;    // eight areas to which 2 * PI angle is divided

    while (angle >= PI_TIMES_2)  // adjust the angle
      {
        angle -= PI_TIMES_2;
      }

    while (angle <= 0)
      {
        angle += PI_TIMES_2;
      }

    angle_area = (int) (angle / (PI_DIVIDED_4));

    switch (angle_area)
      {
        case 0:                                  // 0 to PI/4
          *point_x = initial_x + point;
          *point_y = initial_y - round(point * tan(angle));
          break;

        case 1:                                  // PI/4 to PI/2
          angle = PI_DIVIDED_2 - angle;
          *point_x = initial_x + round(point * tan(angle));
          *point_y = initial_y - point;
          break;

        case 2:                                  // PI/2 to 3/4 * PI
          angle = angle - PI_DIVIDED_2;
          *point_x = initial_x - round(point * tan(angle));
          *point_y = initial_y - point;
          break;

        case 3:                                  // 3/4 * PI to PI
          angle = PI -angle;
          *point_x = initial_x - point;
          *point_y = initial_y - round(point * tan(angle));
          break;

        case 4:                                  // PI to 5/4 * PI
          angle = angle - PI;
          *point_x = initial_x - point;
          *point_y = initial_y + round(point * tan(angle));
          break;

        case 5:                                  // 5/4 * PI to 3/2 * PI
          angle = PI_TIMES_3_2 - angle;
          *point_x = initial_x - round(point * tan(angle));
          *point_y = initial_y + point;
          break;

        case 6:                                  // 3/2 * PI to 7/4 * PI
          angle = angle - PI_TIMES_3_2;
          *point_x = initial_x + round(point * tan(angle));
          *point_y = initial_y + point;
          break;

        default:
          angle = PI_TIMES_2 - angle;            // 7/4 * PI to 2 * PI
          *point_x = initial_x + point;
          *point_y = initial_y + round(point * tan(angle));
          break;
      }
  }

//----------------------------------------------------------------------

void circle_point_by_angle(int center_x, int center_y, double radius,
  double angle,  int *x, int *y)

  {
    *x = center_x + sin(PI_DIVIDED_2 + angle) * radius;
    *y = center_y - sin(angle) * radius;
  }

//----------------------------------------------------------------------

void rgb_to_hsl(unsigned char red, unsigned char green,
  unsigned char blue, double *hue, double *saturation,
  double *lightness)

  {
    int max_variable;                    // 0 - red, 1 - green, 2 - blue
    double fp_red, fp_green, fp_blue, max, min, difference, help;

    fp_red = red / 255.0;
    fp_green = green / 255.0;
    fp_blue = blue / 255.0;

    if (fp_red > fp_green)
      {
        if (fp_blue > fp_red)
          {
            max = fp_blue;
            max_variable = 2;            // max is blue
          }
        else
          {
            max = fp_red;
            max_variable = 0;            // max is red
          }
      }
    else
      {
        if (fp_blue > fp_green)
          {
            max = fp_blue;
            max_variable = 2;            // max is blue
          }
        else
          {
            max = fp_green;
            max_variable = 1;            // max is green
          }
      }

    min = fp_red < fp_green ? fp_red : fp_green;
    min = fp_blue < min ? fp_blue : min;

    difference = max - min;

    *lightness = (max + min) / 2;                // lightness

    if (difference <= 0)                         // saturation
      *saturation = 0;
    else
      {
        help = (2 * *lightness - 1);

        if (help < 0)
          help = -1 * help;

        *saturation = difference / (1 - help);

        if (*saturation < 0)
          *saturation = -1 * *saturation;
      }

    if (difference <= 0)                         // hue
      *hue = 0;
    else
      {
        switch (max_variable)
          {
            case 0:  // red
              *hue = (fp_green - fp_blue) / difference;

              while (*hue > 6.0) // mod 6
                *hue = *hue - 6;

              break;

            case 1:  // green
              *hue = (fp_blue - fp_red) / difference + 2;
              break;

            case 2:  // blue
              *hue = (fp_red - fp_green) / difference + 4;
              break;

            default: break;
          }

        *hue = *hue / 6.0;
      }
  }

//----------------------------------------------------------------------

void hsl_to_rgb(double hue, double saturation, double lightness,
  unsigned char *red, unsigned char *green, unsigned char *blue)

  {
    double chroma, help, x, m, fp_red, fp_green, fp_blue;

    help = 2 * lightness - 1.0;

    if (help < 0.0)
      help = -1 * help;

    chroma = (1 - help) * saturation;

    hue = hue * 6;
    help = hue;

    while (help > 2.0)  // mod 2
      help = help - 2.0;

    help = help - 1.0;

    if (help < 0.0)
      help = -1 * help;

    x = chroma * (1 - help);

    if (hue >= 0.0 && hue < 1.0)
      {
        fp_red = chroma;
        fp_green = x;
        fp_blue = 0.0;
      }
    else if (hue < 2.0)
      {
        fp_red = x;
        fp_green = chroma;
        fp_blue = 0.0;
      }
    else if (hue < 3.0)
      {
        fp_red = 0.0;
        fp_green = chroma;
        fp_blue = x;
      }
    else if (hue < 4.0)
      {
        fp_red = 0.0;
        fp_green = x;
        fp_blue = chroma;
      }
    else if (hue < 5.0)
      {
        fp_red = x;
        fp_green = 0.0;
        fp_blue = chroma;
      }
    else if (hue < 6.0)
      {
        fp_red = chroma;
        fp_green = 0.0;
        fp_blue = x;
      }
    else
      {
        fp_red = 0.0;
        fp_green = 0.0;
        fp_blue = 0.0;
      }

    m = lightness - 0.5 * chroma;

    *red = (fp_red + m) * 255;
    *green = (fp_green + m) * 255;
    *blue = (fp_blue + m) * 255;
  }

//----------------------------------------------------------------------

double degrees_to_radians(double degrees)

  {
    return degrees * PI / ((double) 180);
  }

//----------------------------------------------------------------------

double radians_to_degrees(double radians)

  {
    return radians / PI_TIMES_2 * 360;
  }

//----------------------------------------------------------------------

unsigned char round_to_char(int value)

  {
    if (value > 255)
      return 255;

    if (value < 0)
      return 0;

    return value;
  }

//----------------------------------------------------------------------

void normalise_vector_3(double *x, double *y, double *z)

  {
    double length;

    length = sqrt((*x) * (*x) + (*y) * (*y) + (*z) * (*z));

    *x /= length;
    *y /= length;
    *z /= length;
  }

//----------------------------------------------------------------------

double interpolate(double value, t_interpolation_method method)

  {
    if (value < 0.0)
      value = 0.0;
    else if (value > 1.0)
      value = 1.0;

    switch(method)
      {
        case INTERPOLATION_NEAREST:
          return value < 0.5 ? 0.0 : 1.0;
          break;

        case INTERPOLATION_LINEAR:
          return value;
          break;

        case INTERPOLATION_SINE:
          return sin(value * PI_DIVIDED_2);
          break;

        default:
          return value;
          break;
      }
  }

//----------------------------------------------------------------------

double interpolate_values(double value, t_interpolation_method method,
  int value1, int value2)

  {
    double ratio;

    ratio = interpolate(value,method);

    return value1 * (1.0 - ratio) + value2 * ratio;
  }

//----------------------------------------------------------------------

void interpolate_color_2d(double x, double y, unsigned char top_left[3],
  unsigned char top_right[3], unsigned char bottom_left[3],
  unsigned char bottom_right[3], unsigned char *r, unsigned char *g,
  unsigned char *b, t_interpolation_method method)

  {
    unsigned char r1,g1,b1,r2,g2,b2;
    double ratio,ratio2;

    if (x < 0.0)
      x = 0.0;
    else if (x > 1.0)
      x = 1.0;

    if (y < 0.0)
      y = 0.0;
    else if (y > 1.0)
      y = 1.0;

    // first interpolate in x direction:

    ratio = interpolate(x,method);
    ratio2 = 1.0 - ratio;

    r1 = round_to_char(ratio * top_right[0] + ratio2 * top_left[0]);
    g1 = round_to_char(ratio * top_right[1] + ratio2 * top_left[1]);
    b1 = round_to_char(ratio * top_right[2] + ratio2 * top_left[2]);

    r2 = round_to_char
      (ratio * bottom_right[0] + ratio2 * bottom_left[0]);
    g2 = round_to_char
      (ratio * bottom_right[1] + ratio2 * bottom_left[1]);
    b2 = round_to_char
      (ratio * bottom_right[2] + ratio2 * bottom_left[2]);

    // now interpolate in y direction:

    ratio = interpolate(y,method);
    ratio2 = 1.0 - ratio;

    *r = round_to_char(ratio * r2 + ratio2 * r1);
    *g = round_to_char(ratio * g2 + ratio2 * g1);
    *b = round_to_char(ratio * b2 + ratio2 * b1);
  }

//----------------------------------------------------------------------

unsigned int rock_paper_scissors(unsigned int options,
  unsigned int player1, unsigned int player2)

  {
    // this algorithm should be explained in the documentation

    unsigned int helper;
    int b;

    if (player2 > player1)   // ascending order
      {
        helper = player2;
        player2 = player1;
        player1 = helper;
      }

    b = options / 2;

    return player1 - player2 > (unsigned int) b ? player1 : player2;
  }

//----------------------------------------------------------------------

unsigned int make_neighbourhood(t_neighbourhood_type type,
  unsigned int size, int position_differences[128][2])

  {
    int i,j;
    unsigned int length;

    length = 0;

    if (size > 10)
      size = 10;

    switch (type)
      {
        case NEIGHBOURHOOD_MOORE:

          for (j = -1 * (int) size; j <= (int) size; j++)
            for (i = -1 * (int) size; i <= (int) size; i++)
              if (!(i == 0 && j == 0)) // exclude the central cell
                {
                  position_differences[length][0] = i;
                  position_differences[length][1] = j;

                  length++;
                }

          break;

        case NEIGHBOURHOOD_VON_NEUMANN:

          for (j = -1 * (int) size; j <= (int) size; j++)
            for (i = -1 * (int) size + abs(j); i <= (int) size - abs (j); i++)
              if (!(i == 0 && j == 0))
                {
                  position_differences[length][0] = i;
                  position_differences[length][1] = j;

                  length++;
                }

          break;
      }

    return length;
  }

//----------------------------------------------------------------------

int power_int(int number, unsigned int power)

  {
    int result;
    unsigned int i;

    result = 1;

    for (i = 0; i < power; i++)
      result *= number;

    return result;
  }

//----------------------------------------------------------------------

void make_game_of_life_rules(int rules[256])

  {
    int i;
    unsigned char number,neighbour_number,neighbour_count;

    number = 0;   // neighbourhood state

    for (i = 0; i < 256; i++)
      {
        // count the alive neighbours:

        neighbour_count = 0;

        for (neighbour_number = 0; neighbour_number < 8; neighbour_number++)
          if (number & power_int(2,neighbour_number))
            neighbour_count++;

        if (neighbour_count < 2 || neighbour_count > 3)
          rules[number] = -1;   // cell dies
        else if (neighbour_count == 3)
          rules[number] = 1;    // cell is born
        else
          rules[number] = 0;    // nothing happens

        number++;
      }
  }

//----------------------------------------------------------------------

int saturate_int(int value, int minimum, int maximum)

  {
    if (value > maximum)
      return maximum;

    if (value < minimum)
      return minimum;

    return value;
  }

//----------------------------------------------------------------------

double saturate_double(double value, double minimum, double maximum)

  {
    if (value > maximum)
      return maximum;

    if (value < minimum)
      return minimum;

    return value;
  }

//----------------------------------------------------------------------

int square_mosaic_is_valid(t_square_mosaic *mosaic)

  {
    int i, opposite_side, dimension_tiles;

    if (mosaic == NULL)
      return 0;

    if (mosaic->tiles_x != mosaic->tiles_y)
      return 0;

    for (i = 0; i < 4; i++)  // for each side
      {
        opposite_side = (i + 2) % 4;

        dimension_tiles = i % 2 == 0 ?
          mosaic->tiles_y : mosaic->tiles_x;

        if (mosaic->side_shape[i] == NULL)
          return 0;

        switch (mosaic->transformation[i])
          {
            case MOSAIC_TRANSFORM_SHIFT:
              if (mosaic->transformation[opposite_side] !=
                MOSAIC_TRANSFORM_SHIFT)
                return 0;

              break;

            case MOSAIC_TRANSFORM_SHIFT_MIRROR:
              if (mosaic->transformation[opposite_side] !=
                MOSAIC_TRANSFORM_SHIFT_MIRROR)
                return 0;

              if (dimension_tiles % 2 != 0)  // multiples of 2 only
                return 0;

              break;

            case MOSAIC_TRANSFORM_ROTATE_SIDE:
              if (dimension_tiles % 2 != 0)
                return 0;

              break;

            case MOSAIC_TRANSFORM_ROTATE_VERTEX:
              if (mosaic->transformation[(i + 1) % 4] !=
                MOSAIC_TRANSFORM_ROTATE_VERTEX)
                return 0;

              if (dimension_tiles % 2 != 0)
                return 0;

              break;
          }
      }

    return 1;
  }

//----------------------------------------------------------------------

t_mosaic_transformation compute_transformation(t_square_mosaic *mosaic,
  unsigned int x, unsigned int y, int *horizontal)

  {
    t_mosaic_transformation tx,ty;

    tx = mosaic->transformation[1];
    ty = mosaic->transformation[0];

    *horizontal = 1;

    if (x % 2 == 0)   // every transform. repeats itself after at most 2
      tx = MOSAIC_TRANSFORM_SHIFT;

    if (y % 2 == 0)
      ty = MOSAIC_TRANSFORM_SHIFT;

    if (tx == MOSAIC_TRANSFORM_SHIFT)
      {
        *horizontal = 0;
        return ty;
      }

    if (ty == MOSAIC_TRANSFORM_SHIFT)
      {
        *horizontal = 1;
        return tx;
      }

    if (tx == MOSAIC_TRANSFORM_ROTATE_VERTEX ||   // C4 + C4
      ty == MOSAIC_TRANSFORM_ROTATE_VERTEX)
      return MOSAIC_TRANSFORM_SHIFT;

    if (tx == MOSAIC_TRANSFORM_ROTATE_SIDE &&     // C + C
        ty == MOSAIC_TRANSFORM_ROTATE_SIDE)
      return MOSAIC_TRANSFORM_SHIFT;

    if (tx == MOSAIC_TRANSFORM_SHIFT_MIRROR &&    // G(h) + G(v)
        ty == MOSAIC_TRANSFORM_SHIFT_MIRROR)
      return MOSAIC_TRANSFORM_ROTATE_VERTEX;

    if (tx == MOSAIC_TRANSFORM_SHIFT_MIRROR &&    // G(v) + C
      ty == MOSAIC_TRANSFORM_ROTATE_SIDE)
      {
        *horizontal = 0;
        return (MOSAIC_TRANSFORM_SHIFT_MIRROR);
      }

    if (ty == MOSAIC_TRANSFORM_SHIFT_MIRROR &&    // G(h) + C
      tx == MOSAIC_TRANSFORM_ROTATE_SIDE)
      {
        *horizontal = 1;
        return (MOSAIC_TRANSFORM_SHIFT_MIRROR);
      }

    return MOSAIC_TRANSFORM_SHIFT; // the function never should get here
  }

//----------------------------------------------------------------------

unsigned char dither_random(unsigned char value, unsigned char levels,
  int random)

  {
    double interval_length;
    unsigned char level,random_number;

    levels--;

    interval_length = 255.0 / (double) (levels);

    for (level = 0; level < levels; level++) // find the value level
      if (value <= (level + 1) * interval_length)
        break;

    value = value - level * interval_length;
    random_number = noise_int_range(random,0,ceil(interval_length));

    if (value >= random_number)
      level++;

    return round_to_char(level * interval_length);
  }

//----------------------------------------------------------------------

unsigned char dither_threshold(unsigned char value,
  unsigned char levels)

  {
    double interval_check,interval_set;
    unsigned int i;

    interval_check = 255.0 / levels;
    interval_set = 255.0 / (levels - 1);

    for (i = 1; i < levels; i++)   // find the level
      if (value < i * interval_check)
        break;

    value = (i - 1) * interval_set;

    return value;
  }

//----------------------------------------------------------------------

int is_power_of_2(unsigned int value)

  {
    unsigned int i,number_of_ones;

    number_of_ones = 0;

    // count the ones in binary:

    for (i = 0; i < 64; i++) // assume maximum of 64 bits for uint
      {
        if (value & 1)
          number_of_ones++;

        value = value >> 1;  // right shift by 1

        if (number_of_ones > 1)
          break;
      }

    return number_of_ones == 1;
  }

//----------------------------------------------------------------------

void make_bayer_matrix(t_matrix *matrix)

  {
    unsigned int i,j,k,x,y;
    int random;

    if (matrix == NULL)
      return;

    for (j = 0; j < matrix->height; j++)
      for (i = 0; i < matrix->width; i++)
        matrix_set_value(matrix,i,j,0.0);

    if (matrix->width == matrix->height && matrix->width == 2)
      {
        for (j = 0; j < matrix->height; j++)
          for (i = 0; i < matrix->width; i++)
            matrix_set_value(matrix,i,j,bayer_matrix_2x2[i][j]);
      }
    else if (matrix->width == matrix->height && matrix->width == 4)
      {
        for (j = 0; j < matrix->height; j++)
          for (i = 0; i < matrix->width; i++)
            matrix_set_value(matrix,i,j,bayer_matrix_4x4[i][j]);
      }
    else if (matrix->width == matrix->height && matrix->width == 8)
      {
        for (j = 0; j < matrix->height; j++)
          for (i = 0; i < matrix->width; i++)
            matrix_set_value(matrix,i,j,bayer_matrix_8x8[i][j]);
      }
    else
      {
        random = 0;

        for (k = 0; k < matrix->width * matrix->height; k++)
          while (1)
            {
              x = noise_int_range(random,0,matrix->width - 1);
              random++;
              y = noise_int_range(random,0,matrix->height - 1);
              random++;

              if (matrix_get_value(matrix,x,y) == 0.0)
                {
                  matrix_set_value(matrix,x,y,(double) k + 1);
                  break;
                }
            }
      }
  }

//----------------------------------------------------------------------

void coord_array_double_to_int(unsigned int destination[][2],
  double source[][2], unsigned int length, unsigned int resolution_x,
  unsigned int resolution_y)

  {
    unsigned int i;

    for (i = 0; i < length; i++)
      {
        destination[i][0] = transform_coordination(source[i][0] *
          (resolution_x - 1),resolution_x);
        destination[i][1] = transform_coordination(source[i][1] *
          (resolution_y - 1),resolution_y);
      }
  }

//----------------------------------------------------------------------

--- FILE ./general.h ---
#ifndef GENERAL_H
#define GENERAL_H

//**********************************************************************

/** @file
 * Header file including definitions of general data structures and
 * functions that should be useful for other modules.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include "matrix.h"

#define PI           3.1415926535897932384626 ///< approximate pi value
#define PI_DIVIDED_4 0.7853981633974483096156 ///< pi / 4
#define PI_DIVIDED_2 1.5707963267948966192313 ///< pi / 2
#define PI_TIMES_3_2 4.7123889803846898576939 ///< pi * 3/4
#define PI_TIMES_2   6.2831853071795864769252 ///< pi * 2

                         /** possible ways of measuring distances */
typedef enum
  {
    METRIC_EUCLIDEAN = 0,///< distance = sqrt((x1 - x2)^2 + (y1 - y2)^2)
    METRIC_TAXICAB,      ///< distance = abs(x1 - x2) + abs(y1 - y2)
    METRIC_CHEBYSHEV     ///< distance = max((x1 - x2),(y1 - y2))
  } t_metric;

                            /** ways in which two values can be
                                interpolated */
typedef enum
  {
    INTERPOLATION_NEAREST = 0,   ///< nearest neighbour interpolation
    INTERPOLATION_LINEAR,   ///< linear interpolation
    INTERPOLATION_SINE      ///< interpolation using sine function
  } t_interpolation_method;

                            /** possible neighbourhood types for
                                cellular automata */

typedef enum
  {
    NEIGHBOURHOOD_MOORE = 0,    ///< Chebishev distance (square)
    NEIGHBOURHOOD_VON_NEUMANN   ///< taxicab distance
  } t_neighbourhood_type;

                            /** possible mosaic tile transformations */
typedef enum
  {
    MOSAIC_TRANSFORM_SHIFT = 0,      ///< the tile is shifted
    MOSAIC_TRANSFORM_ROTATE_SIDE,    /**< the tile is rotated around the
                                          center of the side */
    MOSAIC_TRANSFORM_ROTATE_VERTEX,  /**< the tile is rotated around the
                                          vertex of the side */
    MOSAIC_TRANSFORM_SHIFT_MIRROR    /**< the tile is shifted and
                                          mirrored */
  } t_mosaic_transformation;

                              /** square mosaic definition, specifies
                                  the tile shape, way in which tiles are
                                  placed and a number of tiles in x and
                                  y direction, not all specifications
                                  are valid (check can be done with
                                  specific functions) */
typedef struct
  {
    char *side_shape[4];      /**< string-specified side shape (CW from
                                   top), the string format should be:
                                   "%lf %lf %lf %lf ..." where odd
                                   position numbers are x coordination
                                   in range <0,1> and others are y
                                   coordinations in range <0,0.5> */

    t_mosaic_transformation transformation[4]; /**< side transformations
                                                    (CW from top) */

    unsigned char tiles_x;    ///< number of tiles in x direction
    unsigned char tiles_y;    ///< number of tiles in y direction
  } t_square_mosaic;

//----------------------------------------------------------------------

int transform_coordination(int coordination, int limit);

  /**<
   * Transforms given coordination so that if it exceeds range
   * <0,limit), it will be remapped to fit that range by
   * "over/underflowing".
   *
   * @param coordination coordination to be transformed
   * @param limit is maximum possible value of the coordination + 1
   *
   * @return transformed coordination in range <0,limit)
   */

//----------------------------------------------------------------------

double get_distance(t_metric metric, int x1, int y1, int x2, int y2,
  int space_width, int space_height);

  /**<
   * Function that returns a distance between two given points in
   * two-dimensional space but it considers a distance across the
   * space edges and returns it, if it's the shortest way.
   *
   * @param metric a metric used for measuring the distance
   * @param x1 x coordination of the first point
   * @param y1 y coordination of the first point
   * @param x2 x coordination of the second point
   * @param y2 y coordination of the second point
   * @param space_width width of the space in which the point are
   *        located
   * @param space_height height of the space
   *
   * @return distance between points
   */

//----------------------------------------------------------------------

double noise(int x);

  /**<
   * Returns random number. Source:
   * http://farao.czweb.org/perlin.htm
   *
   * @param x sequence number of the random number
   *
   * @return random value in range <-1,1> depending on x
   */

//----------------------------------------------------------------------

int noise_int_range(int x, int from, int to);

  /**<
   * Returns random integer number from given range.
   *
   * @param x sequence number of the random number
   * @param from low limit of generated number
   * @param to high limit of generated number
   *
   * @return random value in range <from,to> depending on x
   */

//----------------------------------------------------------------------

void line_point(int initial_x, int initial_y, double angle,
  unsigned int point, int *point_x, int *point_y);

  /**<
   * Computes nth point at given line. Calling this function for given
   * line with sequence numbers from 0 to N and drawing returned points
   * will draw a continuous line.
   *
   * @param initial_x x coordination of initial point of the line
   * @param initial_y y coordination of initial point of the line
   * @param angle angle of the line in radians measured counterclockwise
   *        starting parallel with the x axis
   * @param point sequence number of point that will be computed
   * @param point_x variable in which x coordination will be returned
   * @param point_y variable in which y coordination will be returned
   */

//----------------------------------------------------------------------

void circle_point_by_angle(int center_x, int center_y, double radius,
  double angle,  int *x, int *y);

  /**<
   * Computes point of a circle with given parameters by specified
   * angle.
   *
   * @param center_x x coordination of the circle center
   * @param center_y y coordination of the circle center
   * @param radius radius of the circle
   * @param angle angle of the line in radians measured counterclockwise
   *        starting parallel with the x axis
   * @param x variable in which x coordination of the computed point
   *        will be returned
   * @param y variable in which y coordination of the computed point
   *        will be returned
   */

//----------------------------------------------------------------------

void rgb_to_hsl(unsigned char red, unsigned char green,
  unsigned char blue, double *hue, double *saturation,
  double *lightness);

  /**<
   * Converts specified RGB value to HSL value.
   *
   * @param red amount of red
   * @param green amount of green
   * @param blue amount of blue
   * @param hue variable in which hue is returned as a number in range
   *        <0,1> representing value in range <0,360> degrees
   * @param saturation variable in which saturation is returned as a
   *        number in range <0,1>
   * @param lightness variable in which lightness is returned as a
   *        number in range <0,1>
   */

//----------------------------------------------------------------------

double two_points_to_angle(int x1, int y1, int x2, int y2);

  /**<
   * Returns an angle of line defined by two given points.
   *
   * @param x1 x coordination of the first point
   * @param y1 y coordination of the first point
   * @param x2 x coordination of the second point
   * @param y2 y coordination of the second point
   *
   * @return angle defined by the two points in radians
   */

//----------------------------------------------------------------------

void hsl_to_rgb(double hue, double saturation, double lightness,
  unsigned char *red, unsigned char *green, unsigned char *blue);

  /**<
   * Converts specified HSL value to RGB value.
   *
   * @param hue amount of hue, it is a number in range <0,1>
   *        representing value in range <0,360> degrees
   * @param saturation amount of saturation, it is a number in range
   *        <0,1>
   * @param lightness amount of lightness, it is a number in range <0,1>
   * @param red variable in which amount of red will be returned
   * @param green variable in which amount of green will be returned
   * @param blue variable in which amount of blue will be returned
   */

//----------------------------------------------------------------------

double degrees_to_radians(double degrees);

  /**<
   * Converts angle in degrees to radians.
   *
   * @param degrees angle in degrees
   *
   * @return angle in radians
   */

//----------------------------------------------------------------------

double radians_to_degrees(double radians);

  /**<
   * Converts angle in radians to degrees.
   *
   * @param radians angle in randians
   *
   * @return angle in degrees
   */

//----------------------------------------------------------------------

unsigned char round_to_char(int value);

  /**<
   * Transforms given value so that it fits the unsigned char range. If
   * the value is greater than 255, 255 is returned. If the value is
   * smaller than 0, 0 is returned. Othervise the value is returned.
   *
   * @return rounded value
   */

//----------------------------------------------------------------------

void normalise_vector_3(double *x, double *y, double *z);

  /**<
   * Normalises given vector (makes it's magnitude 1).
   *
   * @param x x element of the vector
   * @param y y element of the vector
   * @param z z element of the vector
   */

//----------------------------------------------------------------------

double interpolate(double value, t_interpolation_method method);

  /**<
   * Interpolates given value between 0 and 1 to range between 0 and 1
   * using given method.
   *
   * @param value value in range <0,1>
   * @param method method of interpolation
   *
   * @return interpolated value in range <0,1> at given point
   */

//----------------------------------------------------------------------

double interpolate_values(double value, t_interpolation_method method,
  int value1, int value2);

  /**<
   * Interpolates given value between 0 and 1 to range between value1
   * and value2 using given method.
   *
   * @param value value in range <0,1>
   * @param method method of interpolation
   *
   * @return interpolated value in range <value1,value2> at given point
   */

//----------------------------------------------------------------------

void interpolate_color_2d(double x, double y, unsigned char top_left[3],
  unsigned char top_right[3], unsigned char bottom_left[3],
  unsigned char bottom_right[3], unsigned char *r, unsigned char *g,
  unsigned char *b, t_interpolation_method method);

  /**<
   * Performs 2D interpolation between four square vertices.
   *
   * @param x x position in range <0,1>
   * @param y y position in range <0,1>
   * @param top_left top left color in format [r,g,b]
   * @param top_right top right color in format [r,g,b]
   * @param bottom_left bottom left color in format [r,g,b]
   * @param bottom_right bottom right color in format [r,g,b]
   * @param r in this variable final amount of red will be returned
   * @param g in this variable final amount of green will be returned
   * @param b in this variable final amount of blue will be returned
   * @param method interpolation method
   */

//----------------------------------------------------------------------

unsigned int rock_paper_scissors(unsigned int options,
  unsigned int player1, unsigned int player2);

  /**<
   * Determines the winner of generalised rock paper scissors game.
   *
   * @param options number of options of the game (for the classic
   *        rock, paper, scissors this is 3), note that this must be
   *        an odd number greater or equal to 3
   * @param player1 number of option chosen by player 1
   * @param player1 number of option chosen by player 2
   *
   * @return either value of player1 or player2 depending on who the
   *         winner is
   */

//----------------------------------------------------------------------

unsigned int make_neighbourhood(t_neighbourhood_type type, unsigned int
  size, int position_differences[128][2]);

  /**<
   * Creates a list of position differences that represent given
   * neighbourhood type.
   *
   * @param type neighbourhood type
   * @param size neighbourhood size, should be in interval <0,10>
   * @param position_differences in this list the relative position
   *        differences will be stored in format [dx,dy]
   *
   * @return length of the list of position differences (number of
   *         points of the neighbourhood)
   */

//----------------------------------------------------------------------

int power_int(int number, unsigned int power);

  /**<
   * Computes integer power of an integer number.
   *
   * @param number number to be raised
   * @param power power to raise the number to
   *
   * @return number to the power of power
   */

//----------------------------------------------------------------------

void make_game_of_life_rules(int rules[256]);

  /**<
   * Fills given array with binary representation of Conway's Game of
   * life cellular automaton rules. The array can be passed to the
   * function that expects specifying rules in such format.
   *
   * @param rules this array will be filled with the rules
   */

//----------------------------------------------------------------------

int saturate_int(int value, int minimum, int maximum);

  /**<
   * Applies saturation arithmetic to given integer value making it fit
   * given range.
   *
   * @param value value to be saturated
   * @param minimum minimum allowed value
   * @param maximum maximum allowed value
   *
   * @return saturated value, i.e. if it was greater then maximum,
   *         maximum is returned, if it was lower than minimum, minimum
   *         is returned, otherwise value is returned
   */

//----------------------------------------------------------------------

double saturate_double(double value, double minimum, double maximum);

  /**<
   * Applies saturation arithmetic to given double value making it fit
   * given range.
   *
   * @param value value to be saturated
   * @param minimum minimum allowed value
   * @param maximum maximum allowed value
   *
   * @return saturated value, i.e. if it was greater then maximum,
   *         maximum is returned, if it was lower than minimum, minimum
   *         is returned, otherwise value is returned
   */

//----------------------------------------------------------------------

int square_mosaic_is_valid(t_square_mosaic *mosaic);

  /**<
   * Checks whether given square mosaic specification is valid, i.e.
   * transformation combinations are allowed and x and y tiling does
   * connect to itself on the other side.
   *
   * @param mosaic mosaic specification
   *
   * @return 1 if the specification is valid, 0 otherwise
   */

//----------------------------------------------------------------------

t_mosaic_transformation compute_transformation(t_square_mosaic *mosaic,
  unsigned int x, unsigned int y, int *horizontal);

  /**<
   * Computes a final transformation for a tile at specified position
   * in square mosaic.
   *
   * @param mosaic mosaic specification
   * @param x x position of the tile
   * @param y y position of the tile
   * @param horizontal in this variable posiible further specification
   *        of transformation is returned, it will either be 1
   *        (horizontal) or 0 (vertical)
   *
   * @return final transformation of the tile
   */

//----------------------------------------------------------------------

unsigned char dither_random(unsigned char value, unsigned char levels,
  int random);

  /**<
   * Performs a random dithering with one value.
   *
   * @param value value to be dithered
   * @param levels number of levels of dithering
   * @param random value that will be passed to noise function and that
   *        will affect the randomness of dithering
   *
   * @return dithered value
   */

//----------------------------------------------------------------------

unsigned char dither_threshold(unsigned char value,
  unsigned char levels);

  /**<
   * Performs a threshold operation with one value.
   *
   * @param value value to be thresholded
   * @param levels number of levels of thresholding
   *
   * @return thresholded value
   */

//----------------------------------------------------------------------

int is_power_of_2(unsigned int value);

  /**<
   * Checks if given value is power of two.
   *
   * @param value value to be tested
   *
   * @return 1 if the value is power of two, 0 otherwise
   */

//----------------------------------------------------------------------

void make_bayer_matrix(t_matrix *matrix);

  /**<
   * Fills given matrix with integer values from 1 to (matrix width *
   * matrix height) in a way that Bayer specified for ordered dithering.
   * Non-power of two matrices are also allowed (the values are placed
   * randomly in this case).
   *
   * @param matrix matrix in which Bayer matrix will be stored, must be
   *        initialised
   */

//----------------------------------------------------------------------

void coord_array_double_to_int(unsigned int destination[][2],
  double source[][2], unsigned int length, unsigned int resolution_x,
  unsigned int resolution_y);

  /**<
   * Converts a list of coordinations specified within space x = <0,1>,
   * y = <0,1> width array of double values to list of integer
   * coordinations in pixels for given bitmap space.
   *
   * @param destination array of [x,y] coordinations in which the result
   *        will be stored
   * @param source array of [x,y] coordinations in range <0,1> to be
   *        converted
   * @param length length of source array in number of coordinations,
   *        the destination array must be at least of this length
   * @param resolution_x width of the bitmap in pixels
   * @param resolution_y height of the bitmap in pixels
   */

//----------------------------------------------------------------------

#endif

--- FILE ./grammar.c ---
//**********************************************************************

/** @file
 * Implementation of grammar module.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "grammar.h"
#include "general.h"

                               /** a private structure that represents a
                                   scanner */
typedef struct
  {
    unsigned int position;     ///< position in the string
    char *string;              ///< string being analysed
  } t_scanner;

                               /** token type */
typedef enum
  {
    TOKEN_CHARACTER,           ///< single character token
    TOKEN_NUMBER,              ///< numeric token
    TOKEN_ARROW,               ///< arrow ("->")
    TOKEN_END,                 ///< end of the string
    TOKEN_ERROR                ///< invalid token indicator
  } t_token;

                               /** a symbol table that keeps assigned
                                   values for character */
typedef struct
  {
    int values[256];           ///< values of the symbols
    int validity_map[256];     ///< says whether the symbol is assigned
  } t_symbol_table;

t_scanner scanner;             // global scanner
t_symbol_table symbol_table;   // global symbol table

//----------------------------------------------------------------------

  /**
   * Private function - sets string to be analysed by scanner.
   *
   * @param string string to be analysed
   */

void _scanner_set_string(char *string)

  {
    scanner.position = 0;
    scanner.string = string;
  }

//----------------------------------------------------------------------

  /**
   * Private function - gets the next token from the string that was set
   * with _scanner_set_string function.
   *
   * @param token_type in this variable the type of the next token will
   *   be returned
   * @param value in this variable either number or chararacter value
   * (unsigned char) will be returned
   */

void _scanner_next_token(t_token *token_type, int *value)

  {
    unsigned char character;
    unsigned char number_buffer[32];  // to read a number
    int buffer_length;
    int is_negative;

    *value = 0;

    while (1)   // skip white characters
      {
        character = scanner.string[scanner.position];

        if (character == 0)
          {
            *token_type = TOKEN_END;
            return;
          }

        if (character == ' ' || character == '\n')
          {
            scanner.position++;
          }
        else
          break;
      }

    if (character == '-' && scanner.string[scanner.position + 1] == '>')
      {
        *token_type = TOKEN_ARROW;        // arrow

        scanner.position += 2;
        return;
      }

    if ( (character >= 'A' && character <= 'Z') ||   // single character
         (character >= 'a' && character <= 'z') ||
         (character == '&') ||
         (character == '|') ||
         (character == '!') ||
         (character == '<') ||
         (character == '>') ||
         (character == '=') ||
         (character == '+') ||
         (character == '(') ||
         (character == ')') ||
         (character == '[') ||
         (character == ']') ||
         (character == '{') ||
         (character == '}') ||
         (character == ',') ||
         (character == ':') ||
         (character == '-' && !isdigit(scanner.string[scanner.position + 1])) ||
         (character == '*') ||
         (character == '/') )
      {
        *token_type = TOKEN_CHARACTER;
        *value = (int) character;

        scanner.position++;
        return;
      }

    if (isdigit(character) || character == '-') // number
      {
        buffer_length = 0;

        if (character == '-')
          {
            is_negative = 1;
            scanner.position++;
          }
        else
          is_negative = 0;

        while (1)
          {
            character = scanner.string[scanner.position];

            if (!isdigit(character))
              break;

            number_buffer[buffer_length] = character;
            buffer_length++;

            if (buffer_length > 10)
              break;

            scanner.position++;
          }

        number_buffer[buffer_length] = 0;  // terminate the string

        *token_type = TOKEN_NUMBER;
        *value = atoi((char *) number_buffer);

        if (is_negative)
          *value = *value * -1;

        return;
      }

    *token_type = TOKEN_ERROR;          // error here
  }

//----------------------------------------------------------------------

  /**
   * Private function - evalues an expression and returns it's value.
   * The function uses the global scanner so it's state may be changed
   * after the call.
   *
   * @param expression expression to be evaluated, only integers,
   *   basic operations (+,-,*,/,&,|,<,>,=) and brackets are allowed,
   *   for the exact format of the string see documentation
   * @param table symbol table where values of the variables can be
   *   found
   * @param success true is returned via this variable if the expression
   *   was evaluated properly, otherwise false - this variable cannot be
   *   NULL
   *
   * @return value of the expression
   */

int _evaluate_expression(char *expression,t_symbol_table *table,
  int *success)

  {
    t_token token;
    int value;
    int operand_1;
    unsigned char operation;
    int operand_2;
    int state;     // state of reading, 0 = op1, 1 = operator, 2 = op2, 3 = done

    *success = 1;

    if (expression == NULL || table == NULL || success == NULL)
      {
        *success = 0;
        return 0;
      }

    _scanner_set_string(expression);

    state = 0;

    while (1)
      {
        _scanner_next_token(&token,&value);
        if (token == TOKEN_CHARACTER && value == ')')
          token = TOKEN_END;

        switch (token)
          {
            case TOKEN_CHARACTER:
              {
                if (value == '(')
                  {
                    if (state == 0)    // evaluate recursively
                      {
                        operand_1 = _evaluate_expression(expression +
                        scanner.position,table,success);
                      }
                    else if (state == 2)
                      {
                        operand_2 = _evaluate_expression(expression +
                        scanner.position,table,success);
                      }
                    else
                      {
                        *success = 0;
                        return 0;
                      }

                    if (!(*success))
                      return 0;
                  }
                else if (state == 1)   // reading operator
                  operation = (unsigned char) value;
                else                   // reading variable value
                  {
                    if (!symbol_table.validity_map[(unsigned char) value])
                      {
                        *success = 0;  // unassigned symbol
                        return 0;
                      }

                    if (state == 0)
                      operand_1 = symbol_table.values[(unsigned char) value];
                    else
                      operand_2 = symbol_table.values[(unsigned char) value];
                  }
              }

              break;

            case TOKEN_NUMBER:
              if (state == 0)
                operand_1 = value;
              else if (state == 2)
                operand_2 = value;
              else
                {
                  *success = 0;   // operator was expected
                  return 0;
                }

              break;

            case TOKEN_END:
              if (state == 3)
                switch (operation)
                  {
                    case '+': return operand_1 + operand_2; break;
                    case '-': return operand_1 - operand_2; break;
                    case '*': return operand_1 * operand_2; break;
                    case '/': return operand_1 / operand_2; break;
                    case '&': return operand_1 && operand_2; break;
                    case '|': return operand_1 || operand_2; break;
                    case '=': return operand_1 == operand_2; break;
                    case '<': return operand_1 < operand_2; break;
                    case '>': return operand_1 > operand_2; break;
                    default : *success = 0; return 0; break;
                  }
              else if (state == 1)
                return operand_1;
              else
                {
                  *success = 0;
                  return 0;
                }

              break;

            case TOKEN_ERROR:
            case TOKEN_ARROW:
              *success = 0;
              return 0;
              break;
          }

        state++;
      }
  }

//----------------------------------------------------------------------

  /**
   * Private function - parses parameter expressions from provided
   * string and saves them in for given grammar char. For example
   * string "x + 1,3)" will save two expressions - "x + 1" and "3".
   *
   * @param symbol grammar symbol in which the expressions will be saved
   * @param string string of parameter expressions which must contain
   * right bracket (')'), characters following the right bracket are
   * ignored
   *
   * @return if there was an error, 0 is returned, otherwise length of
   *   the read expression (the whole string containing multiple
   *   expressions) is returned
   */

int _read_parameter_expressions(t_grammar_rule_char *symbol,
  char *string)

  {
    int length, start;
    int total_length;
    int expression_number;
    int left_brackets;         // to distinguish nested expressions
    unsigned char character;
    int error;
    int i;

    expression_number = 0;
    start = 0;
    length = 0;
    error = 0;
    total_length = 0;
    left_brackets = 0;

    while (1)
      {
        if (error)
          break;

        character = string[start + length];

        if (character == '(')
          {
            left_brackets++;
            length++;
          }
        else if (character == ',' ||
          (character == ')' && left_brackets == 0))
          {
            if (length == 0)
              error = 1;

            symbol->parameter_expressions[expression_number] =
              (char *) malloc (length + 1);

            if (symbol->parameter_expressions[expression_number]
              == NULL)
              error = 1;

            strncpy(symbol->parameter_expressions[expression_number],
              string + start,length);

            symbol->parameter_expressions[expression_number]
              [length] = 0;  // terminate the string

            expression_number++;

            start = start + length + 1;
            length = 0;

            if (expression_number >= GRAMMAR_MAXIMUM_PARAMETERS)
              break;
          }
        else
          length++;

        total_length++;

        if (character == ')')
          {
            if (left_brackets == 0)
              break;              // end of expression
            else
              left_brackets--;    // nested expression in brackets
          }
      }

    symbol->number_of_parameters = expression_number;

    if (error)
      {
        for (i = 0; i < expression_number; i++)
          free(symbol->parameter_expressions[i]);

        return 0;
      }

    return total_length;
  }

//----------------------------------------------------------------------

  /**
   * Private function - determines which rule to apply to given symbol.
   *
   * @param grammar grammar with rule set that the rule will be chosen
   *   from
   * @param symbol grammar symbol for which the rule should be found
   *
   * @return number of the rule of provided grammar (starting with 0)
   *   or -1 if no rule can be applied
   */

int _grammar_determine_rule(t_grammar *grammar, t_grammar_char *symbol)

  {
    int probability_sum;
    int *satisfactory_rules;
    int result;
    int satisfactory_rules_length;
    int i, j;
    int success;
    int value;
    int random_number;
    unsigned char character;

    probability_sum = 0;
    satisfactory_rules_length = 0;

    satisfactory_rules = (int *)
      malloc(grammar->number_of_rules * sizeof(int));

    if (satisfactory_rules == NULL)
      return -2;

    for (i = 0; i < grammar->number_of_rules; i++)
      {

        if (grammar->rules[i].number_of_parameters !=
          symbol->number_of_parameters)
          continue;

        if (symbol->character != grammar->rules[i].left)
          continue;

        // assign symbols in the symbol table:

        for (j = 0; j < symbol->number_of_parameters; j++)
          {
            character = grammar->rules[i].parameter_list[j];
            value = symbol->parameter_values[j];

            symbol_table.values[character] = value;
            symbol_table.validity_map[character] = 1;
          }

        success = 1;

        if (grammar->rules[i].condition != NULL)
          if (!_evaluate_expression(grammar->rules[i].condition,
            &symbol_table,&success))
          continue;

        if (!success)
          continue;

        for (j = 0; j < 255; j++)  // invalidate the symbol table
          symbol_table.validity_map[j] = 0;

        // here it's been checked that the rule can be used:

        satisfactory_rules[satisfactory_rules_length] = i;
        satisfactory_rules_length++;
        probability_sum += grammar->rules[i].chance;
      }

    if (satisfactory_rules_length == 0)
      {
        free(satisfactory_rules);
        return -1;
      }

    if (satisfactory_rules_length == 1)
      {
        result = satisfactory_rules[0];
        free(satisfactory_rules);
        return result;
      }

    // here the rule must be chosen randomly:

    random_number = noise_int_range(grammar->random,1,
      probability_sum);

    grammar->random++;

    for (i = 0; i < satisfactory_rules_length; i++)
      {
        random_number -= grammar->rules[satisfactory_rules[i]].chance;

        if (random_number <= 0)
          {
            result = satisfactory_rules[i];
            free(satisfactory_rules);
            return result;
          }
      }

    free(satisfactory_rules);
    return -1; // the program should never get here
  }

//----------------------------------------------------------------------

  /**
   * Private function - returns a number of grammar characters in
   * provided grammar string. The function ignores brackets, so for
   * a parametrised input of "ab(1,2)c" the result will be 3. Nested
   * brackets like "x(1 + (3 / 2))" are also allowed. There may be
   * spaces in the string.
   *
   * @param string string of grammar characters
   *
   * @return number of grammar characters in the string
   */

int _grammar_string_length(char *string)

  {
    int position;
    int length;
    int left_brackets;  // number of left brackets

    position = 0;
    length = 0;
    left_brackets = 0;

    if (string == NULL)
      return 0;

    while (string[position] != 0)
      {
        if (string[position] == '(')
          left_brackets++;

        if (left_brackets == 0 && string[position] != ' ')
          length++;

        if (string[position] == ')')
          left_brackets--;

        position++;
      }

    return length;
  }

//----------------------------------------------------------------------

void grammar_init(t_grammar *grammar, char *axiom, int random)

  {
    int i;
    int number_of_params;
    t_token token;
    int value;

    grammar->axiom_length = _grammar_string_length(axiom);
    grammar->string_length = 0;
    grammar->string = NULL;
    grammar->number_of_rules = 0;
    grammar->rules = NULL;
    grammar->random = random;

    grammar->axiom = (t_grammar_char *)
      malloc(grammar->axiom_length * sizeof(t_grammar_char));

    _scanner_set_string(axiom);

    // make the axiom structure:

    for (i = 0; i < grammar->axiom_length; i++)
      {
        _scanner_next_token(&token,&value);

        if (token == TOKEN_CHARACTER)
          {
            if (value == '(' && i != 0)
              {
                number_of_params = 0;

                while (1)           // read the parameters
                  {
                    _scanner_next_token(&token,&value);

                    if (token == TOKEN_CHARACTER && value == ')')
                      {
                        grammar->axiom[i - 1].number_of_parameters =
                        number_of_params;

                        _scanner_next_token(&token,&value);

                        break;
                      }
                    else if (token == TOKEN_NUMBER)
                      {
                        grammar->axiom[i - 1].parameter_values[number_of_params] = value;
                        number_of_params++;

                        if (number_of_params > GRAMMAR_MAXIMUM_PARAMETERS)
                          break;
                      }
                  }
              }

            grammar->axiom[i].character = (unsigned char) value;
            grammar->axiom[i].number_of_parameters = 0;
          }
        else
          break;
      }
  }

//----------------------------------------------------------------------

void grammar_destroy(t_grammar *grammar)

  {
    int i, j, k;

    if (grammar->axiom != NULL)
      free(grammar->axiom);

    if (grammar->string != NULL)
      free(grammar->string);

    for (i = 0; i < grammar->number_of_rules; i++)
      {
        if (grammar->rules[i].condition != NULL)
          free(grammar->rules[i].condition);

        for (j = 0; j < grammar->rules[i].right_length; j++)
          for (k = 0; k < grammar->rules[i].right[j].number_of_parameters; k++)
            free(grammar->rules[i].right[j].parameter_expressions[k]);

        free(grammar->rules[i].right);
      }

    free(grammar->rules);
  }

//----------------------------------------------------------------------

int grammar_add_rule(t_grammar *grammar, char *rule_string)

  {
    t_token token;
    int new_position;
    int value;
    int help_position, help_length; // for reading a string
    t_grammar_rule rule;
    int error;

    if (grammar == NULL || rule_string == NULL || rule_string[0] == 0)
      return 0;

    error = 0;

    _scanner_set_string(rule_string);

    _scanner_next_token(&token,&value);

    if (token == TOKEN_CHARACTER)   // character expected
      rule.left = (unsigned char) value;
    else
      error = 1;

    _scanner_next_token(&token,&value);

    rule.number_of_parameters = 0;
    rule.condition = NULL;

    if (!error && token == TOKEN_CHARACTER && value == '(')
      {
        _scanner_next_token(&token,&value);

        while (1)                   // optional parameter list
          {
            if (token == TOKEN_CHARACTER)
              {
                rule.parameter_list[rule.number_of_parameters] =
                  (unsigned char) value;

                rule.number_of_parameters++;
              }
            else
              {
                error = 1;
                break;
              }

            _scanner_next_token(&token,&value);

            if (token == TOKEN_CHARACTER && value == ')')
              break;
            else if (token == TOKEN_CHARACTER && value == ',')
              _scanner_next_token(&token,&value);
            else
              {
                error = 1;
                break;
              }
          }

        _scanner_next_token(&token,&value);

        // optional condition:

        if (!error && token == TOKEN_CHARACTER && value == '[')
          {
            help_length = 0;
            help_position = scanner.position;

            while (rule_string[help_position + help_length] != ']')
              {
                help_length++;

                if (rule_string[help_position + help_length] == 0)
                  {
                    error = 1;
                    break;
                  }
              }

            scanner.position = help_position + help_length + 1;
            _scanner_next_token(&token,&value);

            rule.condition = (char *) malloc(help_length + 1);

            if (rule.condition == NULL)
              error = 1;

            if (!error)
              {
                strncpy(rule.condition,rule_string + help_position,help_length);
                rule.condition[help_length] = 0;
              }
          }
      }

    if (!error && token == TOKEN_CHARACTER)   // rule chance
      {
        if (value != ':')
          error = 1;

        _scanner_next_token(&token,&value);

        if (token != TOKEN_NUMBER)
          error = 1;

        rule.chance = value;

        _scanner_next_token(&token,&value);
      }
    else
      {
        rule.chance = 1;            // default value
      }

    if (token != TOKEN_ARROW)       // "->" expected
      return 0;

    rule.right_length =
      _grammar_string_length(rule_string + scanner.position);

    rule.right = (t_grammar_rule_char *) malloc(rule.right_length *
      sizeof (t_grammar_rule_char));

    if (rule.right == NULL)
      return 0;

    help_position = 0;

    while (1)                       // read the right side
      {
        if (error)
          break;

        _scanner_next_token(&token,&value);

        if (token == TOKEN_CHARACTER && value == '(')
          {
            if (help_position == 0) // '(' at the neginning => error
              {
                error = 1;
                break;
              }

            new_position = _read_parameter_expressions(&rule.right
              [help_position - 1],rule_string + scanner.position);

            scanner.position += new_position;
          }
        else if (token == TOKEN_CHARACTER)
          {
            rule.right[help_position].character = (unsigned char) value;
            rule.right[help_position].number_of_parameters = 0;

            help_position++;
          }
        else if (token == TOKEN_END)
          break;
        else
          error = 1;
      }

    if (error)
      {
        free(rule.right);
        free(rule.condition);
      }
    else
      {
        grammar->number_of_rules++;

        grammar->rules = (t_grammar_rule *) realloc(grammar->rules,
          grammar->number_of_rules * sizeof(t_grammar_rule));

        if (grammar->rules == NULL)
          error = 1;

        grammar->rules[grammar->number_of_rules - 1] = rule;
      }

    return !error;
  }

//----------------------------------------------------------------------

int grammar_generate_string(t_grammar *grammar,
  unsigned int iterations)

  {
    t_grammar_char *buffer[2];  // 2 help buffers of grammar string
    int buffer_length[2];       // length of each buffer
    unsigned char main_buffer;  // number of currently main buffer
    unsigned char secondary_buffer;
    unsigned int iteration;
    unsigned char character;
    int value;
    int success;
    t_grammar_char *symbol_to;
    t_grammar_rule_char *symbol_from;
    int i, j, k;
    int rule_number;            // rule to apply
    int realloc_by;
    int allocated;
    int adding;
    int change_occured;

    realloc_by = 256;

    main_buffer = 0;
    secondary_buffer = 1;

    buffer_length[main_buffer] = grammar->axiom_length;

    buffer[main_buffer] = (t_grammar_char *)
      malloc(realloc_by * sizeof(t_grammar_char));

    buffer[secondary_buffer] = (t_grammar_char *)
      malloc(realloc_by * sizeof(t_grammar_char));

    if (buffer[main_buffer] == NULL || buffer[secondary_buffer] == NULL)
      return 0;

    allocated = realloc_by;

    // copy the axiom into the buffer:

    for (i = 0; i < buffer_length[main_buffer]; i++)
      buffer[main_buffer][i] = grammar->axiom[i];

    buffer_length[secondary_buffer] = 0;

    for (iteration = 0; iteration < iterations; iteration++)
      {
        change_occured = 0;

        // apply rules:

        for (i = 0; i < buffer_length[main_buffer]; i++)
          {
            rule_number = _grammar_determine_rule(grammar,
              &buffer[main_buffer][i]);

            if (rule_number >= 0)
              adding = grammar->rules[rule_number].right_length;
            else       // no rule can be applied => copy only the symbol
              adding = 1; // adding only one symbol

            // allocate more memory if needed:

            while (buffer_length[secondary_buffer] + adding >=
              allocated - 1)
              {
                buffer[main_buffer] = (t_grammar_char *)
                  realloc(buffer[main_buffer],
                  (allocated + realloc_by) * sizeof(t_grammar_char));

                buffer[secondary_buffer] = (t_grammar_char *)
                  realloc(buffer[secondary_buffer],
                  (allocated + realloc_by) * sizeof(t_grammar_char));

                if (buffer[main_buffer] == NULL ||
                  buffer[secondary_buffer] == NULL)
                  return 0;

                allocated += realloc_by;
              }

            // now copy the symbols to secondary buffer:

            if (rule_number < 0)
              {
                buffer[secondary_buffer]
                [buffer_length[secondary_buffer]] =
                buffer[main_buffer][i];

                buffer_length[secondary_buffer]++;
              }
            else
              {
                change_occured = 1;

                // fill the symbol table:

                for (j = 0; j < grammar->rules[rule_number].number_of_parameters; j++)
                  {
                    character = grammar->rules[rule_number].parameter_list[j];
                    value = buffer[main_buffer][i].parameter_values[j];

                    symbol_table.validity_map[character] = 1;
                    symbol_table.values[character] = value;
                  }

                for (j = 0; j < adding; j++)
                  {
                    symbol_from = &grammar->rules[rule_number].right[j];
                    symbol_to = &buffer[secondary_buffer]
                    [buffer_length[secondary_buffer] + j];

                    symbol_to->character = symbol_from->character;
                    symbol_to->number_of_parameters = symbol_from->number_of_parameters;

                    for (k = 0; k < symbol_from->number_of_parameters; k++)
                      {
                        symbol_to->parameter_values[k] =
                        _evaluate_expression(symbol_from->parameter_expressions[k],&symbol_table,&success);
                      }
                  }

                buffer_length[secondary_buffer] += adding;

                // invalidate the symbol table:

                for (j = 0; j < 255; j++)
                  symbol_table.validity_map[j] = 0;
              }
          }

        if (main_buffer)       // switch buffers
          {
            secondary_buffer = 1;
            main_buffer = 0;
          }
        else
          {
            secondary_buffer = 0;
            main_buffer = 1;
          }

        // delete the secondary buffer:

        buffer_length[secondary_buffer] = 0;

        if (!change_occured)
          break;
      }

    grammar->string = (t_grammar_char *) realloc(grammar->string,
      buffer_length[main_buffer] * sizeof(t_grammar_char));

    if (grammar->string == NULL)
      return 0;

    grammar->string_length = buffer_length[main_buffer];

    // copy the generated string into the grammar variable:

    for (i = 0; i < buffer_length[main_buffer]; i++)
      {
        grammar->string[i] = buffer[main_buffer][i];
      }

    free(buffer[main_buffer]);
    free(buffer[secondary_buffer]);

    return 1;
  }

//----------------------------------------------------------------------

int grammar_load_from_file(t_grammar *grammar, char *filename,
  int random)

  {
    FILE *read_file;
    int i;
    char buffer[256];

    read_file = fopen(filename,"r");

    if (read_file == NULL)
      return 0;

    fgets(buffer,256,read_file);  // read the axiom

    for (i = 0; i < 256; i++)     // get rid of the newline
      {
        if (buffer[i] == '\n')
          {
            buffer[i] = 0;
            break;
          }
      }

    grammar_init(grammar,buffer,random);

    // read the rules:

    while (!feof(read_file))
      {
        fgets(buffer,256,read_file);

        for (i = 0; i < 256; i++)
          {
            if (buffer[i] == '\n')
              {
                buffer[i] = 0;
                break;
              }
          }

        grammar_add_rule(grammar,buffer);
      }

    fclose(read_file);

    return 1;
  }

//----------------------------------------------------------------------

int grammar_save_to_file(t_grammar *grammar, char *filename)

  {
    FILE *save_file;
    t_grammar_rule *rule;
    int i, j, k;

    save_file = fopen(filename, "w");

    if (save_file == NULL)
      return 0;

    // write the axiom:

    for (i = 0; i < grammar->axiom_length; i++)
      {
        fprintf(save_file,"%c",grammar->axiom[i].character);

        if (grammar->axiom[i].number_of_parameters != 0)
          {
            fprintf(save_file,"(");

            for (j = 0; j < grammar->axiom[i].number_of_parameters; j++)
              {
                if (j != 0)
                  fprintf(save_file,",");

                fprintf(save_file,"%d",grammar->axiom[i].parameter_values[j]);
              }

            fprintf(save_file,")");
          }
      }

    fprintf(save_file,"\n\n");

    // write the rules:

    for (i = 0; i < grammar->number_of_rules; i++)
      {
        rule = &grammar->rules[i];

        fprintf(save_file,"%c ",rule->left);

        if (rule->number_of_parameters != 0)
          {
            fprintf(save_file,"(");

            for (j = 0; j < rule->number_of_parameters; j++)
              {
                if (j != 0)
                  fprintf(save_file,", ");

                fprintf(save_file,"%c",rule->parameter_list[j]);
              }

            fprintf(save_file,") ");

            if (rule->condition != NULL)
              fprintf(save_file,"[%s] ",rule->condition);
          }

        fprintf(save_file,"-> ");

        for (j = 0; j < rule->right_length; j++)
          {
            fprintf(save_file,"%c",rule->right[j].character);

            if (rule->right[j].number_of_parameters != 0)
              {
                fprintf(save_file,"(");

                for (k = 0; k < rule->right[j].number_of_parameters; k++)
                  {
                    if (k != 0)
                      fprintf(save_file,",");

                    fprintf(save_file,"%s",rule->right[j].parameter_expressions[k]);
                  }

                fprintf(save_file,")");
              }
          }

        fprintf(save_file,"\n");
      }

    fprintf(save_file,"\n");

    fclose(save_file);

    return 1;
  }

//----------------------------------------------------------------------

void grammar_print_string(t_grammar *grammar)

  {
    int i,j;

    if (grammar == NULL)
      return;

    for (i = 0; i < grammar->string_length; i++)
      {
        printf("%c",grammar->string[i].character);

        if (grammar->string[i].number_of_parameters != 0)
          {
            printf("(");

            for (j = 0; j < grammar->string[i].number_of_parameters; j++)
              {
                if (j != 0)
                  printf(", ");

                printf("%d",grammar->string[i].parameter_values[j]);
              }

            printf(")");
          }
      }

    printf("\n");
  }

//----------------------------------------------------------------------

--- FILE ./grammar.h ---
#ifndef GRAMMAR_H
#define GRAMMAR_H

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "general.h"

//**********************************************************************

/** @file
 * Header file of grammar module, which provides a possibility to
 * generate strings based on given rule set.
 *
 * @author Miloslav Ciz
 */

/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */

//**********************************************************************

#define GRAMMAR_MAXIMUM_PARAMETERS 5

                                /** a character of generated grammar
                                    string, each one can have values of
                                    it's parameters */
typedef struct
  {
    char character;
    unsigned char number_of_parameters;
    int parameter_values[GRAMMAR_MAXIMUM_PARAMETERS];
  } t_grammar_char;

                                /** a character of a grammar string used
                                    in rules, each one can have
                                    expression of it's parameters */
typedef struct
  {
    char character;
    unsigned char number_of_parameters;
    char *parameter_expressions[GRAMMAR_MAXIMUM_PARAMETERS];
  } t_grammar_rule_char;

typedef struct
  {
    char left;                  ///< left side symbol
    unsigned char number_of_parameters;
    char parameter_list[GRAMMAR_MAXIMUM_PARAMETERS];  /**< parameter
                                names (single characters) */
    char *condition;            ///< rule condition
    int right_length;           ///< length of the right side string
    t_grammar_rule_char *right;
    unsigned char chance;       /**< likeliness of rule application,
                                     default is 1, 2 means twice as
                                     likely etc. */
  } t_grammar_rule;
                                /** represents a grammar itself */
typedef struct
  {
    t_grammar_char *axiom;
    t_grammar_char *string;     ///< generated string
    int axiom_length;
    int string_length;
    t_grammar_rule *rules;
    int number_of_rules;
    int random;                 ///< seed passed to noise generator
  } t_grammar;

//----------------------------------------------------------------------

void grammar_init(t_grammar *grammar, char *axiom, int random);

  /**<
   * Initialises a new grammar with given axiom and empty rule set.
   *
   * @param grammar grammar to be initialised
   * @param axiom starting string from which the final string will be
   *        generated
   * @param random number that affects the pseudo-number generation,
   *        different values will result in different strings generated
   *        with rules that depend on probability
   */

//----------------------------------------------------------------------

void grammar_destroy(t_grammar *grammar);

  /**<
   * Destroys given grammar and frees it's memory.
   *
   * @param grammar grammar to be destroyed
   */

//----------------------------------------------------------------------

int grammar_add_rule(t_grammar *grammar, char *rule_string);

  /**<
   * Adds a rule to the grammar's rule set.
   *
   * @param grammar
   * @return 1 if the rule was added succesfully, otherwise false
   */

//----------------------------------------------------------------------

int grammar_generate_string(t_grammar *grammar,
  unsigned int iterations);

  /**<
   * Generates internal string using provided rule set, axiom and
   * given number of iterations. To retrieve generated string use
   * other methods.
   *
   * @param grammar grammar for which the string will be generated
   * @param iterations number of iterations to generate the string
   *
   * @return 1 if the action was succesful, otherwise 0
   */

//----------------------------------------------------------------------

int grammar_load_from_file(t_grammar *grammar, char *filename,
  int random);

  /**<
   * Loads the grammar (axiom and rules) from fiven file. This serves
   * as an initialise function so the grammar is allowed to be
   * uninitialised.
   *
   * @param grammar grammar to be loaded
   * @param filename name of the file
   * @param random number that affects the random choosing of the rules
   *
   * @return 1 if everything was OK, otherwise 0
   */

//----------------------------------------------------------------------

int grammar_save_to_file(t_grammar *grammar, char *filename);

  /**<
   * Saves grammar rules and axiom to given file.
   *
   * @param grammar grammar to be saved
   * @param filename name of the file
   *
   * @return 1 if everything was OK, 0 otherwise
   */

//----------------------------------------------------------------------

void grammar_print_string(t_grammar *grammar);

  /**<
   * Prints the string stored in given grammar to stdout.
   *
   * @param grammar grammar that contains the string
   */

//----------------------------------------------------------------------

#endif

--- FILE ./kdtree.c ---
//**********************************************************************

/** @file
 * Implementation of k-d tree data structure.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "kdtree.h"

//----------------------------------------------------------------------

  /**
   * Private function which adds a point into k-d subtree.
   *
   * @param node k-d node to add the point to
   * @param x x coordination of point being added
   * @param y y coordination of point being added
   * @param compare_x boolean parameter telling whether to compare
   *   x coordinations (true) or y coordinations (false)
   *
   * @return 1 if the point was added succesfully, otherwise 0
   */

int _kd_tree_add(t_kd_tree_node **node, int x, int y, int compare_x)

  {
    int new_compare;           /* compare the other coordination in the
                                  next level */

    new_compare = compare_x ? 0 : 1;

    if (*node == NULL)
      {
        *node = (t_kd_tree_node *) malloc(sizeof(t_kd_tree_node));

        if (*node == NULL)
          return 0;            // malloc fail

        (*node)->x = x;
        (*node)->y = y;
        (*node)->left = NULL;
        (*node)->right = NULL;
        (*node)->x_coordination_matters = compare_x;
      }
    else if (compare_x)        // compare x
      {
        if (x > (*node)->x)
          _kd_tree_add(&(*node)->right,x,y,new_compare);
        else
          _kd_tree_add(&(*node)->left,x,y,new_compare);
      }
    else                       // compare y
      {
        if (y > (*node)->y)
          _kd_tree_add(&(*node)->right,x,y,new_compare);
        else
          _kd_tree_add(&(*node)->left,x,y,new_compare);
      }

    return 1;                  // added succesfully
  }

//----------------------------------------------------------------------

  /**
   * Private debugging purpose functions that prints k-d subtree to
   * stdout.
   *
   * @param node subtree to be printed
   */

void _kd_tree_print(t_kd_tree_node *node)

  {
    if (node == NULL)
      return;

    printf("%d,%d(",node->x,node->y);
    _kd_tree_print(node->left);
    printf(", ");
    _kd_tree_print(node->right);
    printf(")");
  }

//----------------------------------------------------------------------

  /**
   * Private function - frees a memory of given k-d node.
   *
   * @param node node to be destroyed
   */

void _kd_tree_destroy_node(t_kd_tree_node *node)

  {
    if (node != NULL)
      {
        _kd_tree_destroy_node(node->left);   // destroy left subtree
        _kd_tree_destroy_node(node->right);  // destroy right subtree
        free(node);                         // destroy this node
      }
  }

//----------------------------------------------------------------------

  /**
   * Private function - does the internal stuff for find nearest
   * neighbour public function.
   *
   * @param node node to be searched
   * @param x x coordination of a point which we want to find the
   *   nearest neighbour of
   * @param y y coordination of a point which we want to find the
   *   nearest neighbour of
   * @param nearest_x variable in which x coordination of the nearest
   *   neighbour will be returned
   * @param nearest_y variable in which y coordination of the nearest
   *   neighbour will be returned
   * @param space_width width of the 2d space
   * @param space_height height of the 2d space
   */

void _kd_tree_find_nearest_help(t_kd_tree_node *node, int x, int y,
  int *nearest_x, int *nearest_y, int space_width, int space_height)

  {
    int split;                  // split point coordination
    int space_limit;            /* either 0 or space_width or
                                   space_height */
    int circle_radius;          // compare cicle radius
    int point_coordination;
    int best_x, best_y, help_x, help_y;

    if (node->left == NULL && node->right == NULL)  // leaf node
      {
        *nearest_x = node->x;
        *nearest_y = node->y;
        return;                      // return this node's coordinations
      }

    if (node->x_coordination_matters)   // setting help variables
      {
        split = node->x;
        point_coordination = x;
      }
    else
      {
        split = node->y;
        point_coordination = y;
      }

    if (point_coordination <= split)
      space_limit = 0;
    else
      if (node->x_coordination_matters)
        space_limit = space_width;
      else
        space_limit = space_height;

    circle_radius =                     // set minimum circle radius
      abs(point_coordination - split) <
      abs(space_limit - point_coordination) ?
      abs(point_coordination - split) :
      abs(space_limit - point_coordination);

    best_x = node->x;
    best_y = node->y;                   // here we have variables set

             /* find the best point in left subtree (if there is one) */

    if (node->left != NULL)
      {
        _kd_tree_find_nearest_help(node->left,x,y,&help_x,&help_y,
          space_width,space_height);

        if (get_distance(METRIC_EUCLIDEAN,x,y,help_x,help_y,space_width,
          space_height) < get_distance(METRIC_EUCLIDEAN,x,y,best_x,
          best_y,space_width,space_height))
          {
            best_x = help_x;
            best_y = help_y;
          }
      }

    /* here we may skip searching the right subtree if the circle
       doesn't cross the split line (and neither space limit) */
    if (node->right != NULL)
      {
        if(get_distance(METRIC_EUCLIDEAN,x,y,best_x,best_y,space_width,
          space_height) >= circle_radius)
          {
            _kd_tree_find_nearest_help(node->right,x,y,&help_x,&help_y,
              space_width,space_height);

            if (get_distance(METRIC_EUCLIDEAN,x,y,help_x,help_y,
              space_width,space_height) < get_distance(METRIC_EUCLIDEAN,
              x,y,best_x,best_y,space_width,space_height))
              {
                best_x = help_x;
                best_y = help_y;
              }

          }
      }

    *nearest_x = best_x;
    *nearest_y = best_y;
  }

//----------------------------------------------------------------------

void kd_tree_init(t_kd_tree *tree, int points[][2], int points_length)

  {
    int i;

    tree->root = NULL;

    for (i = 0; i < points_length; i++)       // add all points
      _kd_tree_add(&tree->root,points[i][0],points[i][1],1);
  }

//----------------------------------------------------------------------

void kd_tree_destroy(t_kd_tree *tree)

  {
    _kd_tree_destroy_node(tree->root);
    tree->root = NULL;
  }

//----------------------------------------------------------------------

void kd_tree_find_nearest_neighbour(t_kd_tree *tree, int x, int y,
  int *nearest_x, int *nearest_y, int space_width, int space_height)

  {
    _kd_tree_find_nearest_help(tree->root,x,y,nearest_x,nearest_y,
      space_width,space_height);
  }

//----------------------------------------------------------------------

--- FILE ./kdtree.h ---
#ifndef KDTREE_H
#define KDTREE_H

//**********************************************************************

/** @file
 * Header file of k-d tree implementation. This data structure serves as
 * a time optimalization and should help to create Voronoi diagrams
 * faster.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include <stdio.h>
#include <stdlib.h>
#include "general.h"

                                     /** k-d tree data structure node */
typedef struct kd_node
  {
    int x;                           ///< x coordination of the point
    int y;                           ///< y coordination of the point
    int x_coordination_matters;      /**< boolean attribute, if true
                                          then the node level of the
                                          tree is x coordination level,
                                          otherwise it's y level */
    struct kd_node *left;            ///< pointer to left subtree
    struct kd_node *right;           ///< pointer to right subtree
  } t_kd_tree_node;

                                     /** k-d tree data structure */
typedef struct
  {
    t_kd_tree_node *root;            ///< root node of the tree
  } t_kd_tree;

//----------------------------------------------------------------------

void kd_tree_init(t_kd_tree *tree, int points[][2], int points_length);

  /**<
   * Initializes a new k-d tree with given points.
   *
   * @param tree tree to be initialized
   * @param points two dimensional array of points to add to the tree,
   *        first array index determines points and the other determines
   *        the point coordination (0 ~ x, 1 ~ y)
   * @param points_length length of points array
   */

//----------------------------------------------------------------------

void kd_tree_find_nearest_neighbour(t_kd_tree *tree, int x, int y,
  int *nearest_x, int *nearest_y, int space_width, int space_height);

  /**<
   * Finds the nearest neighbour to given point in relatively short time
   * compared to brute-force method. Euclidean distance is used.
   *
   * @param tree tree to be searched
   * @param x x coordination of a point which we want to find the
   *        nearest neighbour of
   * @param y y coordination of a point which we want to find the
   *        nearest neighbour of
   * @param nearest_x variable in which x coordination of the nearest
   *        neighbour will be returned
   * @param nearest_y variable in which y coordination of the nearest
   *        neighbour will be returned
   * @param space_width width of the 2d space
   * @param space_height height of the 2d space
   */

//----------------------------------------------------------------------

void kd_tree_destroy(t_kd_tree *tree);

  /**<
   * Frees the memory of given k-d tree.
   *
   * @param tree tree to be destroyed.
   */

//----------------------------------------------------------------------

#endif

--- FILE ./linelist.c ---
//**********************************************************************

/** @file
 * Implementation of line (circle) list.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "linelist.h"
#include <stdio.h>
#include <stdlib.h>
#include "general.h"

#define ALLOCATE_BY 256      ///< allocation unit of the list

//----------------------------------------------------------------------

int line_list_init(t_line_list *list)

  {
    list->length = 0;

    list->x_positions = (int *) malloc(ALLOCATE_BY * sizeof(int));

    if (list->x_positions == NULL)
      return 0;

    list->y_positions = (int *) malloc(ALLOCATE_BY * sizeof(int));

    if (list->y_positions == NULL)
      {
        free(list->x_positions);
        return 0;
      }

    list->fp_numbers = (double *) malloc(ALLOCATE_BY * sizeof(double));

    if (list->fp_numbers == NULL)
      {
        free(list->x_positions);
        free(list->y_positions);
        return 0;
      }

    list->lengths = (int *) malloc(ALLOCATE_BY * sizeof(int));

    if (list->lengths == NULL)
      {
        free(list->x_positions);
        free(list->y_positions);
        free(list->fp_numbers);
        return 0;
      }

    return 1;
  }

//----------------------------------------------------------------------

int line_list_add(t_line_list *list, int point_x, int point_y,
  double fp_parameter, int length)

  {
    int new_length;

    if (list->length != 0 && list->length % ALLOCATE_BY == 0)
      {                                   // must reallocate the memory
        new_length = (((list->length / ALLOCATE_BY) + 1) * ALLOCATE_BY);

        list->x_positions = (int *) realloc(list->x_positions,
          new_length * sizeof(int));

        if (list->x_positions == NULL)
          return 0;

        list->y_positions = (int *) realloc(list->y_positions,
          new_length * sizeof(int));

        if (list->y_positions == NULL)
          {
            free(list->x_positions);
            return 0;
          }

        list->fp_numbers = (double *) realloc(list->fp_numbers,
          new_length * sizeof(double));

        if (list->fp_numbers == NULL)
          {
            free(list->x_positions);
            free(list->y_positions);
            return 0;
          }

        list->lengths = (int *) realloc(list->lengths, new_length *
          sizeof(int));

        if (list->lengths == NULL)
          {
            free(list->x_positions);
            free(list->y_positions);
            free(list->fp_numbers);
            return 0;
          }
      }

    list->x_positions[list->length] = point_x;
    list->y_positions[list->length] = point_y;
    list->fp_numbers[list->length] = fp_parameter;
    list->lengths[list->length] = length;
    list->length++;

    return 1;
  }

//----------------------------------------------------------------------

void line_list_pop(t_line_list *list)

  {
    if (list->length > 0)
      list->length--;
  }

//----------------------------------------------------------------------

void line_list_set(t_line_list *list, unsigned int element_number,
  int point_x, int point_y, double fp_parameter, int length)

  {
    if (element_number >= list->length)
      return;

    list->x_positions[element_number] = point_x;
    list->y_positions[element_number] = point_y;
    list->fp_numbers[element_number] = fp_parameter;
    list->lengths[element_number] = length;
  }

//----------------------------------------------------------------------

int line_list_get_length(t_line_list *list)

  {
    return list->length;
  }

//----------------------------------------------------------------------

void line_list_get(t_line_list *list, unsigned int element_number,
  int *point_x, int *point_y, double *fp_parameter, int *length)

  {
    if (element_number >= list->length)
      return;

    *point_x = list->x_positions[element_number];
    *point_y = list->y_positions[element_number];

    if (fp_parameter != NULL)
      *fp_parameter = list->fp_numbers[element_number];

    if (fp_parameter != NULL)
      *length = list->lengths[element_number];
  }

//----------------------------------------------------------------------

void line_list_destroy(t_line_list *list)

  {
    list->length = 0;

    free(list->x_positions);
    free(list->y_positions);
    free(list->fp_numbers);
    free(list->lengths);
  }

//----------------------------------------------------------------------

--- FILE ./linelist.h ---
#ifndef LINELIST_H
#define LINELIST_H

//**********************************************************************

/** @file
 * Header file of line list used for storing variable number of
 * information about lines. This information consists of one point
 * in 2D space, line angle, line length and an information about whether
 * the line is already completely drawn. This data structure serves
 * mainly for substrate algorithm purposes, but may be used for other
 * purposes as well (it may be used as a stack).
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include <stdio.h>
#include "general.h"

                               /** the line list structure */
typedef struct
  {
    unsigned int length;       ///< list length
    int *x_positions;          ///< array of x positions of points
    int *y_positions;          ///< array of y positions of points
    double *fp_numbers;        ///< array of angles
    int *lengths;              /**< array of information about whether
                                    the line is completed */
  } t_line_list;

//----------------------------------------------------------------------

int line_list_init(t_line_list *list);

  /**<
   * Initialises a new line list.
   *
   * @param list line list to be initialised
   *
   * @return 1 if everything was ok, or 0 if memory could not be
   *         allocated
   */

//----------------------------------------------------------------------

int line_list_add(t_line_list *list, int point_x, int point_y,
  double fp_parameter, int length);

  /**<
   * Adds line (circle) information to given list.
   *
   * @param list line list to add the information to
   * @param point_x x position of point being added
   * @param point_y y position of point being added
   * @param fp_parameter floating point number asociated with point
   *        being added
   * @param length line length
   *
   * @return 1 if everything was ok, or 0 if memory could not be
   *         allocated
   */

//----------------------------------------------------------------------

void line_list_pop(t_line_list *list);

  /**<
   * Deletes the last element of the list if there is any.
   *
   * @param list list of which the last element should be deleted
   */

//----------------------------------------------------------------------

void line_list_set(t_line_list *list, unsigned int element_number,
  int point_x, int point_y, double fp_parameter, int length);

  /**<
   * Sets given element in given list to given value.
   *
   * @param list line list to add the information to
   * @param element_number element position in the buffer
   * @param point_x new x position of point
   * @param point_y new y position of point
   * @param fp_parameter new value of floating point number
   * @param length new value of line length
   */

//----------------------------------------------------------------------

int line_list_get_length(t_line_list *list);

  /**<
   * Returns length of given line list.
   *
   * @param list list to get the width of
   *
   * @return number of list's elemnts
   */

//----------------------------------------------------------------------

void line_list_get(t_line_list *list, unsigned int element_number,
  int *point_x, int *point_y, double *fp_parameter, int *length);

  /**<
   * Returns information at given position in the line list.
   *
   * @param list line list to get the information from
   * @param element_number element position in the buffer
   * @param point_x variable in which x position will be returned
   * @param point_y variable in which y position will be returned
   * @param fp_parameter variable in which floating point number will
   *        be returned, may be NULL in which case it won't be used
   * @param length variable in which length will be stored, may be NULL
   *        in which case it won't be used
   */

//----------------------------------------------------------------------

void line_list_destroy(t_line_list *list);

  /**<
   * Destroys given line list.
   *
   * @param list line list to be destroyed
   */

//----------------------------------------------------------------------

#endif

--- FILE ./matrix.c ---
//**********************************************************************

/** @file
 * Implementation of matrix data type.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "matrix.h"
#include <stdio.h>
#include <stdlib.h>

//----------------------------------------------------------------------

int matrix_init(t_matrix *matrix, unsigned int width, unsigned int
  height)

  {
    int length;

    matrix->width = width;
    matrix->height = height;

    length = width * height * sizeof(double);

    matrix->data = (double *) malloc(length);

    if (matrix->data == NULL)
      return 0;

    return 1;
  }

//----------------------------------------------------------------------

void matrix_set_value(t_matrix *matrix, unsigned int position_x,
  unsigned int position_y, double value)

  {
    int index;

    if (position_x >= matrix->width || position_y >= matrix->height)
      return;

    index = position_y * matrix->width + position_x;

    matrix->data[index] = value;
  }

//----------------------------------------------------------------------

double matrix_get_value(t_matrix *matrix, unsigned int position_x,
  unsigned int position_y)

  {
    int index;

    if (position_x >= matrix->width || position_y >= matrix->height)
      return 0;

    index = position_y * matrix->width + position_x;

    return matrix->data[index];
  }

//----------------------------------------------------------------------

void matrix_destroy(t_matrix *matrix)

  {
    if (matrix->data != NULL)
      free(matrix->data);
  }

//----------------------------------------------------------------------

void matrix_print(t_matrix *matrix)

  {
    unsigned int i, j;

    for (j = 0; j < matrix->height; j++)
      {
        for (i = 0; i < matrix->width; i++)
          {
            printf("%lf ",matrix_get_value(matrix,i,j));
          }

        printf("\n");
      }
  }

//----------------------------------------------------------------------

--- FILE ./matrix.h ---
#ifndef MATRIX_H
#define MATRIX_H

//**********************************************************************

/** @file
 * Header file of matrix data type. It provides an interface for
 * handling some necesarry matrix operations.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

                           /** represents a matrix, contains a pointer
                               to matrix data in memory */
typedef struct
  {
    unsigned int width;    ///< matrix width
    unsigned int height;   ///< matrix height
    double *data;          ///< pointer to matrix data
  } t_matrix;

//----------------------------------------------------------------------

int matrix_init(t_matrix *matrix, unsigned int width, unsigned int
  height);

  /**<
   * Initialises a new matrix. It's memory must be freed with destroy
   * function before this function is called. The matrix is initialised
   * with undefined values.
   *
   * @param matrix matrix structure to be initialised
   * @param width width of the matrix
   * @param height height of the matrix
   *
   * @return 1 if everything was ok, or 0 if memory could not be
   *         allocated
   */

//----------------------------------------------------------------------

void matrix_set_value(t_matrix *matrix, unsigned int position_x,
  unsigned int position_y, double value);

  /**<
   * Sets value at given coordinates in matrix.
   *
   * @param matrix matrix to be modified
   * @param position_x x position
   * @param position_y y position
   * @param value value to be set in the matrix
   */

//----------------------------------------------------------------------

double matrix_get_value(t_matrix *matrix, unsigned int position_x,
  unsigned int position_y);

  /**<
   * Returns the value at given coordinations in matrix.
   *
   * @param matrix matrix in which the needed value is located
   * @param position_x x position of the value
   * @param position_y y position of the value
   *
   * @return value at given place
   */

//----------------------------------------------------------------------

void matrix_destroy(t_matrix *matrix);

  /**<
   * Dealocates the memory used by the matrix.
   *
   * @param matrix matrix to be destroyed
   */

//----------------------------------------------------------------------

void matrix_print(t_matrix *matrix);

  /**<
   * Prints the matrix content to standard output.
   *
   * @param matrix matrix to be printed
   */

//----------------------------------------------------------------------

#endif

--- FILE ./proctextures.c ---
//**********************************************************************

/** @file
 * Implementation of advanced color buffer operations.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "proctextures.h"
#include "colorbuffer.h"
#include "matrix.h"
#include "linelist.h"
#include <stdio.h>
#include <math.h>

#define TURTLE_STACK_REALLOC_BY 256 ///< by how many realloc the stack

                                /** possible ways to draw a line */
typedef enum
  {
    LINE_NORMAL,
    LINE_ZIG_ZAG,
    LINE_WAVE,
    LINE_ARROW,
    LINE_DOUBLE,
    LINE_PARTICLES
  } t_line_type;

                                /** state for turtle graphics */
typedef struct
  {
    int angle;                  /**< angle in degrees CCW starting
                                     from pointing right */
    int step_length;            ///< step length in pixels
    unsigned char color[3];     ///< color of the line
    unsigned int line_width;    ///< line width in pixels
    t_line_type line_type;      ///< line type
    unsigned int dot_gap;       ///< gap between line segments in pixels
    int position_x;
    int position_y;
    unsigned int image_width;   ///< width of the image for the turtle
  } t_turtle_state;

                                /** represents a turtle for turtle
                                    graphics */
typedef struct
  {
    t_turtle_state state;       ///< current state
    t_turtle_state *stack;      ///< stack of states
    unsigned int stack_size;    ///< stack size
    t_grammar *grammar;         ///< grammar with drafwing instruction
    unsigned int instruction;   ///< current instruction position
    unsigned int image_width;
  } t_turtle;

t_turtle turtle;                     // global turtle
t_color_buffer turtle_noise_buffer;  // global help buffer

//----------------------------------------------------------------------

  /**
   * Private function - replaces all pixels with specified color in
   * given buffer with another color.
   *
   * @param buffer buffer in which the color will be replaced
   * @param r1 color to be replaced - red
   * @param g1 color to be replace - green
   * @param b1 color to be replace - blue
   * @param r2 color to replace with - red
   * @param g2 color to replace with - green
   * @param b2 color to replace with - blue
   */

void _pt_replace_color(t_color_buffer *buffer, unsigned char r1,
  unsigned char g1, unsigned char b1, unsigned char r2,
  unsigned char g2, unsigned char b2)

  {
    unsigned int i,j;
    unsigned char r,g,b;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&r,&g,&b);

          if (r == r1 && g == g1 && b == b1)
            color_buffer_set_pixel(buffer,i,j,r2,g2,b2);
        }
  }

//----------------------------------------------------------------------

  /**
   * Private function - draws a "bump" into given color buffer. A bump
   * is a fuzzy circullar object drawn as a function depending on
   * distance from given point.
   *
   * @param buffer buffer to braw the bump into
   * @param x x position of the bump central point, in pixels
   * @param y y position of the bump central point, in pixels
   * @param radius bump radius in pixels
   * @param alter_amplitude says if the amplitude should be altered
   *        depending on the bump size (its radius) (1) or not (0),
   *        non-altering amplitude will always be set to 255
   */

void _pt_draw_bump(t_color_buffer *buffer, unsigned int x,
  unsigned int y, unsigned int radius, int alter_amplitude)

  {
    unsigned int i,j;
    unsigned char color;
    double distance;
    unsigned char max_value;

    max_value = alter_amplitude ?
      radius / ((double) buffer->width) * 255 : 255;

    for (j = 0; j < radius; j++)    // compute only one quadrant
      for (i = 0; i < radius; i++)
        {
          distance = sqrt(i * i + j * j);

          if (distance <= radius)
            distance = sin(distance / radius * PI_DIVIDED_2);
          else
            distance = 1.0;

          color = round_to_char(max_value - distance * max_value);

          color_buffer_substract_pixel(buffer,x + i,y + j,color,
                color,color);

          if (i != 0)
            color_buffer_substract_pixel(buffer,x - i,y + j,color,color,
              color);

          if (j != 0)
            color_buffer_substract_pixel(buffer,x - i,y - j,color,color,
              color);

          if (i != 0 && j != 0)
            color_buffer_substract_pixel(buffer,x + i,y - j,color,color,
              color);
        }
  }

//----------------------------------------------------------------------

  /**
   * Private function - creates an array of points accoording to shape
   * describing string.
   *
   * @param side_string string describing a tile side, it is of format
   *        "%lf %lf %lf %lf ..." where two succeeding number are x and
   *        y coordinations of points, there must be exactly one space
   *        between numbers
   * @param points in this variable the list of points will be returned,
   *        the list will start with [0,0] and will be sorted by values
   *        of x, points with duplicite x value will be eliminated, only
   *        points with x values in range (0,1) will be considered and y
   *        values will be saturated to range <-0.5,0.5>
   * @param length in this variable length of created array will be
   *        returned
   */

void _pt_make_side_points(char *side_string, double points[128][2],
  unsigned int *length)

  {
    unsigned int i, j, position;
    int scanning_x;    // say if we're scanning x or y
    int already_in_array;
    double helper;
    double point[2];

    if (points == NULL || length == NULL)
      return;

    points[0][0] = 0; // initial point
    points[0][1] = 0;
    *length = 1;

    position = 0;      // position in the string
    scanning_x = 1;

    while (1)          // scan the string for points
      {
        if (!sscanf(side_string + position,"%lf",&helper) ||
          (side_string[position] == 0))
          break;

        // go to the next item:

        position++;

        while (side_string[position] != 0 &&
          side_string[position] != ' ')
          position++;

        point[scanning_x ? 0 : 1] = helper;
        scanning_x = !scanning_x;

        if (scanning_x) // one point scanned => add to array
          {
            point[0] = saturate_double(point[0],0.0,1.0);
            point[1] = saturate_double(point[1],-0.5,0.5);

            if (point[0] == 1.0) // make points with 1.0 not get to list
              point[0] = 0.0;

            already_in_array = 0;

            for (j = 0; j < *length; j++)       // check for duplicities
              if (points[j][0] == point[0])     // only x matters
                {
                  already_in_array = 1;
                  break;
                }

            if (!already_in_array)      // add the point to the array
              {
                points[*length][0] = point[0];
                points[*length][1] = point[1];
                *length = *length + 1;
              }

            if (*length >= 128)
              break;
          }
      }

    for (j = 1; j < *length; j++)  // sort the list with bubble sort
      for (i = 0; i < *length - j; i++)
        if (points[i][0] > points[i + 1][0])
          {
            helper = points[i][0];
            points[i][0] = points[i + 1][0];
            points[i + 1][0] = helper;

            helper = points[i][1];
            points[i][1] = points[i + 1][1];
            points[i + 1][1] = helper;
          }
  }

//----------------------------------------------------------------------

  /**
   * Private function - draws transformed tile in given buffer
   * considering transparency.
   *
   * @param tile tile image to be drawn, it should consist of only three
   *        colors - black (0,0,0), white (255,255,255) and red
   *        (255,0,0), black and white pixels will be drawn over pixels
   *        of the destination buffer, while in addition white pixels
   *        will be drawn as specified color, and red pixels will be
   *        considered as transparent
   * @param x x position of the tile in pixels
   * @param y y position of the tile in pixels
   * @param color grayscale value which the white color in tile image
   *        will be replaced with
   * @param destination in this buffer the tile will be drawn over it's
   *        current content
   * @param transformation transformation to be used for the tile, the
   *        tile image will not be affected by this function call
   * @param horizontal says if the transformation is horizontal (values
   *        greater than zero) or vertical (other values)
   */

void _pt_draw_tile(t_color_buffer *tile, unsigned int x, unsigned int y,
  unsigned char color, t_color_buffer *destination,
  t_mosaic_transformation transformation, int horizontal)

  {
    unsigned int i,j,x2,y2;
    unsigned char r,g,b;

    for (j = 0; j < tile->height; j++)
      {
        for (i = 0; i < tile->width; i++)
          {
            // transform the coordinations:

            switch (transformation)
              {
                case MOSAIC_TRANSFORM_SHIFT:

                  x2 = i;
                  y2 = j;
                  break;

                case MOSAIC_TRANSFORM_SHIFT_MIRROR:

                  if (horizontal)
                    {
                      x2 = i;
                      y2 = tile->height - j;
                    }
                  else
                    {
                      x2 = tile->width - i;
                      y2 = j;
                    }

                  break;

                case MOSAIC_TRANSFORM_ROTATE_SIDE:

                  x2 = tile->width - i;
                  y2 = tile->height - j;
                  break;

                case MOSAIC_TRANSFORM_ROTATE_VERTEX:

                  x2 = tile->height - j;
                  y2 = i;
                  break;
              }

            color_buffer_get_pixel(tile,x2,y2,&r,&g,&b);

            if (r == 255)
              {
                if (b == 255)     // white
                  {
                    r = color;
                    g = color;
                    b = color;
                  }
                else              // red
                  {
                    color_buffer_get_pixel(destination,x + i,y + j,
                      &r,&g,&b);
                  }
              }
            else                  // black
              {
                r = 0;
                g = 0;
                b = 0;
              }

            color_buffer_set_pixel(destination,x + i,y + j,r,g,b);
          }
      }
  }

//----------------------------------------------------------------------

  /**
   * Private function - depending on provided square mosaic
   * specification makes a tile polygon and returns it as a list of
   * coordinations.
   *
   * @param mosaic square mosaic specification
   * @param array in this variable a pointer to two-dimensional array of
   *        polygon points will be returned, the list is in format
   *        [point number][x/y] representing the polygon based on 1 * 1
   *        size square grid with lower left corner at [0,0], the list
   *        is sorted CW from upper left corder and the polygon is
   *        automatically modified based on side transformations
   *        specified by the mosaic
   * @param array_length in this cariable length of the created list
   *        will be returned
   */

void _pt_make_tile_polygon(t_square_mosaic *mosaic,
  double (**array)[2],unsigned int *array_length)

  {
    double points[128][2];
    double helper;
    unsigned int i,j;
    double (*polygon)[2];        // dynamic array of polygon points
   // double **polygon;
    unsigned int polygon_points; // length of the polygon array
    unsigned int length;

    polygon_points = 0;
    polygon = NULL;

    for (i = 0; i < 4; i++)   // for each side
      {
        // create the side accoording to transformations:

        switch (mosaic->transformation[i])
          {
            case MOSAIC_TRANSFORM_ROTATE_SIDE:
                _pt_make_side_points(mosaic->side_shape[i],points,
                &length);

              for (j = 0; j < length; j++) // cut the side in the middle
                if (points[j][0] >= 0.5)
                  {
                    length = j;
                    break;
                  }

              // copy the half-side upside-down (minus the first point):

              for (j = 1; j < length; j++)
                {
                  points[length * 2 - 1 - j][0] = 1.0 - points[j][0];
                  points[length * 2 - 1 - j][1] = -1 * points[j][1];
                }
              length = length * 2 - 1; // leave out the first point

              break;

            case MOSAIC_TRANSFORM_SHIFT:

              if (i == 0 || i == 1)
                {
                  _pt_make_side_points(mosaic->side_shape[i],points,
                    &length);
                }
              else // copy the opposite side for bottom or left side
                {
                  _pt_make_side_points(mosaic->side_shape[i - 2],points,
                    &length);

                  // flip the side in x and y:

                  for (j = 0; j < length / 2; j++)
                    {
                      helper = -1 * points[j + 1][1];
                      points[j + 1][1] = -1 * points[length - j - 1][1];
                      points[length - j - 1][1] = helper;

                      helper = points[j + 1][0];
                      points[j + 1][0] = 1.0 -
                        points[length - j - 1][0];
                      points[length - j - 1][0] = 1.0 - helper;
                    }
                }

              break;

            case MOSAIC_TRANSFORM_SHIFT_MIRROR:

              if (i == 0 || i == 1)
                {
                  _pt_make_side_points(mosaic->side_shape[i],points,
                    &length);
                }
              else
                {
                  _pt_make_side_points(mosaic->side_shape[i - 2],points,
                    &length);

                  // flip the side y coordinations:

                  for (j = 0; j < length; j++)
                    points[j][1] *= -1;
                }

              break;

            case MOSAIC_TRANSFORM_ROTATE_VERTEX:

              _pt_make_side_points(mosaic->side_shape[0],points,
                &length);

              if (i == 1 || i == 3)
                {
                  for (j = 0; j < length / 2; j++)
                    {
                      helper = -1 * points[j + 1][1];
                      points[j + 1][1] = -1 * points[length - j - 1][1];
                      points[length - j - 1][1] = helper;

                      helper = points[j + 1][0];
                      points[j + 1][0] = 1.0 -
                        points[length - j - 1][0];
                      points[length - j - 1][0] = 1.0 - helper;
                    }
                }

              break;
          }

        polygon = realloc(polygon,(polygon_points + length) *
          2 * sizeof(double));

        for (j = 0; j < length; j++)  // transform points
          {
            switch (i)
              {
                case 0: // top
                  points[j][1] += 1.0;
                  break;

                case 1: // right
                  helper = points[j][0];
                  points[j][0] = 1.0 + points[j][1];
                  points[j][1] = 1.0 - helper;
                  break;

                case 2: // bottom
                  points[j][0] = 1.0 - points[j][0];
                  points[j][1] *= -1;
                  break;

                case 3: // left
                  helper = points[j][0];
                  points[j][0] = -1 * points[j][1];
                  points[j][1] = helper;
                  break;
              }
          }

        for (j = 0; j < length; j++)  // copy the side to the polygon
          {
            polygon[polygon_points + j][0] = points[j][0];
            polygon[polygon_points + j][1] = points[j][1];
          }

        polygon_points += length;
      }

    *array_length = polygon_points;

    *array = polygon;
  }

//----------------------------------------------------------------------

/***
 * Private function - prepares given buffer to be processed with
 * cellular automaton. This means that the format of the buffer will be
 * made such that only red channel matters and its value is equal to the
 * current state number.
 *
 * @param buffer buffer to be converted to the cellular automata format
 * @param number_of_states number of states of the automata
 */

void _pt_cellular_automaton_prepare(t_color_buffer *buffer,
  unsigned int number_of_states)

  {
    unsigned char r,g,b;
    double interval;
    unsigned int x,y,i;

    interval = 255.0 / number_of_states;

    pt_grayscale(buffer);

    for (y = 0; y < buffer->height; y++)
      for (x = 0; x < buffer->width; x++)
        {
          color_buffer_get_pixel(buffer,x,y,&r,&g,&b);

          // threshold:

          for (i = 1; i <= number_of_states; i++)
            if (r <= interval * i)
              {
                r = i - 1;
                break;
              }

          color_buffer_set_pixel(buffer,x,y,r,0,0);
        }
  }

//----------------------------------------------------------------------

/***
 * Private function - converts the buffer's data back from cellular
 * automaton format to grayscale image format.
 *
 * @param buffer buffer to be converted
 * @param number_of_states number of states of the automaton
 */

void _pt_cellular_automaton_convert_back(t_color_buffer *buffer,
  unsigned int number_of_states)

  {
    unsigned char r,g,b;
    double interval;
    unsigned int x,y;

    if (number_of_states == 1)
      number_of_states = 2;     // to prevent division by zero

    interval = 255.0 / (number_of_states - 1);

    for (y = 0; y < buffer->height; y++)
      for (x = 0; x < buffer->width; x++)
        {
          color_buffer_get_pixel(buffer,x,y,&r,&g,&b);
          r = round_to_char(interval * r);
          color_buffer_set_pixel(buffer,x,y,r,r,r);
        }
  }

//----------------------------------------------------------------------

  /**
   * Private function - fills an area with constant color with given
   * color.
   *
   * @param buffer buffer with which the fill will be performed
   * @param x x position of the initial point of the fill
   * @param y y position of the initial point of the fill
   * @param red amount of red to be filled
   * @param green amount of green to be filled
   * @param blue amount of blue to be filled
   */

void _pt_floodfill(t_color_buffer *buffer, int x, int y,
  unsigned char red, unsigned char green, unsigned char blue)

  {
    t_line_list point_stack;          // line list used as a point stack
    unsigned char help_red1, help_green1, help_blue1, help_red2,
      help_green2, help_blue2;

    line_list_init(&point_stack);
    line_list_add(&point_stack,x,y,0,0);

    color_buffer_get_pixel(buffer,x,y,&help_red1,&help_green1,
      &help_blue1);

    while (line_list_get_length(&point_stack) > 0)
      {
        line_list_get(&point_stack,line_list_get_length(&point_stack)
          - 1,&x,&y,NULL,NULL);
        line_list_pop(&point_stack);
                                                      // color the pixel
        color_buffer_set_pixel(buffer,x,y,red,green,blue);

                                                      // check up
        color_buffer_get_pixel(buffer,x,y - 1,&help_red2,
          &help_green2,&help_blue2);

        if (help_red2 == help_red1 && help_green2 == help_green1
          && help_blue2 == help_blue1)
            line_list_add(&point_stack,x,y - 1,0,0);

                                                      // check down
        color_buffer_get_pixel(buffer,x,y + 1,&help_red2,
          &help_green2,&help_blue2);

        if (help_red2 == help_red1 && help_green2 == help_green1
          && help_blue2 == help_blue1)
            line_list_add(&point_stack,x,y + 1,0,0);

                                                      // check right
        color_buffer_get_pixel(buffer,x + 1,y,&help_red2,
          &help_green2,&help_blue2);

        if (help_red2 == help_red1 && help_green2 == help_green1
          && help_blue2 == help_blue1)
            line_list_add(&point_stack,x + 1,y,0,0);

                                                      // check left
        color_buffer_get_pixel(buffer,x - 1,y,&help_red2,
          &help_green2,&help_blue2);

        if (help_red2 == help_red1 && help_green2 == help_green1
          && help_blue2 == help_blue1)
            line_list_add(&point_stack,x - 1,y,0,0);

        // I feel bad about the copy-paste :/
      }

    line_list_destroy(&point_stack);
  }

//----------------------------------------------------------------------

  /**
   * Private function - initialises the global turtle state and sets it
   * the given grammar.
   *
   * @param grammar grammar to be set for the turtle
   * @param image_width width of the image that the turtle will draw to
   *   (this is needed to calculate some parameters like step length
   *   etc.)
   * @param image_width height of the image that the turtle will draw to
   * @param position_x initial x position of the turtle
   * @param positioy_y initial y position of the turtle
   * @param angle initial angle of the turtle in degrees
   * @param noise_intensity affects drawing of particles, says how much
   *        their velocity is affected by the noise, this should be in
   *        range <0,1> (the less, the straighter particle lines)
   */

void _pt_turtle_init(t_grammar *grammar, unsigned int image_width,
  unsigned int image_height, unsigned int position_x, unsigned int
  position_y, int angle, double noise_intensity)

  {
    turtle.image_width = image_width;
    turtle.grammar = grammar;
    turtle.stack_size = 0;
    turtle.stack = NULL;
    turtle.instruction = 0;

    // set the initial state:

    turtle.state.angle = angle;
    turtle.state.step_length = image_width * 0.2;
    turtle.state.color[0] = 0;
    turtle.state.color[1] = 0;
    turtle.state.color[2] = 0;
    turtle.state.line_type = LINE_NORMAL;
    turtle.state.dot_gap = 0;
    turtle.state.position_x = position_x;
    turtle.state.position_y = position_y;
    turtle.state.line_width = image_width / 512;

    if (turtle.state.line_width <= 0)
      turtle.state.line_width = 1;

    // init the global noise buffer (for particle line drawing):

    color_buffer_init(&turtle_noise_buffer,image_width,image_height);

    // fill the buffer with appropriate noise:

    pt_perlin_noise(4,128,noise_intensity * 12 + 3,-1, // empiric values
      INTERPOLATION_SINE,&turtle_noise_buffer,1);
    pt_add_brightness_contrast(&turtle_noise_buffer,0.0,
      -1.0 + noise_intensity);
  }

//----------------------------------------------------------------------

  /**
   * Private function - destroys the global turtle and frees it's
   * memory. The grammar pointed to by the turtle is not freed.
   */

void _pt_turtle_destroy()

   {
     if (turtle.stack != NULL)
       free(turtle.stack);

     color_buffer_destroy(&turtle_noise_buffer);
   }

//----------------------------------------------------------------------

  /**
   * Private function - gets the next draw instruction (other
   * instructions like stack and state manipulation are handled within
   * this function). It returns the coordinations of the line that
   * should be drawn.
   *
   * @param x1 in this variable the x position of the first line point
   *   will be returned
   * @param y1 in this variable the y position of the first line point
   *   will be returned
   * @param x2 in this variable the x position of the second line point
   *   will be returned
   * @param y2 in this variable the y position of the second line point
   *   will be returned
   *
   * @return 0 if there is no more instructions to be read, 1 otherwise
   */

int _pt_turtle_next_instruction(int *x1, int *y1, int *x2, int *y2)

   {
     int dx,dy,helper;
     t_grammar_char *symbol;

     while (1)
       {
         if (turtle.instruction >= (unsigned int)
           turtle.grammar->string_length)
           return 0;   // no more instructions

         symbol = &turtle.grammar->string[turtle.instruction];

         switch(symbol->character)
           {
             case '[': // stack push
               if (turtle.stack_size % TURTLE_STACK_REALLOC_BY == 0)
                 turtle.stack = (t_turtle_state *) realloc(turtle.stack,
                   ((turtle.stack_size / TURTLE_STACK_REALLOC_BY + 1) *
                   TURTLE_STACK_REALLOC_BY) * sizeof(t_turtle_state));

               turtle.stack[turtle.stack_size] = turtle.state;
               turtle.stack_size++;
               break;

             case ']': // stack pop
               if (turtle.stack_size >= 1)
                 {
                   turtle.state = turtle.stack[turtle.stack_size - 1];

                   turtle.stack_size--;

                   if (turtle.stack_size % TURTLE_STACK_REALLOC_BY == 0)
                     turtle.stack = (t_turtle_state *)
                       realloc(turtle.stack,((turtle.stack_size /
                       TURTLE_STACK_REALLOC_BY) *
                       TURTLE_STACK_REALLOC_BY) *
                       sizeof(t_turtle_state));
                 }

               break;

             case 'A': // set angle
               if (symbol->number_of_parameters >= 1)
                 {
                   turtle.state.angle = symbol->parameter_values[0];

                   while (turtle.state.angle > 360)
                     turtle.state.angle -= 360;

                   while (turtle.state.angle < 0)
                     turtle.state.angle += 360;
                 }
               break;

             case 'R': // rotate left
               if (symbol->number_of_parameters >= 1)
                 {
                   turtle.state.angle -= symbol->parameter_values[0];

                   while (turtle.state.angle > 360)
                     turtle.state.angle -= 360;

                   while (turtle.state.angle < 0)
                     turtle.state.angle += 360;
                 }
               break;

             case 'L': // rotate right
               if (symbol->number_of_parameters >= 1)
                 {
                   turtle.state.angle += symbol->parameter_values[0];

                   while (turtle.state.angle > 360)
                     turtle.state.angle -= 360;

                   while (turtle.state.angle < 0)
                     turtle.state.angle += 360;
                 }
               break;

             case 'G':
             case 'D': // draw
               *x1 = turtle.state.position_x;
               *y1 = turtle.state.position_y;

               dx = (int) (turtle.state.step_length *
                 cos(degrees_to_radians(turtle.state.angle)));
               dy = (int) (turtle.state.step_length *
                 sin(degrees_to_radians(turtle.state.angle)));

               *x2 = *x1 + dx;
               *y2 = *y1 - dy;

               turtle.state.position_x = *x2;
               turtle.state.position_y = *y2;

               if (symbol->character == 'D')
                 {
                   turtle.instruction++;  // next instruction
                   return 1;
                 }

               break;

             case 'P': // multiply step length by percentage
               if (symbol->number_of_parameters >= 1)
                 {
				   helper = symbol->parameter_values[0];
				   
				   if (helper < 0)
				     helper = 0;
					 
                   turtle.state.step_length =
                     turtle.state.step_length * helper * 0.01;
                 }
                   
               break;

             case 'B': // set step length to length unit
               if (symbol->number_of_parameters >= 1)
                 {
                   turtle.state.step_length = turtle.image_width *
                   symbol->parameter_values[0] * 0.001;
                   
                   if (turtle.state.step_length < 0)
                     turtle.state.step_length = 0;
                 }

               break;

             case 'W': // set line width to length unit
               if (symbol->number_of_parameters >= 1)
                 { 
                   helper = symbol->parameter_values[0];
                   
                   if (helper < 0)
                     helper = helper * -1;

                   turtle.state.line_width = turtle.image_width *
                     helper * 0.001;

                   if (turtle.state.line_width <= 0)
                     turtle.state.line_width = 1;
                 }

               break;

             case 'S': // set line style
             case 'T':
               if (symbol->number_of_parameters >= 2)
                 {
                   switch(symbol->parameter_values[0])
                     {
                       case 0:
                         turtle.state.line_type = LINE_NORMAL;
                         break;

                       case 1:
                         turtle.state.line_type = LINE_ZIG_ZAG;
                         break;

                       case 2:
                         turtle.state.line_type = LINE_WAVE;
                         break;

                       case 3:
                         turtle.state.line_type = LINE_ARROW;
                         break;

                       case 4:
                         turtle.state.line_type = LINE_DOUBLE;
                         break;

                       case 5:
                         turtle.state.line_type = LINE_PARTICLES;
                         break;
                     }
                 }

               turtle.state.dot_gap = symbol->parameter_values[1] *
                 turtle.image_width;

               if (symbol->character == 'S')
                 turtle.state.dot_gap *= 0.001;

               break;

             case 'I': // increase step length by pixels
               if (symbol->number_of_parameters >= 1)
                 {
                   turtle.state.step_length +=
                     symbol->parameter_values[0];
				 
				   if (turtle.state.step_length < 0)
				     turtle.state.step_length = 0;
				 }

               break;

             case 'M': // set step length in pixels
               if (symbol->number_of_parameters >= 1)
                 {
                   turtle.state.step_length =
                     symbol->parameter_values[0];
				 
				   if (turtle.state.step_length < 0)
				     turtle.state.step_length = 0;
				 }

               break;

             case 'F': // set line width in pixels
               if (symbol->number_of_parameters >= 1)
                 {
                   turtle.state.line_width =
                     symbol->parameter_values[0];
                     
                   if (turtle.state.line_width <= 0)
                     turtle.state.line_width = 1;
				 }

               break;

             case 'C': // set color
               if (symbol->number_of_parameters >= 3)
                 {
                   turtle.state.color[0] =
                     round_to_char(symbol->parameter_values[0]);
                   turtle.state.color[1] =
                     round_to_char(symbol->parameter_values[1]);
                   turtle.state.color[2] =
                     round_to_char(symbol->parameter_values[2]);
                 }

             default:
               break;
           }

         turtle.instruction++;  // go to the next instruction
       }
   }

//----------------------------------------------------------------------

  /**
   * Private function - draws a line between two given points. The line
   * can be parametrised in many ways.
   *
   * @param buffer buffer in which the line will be drawn
   * @param x1 x coordination of the first line point
   * @param y1 y coordination of the first line point
   * @param x2 x coordination of the second line point
   * @param y2 y coordination of the second line point
   * @param red amount of red of the line color
   * @param green amount of green of the line color
   * @param blue amount of blue of the line color
   * @param width line width in pixels
   * @param dot_gap gap between line segments in pixels, 0 means a
   *        continuous line
   * @param noise_intensity information about noise intensity in range
   *        <0,1>, this is only needed for drawing particle lines
   * @param particle_density for particle lines affects how many
   *        particles there will be, this should be in range <0,1>
   * @param noise_buffer buffer in which noise for drawing particle
   *        lines is stored, with other line types this can be NULL
   * @param type way in which the line will be drawn, if the type is
   *        particle, then
   */

void _pt_draw_fancy_line(t_color_buffer *buffer, int x1, int y1, int x2,
  int y2, unsigned char red, unsigned char green,
  unsigned char blue, unsigned char width, int dot_gap,
  double noise_intensity, double particle_density,
  t_color_buffer *noise_buffer, t_line_type type)

  {
    int i, j, k;
    int x,y,help_x,help_y;
    int dx,dy;
    int steps;
    int difference;   // for shifting points to sides from the line
    int half_width;
    int gap_length;
    t_color_buffer help_buffer;
    t_color_transition help_transition;
    double angle;
    double length;

    dx = x2 - x1;
    dy = y2 - y1;
    dx = dx < 0 ? -1 * dx : dx;    // make absolute values
    dy = dy < 0 ? -1 * dy : dy;

    angle = two_points_to_angle(x1,y1,x2,y2);

    half_width = width / 2;      // half width of the line
    gap_length = 0;

    steps = dx > dy ? dx : dy;   // max of dx and dy
    steps++;                     // make the line end in it's endpoint

    if (type == LINE_ZIG_ZAG)
      {
        difference = (int) ((steps * 0.1) / 2);

        help_x = x1; // coordinations one iteration back
        help_y = y1;

        for (i = 1; i < 20; i++) // start from the second point
          {
            line_point(x1,y1,angle,(int) (steps * (0.05 * (i + 1))),&x,&y);

            // randomly shift the points (not the first and last one):

            if (i != 0 && i != 19)
              {
                x += noise_int_range(i * 2,-1 * difference,difference);
                y += noise_int_range((i * 2) + 1,-1 * difference,difference);
              }

            _pt_draw_fancy_line(buffer,help_x,help_y,x,y,red,green,blue,
              width,dot_gap,0.0,0.0,NULL,LINE_NORMAL);

            help_x = x;
            help_y = y;
          }
      }
    else if (type == LINE_WAVE)
      {
        help_x = x1;
        help_y = y1;

        for (i = 1; i < 20; i++)
          {
            difference = sin(0.1 * (i + 1) * PI_TIMES_2) * (steps * 0.1);

            line_point(x1,y1,angle,(int) (steps * (0.05 * (i + 1))),&x,&y);

            if (difference >= 0)
              line_point(x,y,angle - PI_DIVIDED_2,difference,&dx,&dy); // perpendicular line
            else
              line_point(x,y,angle + PI_DIVIDED_2,-1 * difference,&dx,&dy);

            _pt_draw_fancy_line(buffer,help_x,help_y,dx,dy,red,green,blue,
              width,dot_gap,0.0,0.0,NULL,LINE_NORMAL);

            help_x = dx;
            help_y = dy;
          }
      }
    else if (type == LINE_DOUBLE)      // double line
      {
        circle_point_by_angle(0,0,2 * width + 1,angle + PI_DIVIDED_2,&dx,&dy);

        _pt_draw_fancy_line(buffer,x1 + dx,y1 + dy,x2 + dx,y2 + dy,red,
          green,blue,width,dot_gap,0.0,0.0,NULL,LINE_NORMAL);

        _pt_draw_fancy_line(buffer,x1 - dx,y1 - dy,x2 - dx,y2 - dy,red,
          green,blue,width,dot_gap,0.0,0.0,NULL,LINE_NORMAL);
      }
    else if (type == LINE_PARTICLES)   // particles
      {
        // relative length:
        length = sqrt(dx * dx + dy * dy) / buffer->width;
        color_buffer_init(&help_buffer,buffer->width,buffer->height);
        color_transition_init(&help_transition);
        color_transition_add_point(255,255 - red,255 - green,255 - blue,
          &help_transition); // inversed color
        color_transition_add_point(0,0,0,0,&help_transition);

        pt_particle_movement(noise_buffer,           // empiric values:
          length * 128 + 1 +
          length * particle_density * 128,           // particles
          x1 / ((double) buffer->width - 1),
          y1 / ((double) buffer->height - 1),
          radians_to_degrees(angle),
          length * 20 + 5 + noise_intensity * 75,    // spread
          length * 13 + 0.1 +                        // initial velocity
          noise_intensity * length * 20,
          &help_buffer);

        pt_map_to_transition(&help_buffer,&help_transition);
        pt_substract_buffers(&help_buffer,buffer);

        color_transition_destroy(&help_transition);
        color_buffer_destroy(&help_buffer);
      }
    else                               // normal straight line
      for (i = 0; i < steps; i++)
        {
          gap_length++;

          if (gap_length > dot_gap)
            gap_length = 0;

          if (gap_length != 0)
            continue;

          line_point(x1,y1,angle,i,&x,&y);

          for (j = 0; j < width; j++)
            for (k = 0; k < width; k++)
              color_buffer_set_pixel(buffer,x - half_width + j,
              y - half_width + k,red,green,blue);

          if (i == steps - 1 && type == LINE_ARROW)// draw the arrow end
            {
              length = sqrt(dx * dx + dy * dy);

              circle_point_by_angle(x,y,length * 0.3,angle + 2.8,
                &help_x,&help_y);
              _pt_draw_fancy_line(buffer,x,y,help_x,help_y,red,green,
                blue,width,dot_gap,0.0,0.0,NULL,LINE_NORMAL);

              circle_point_by_angle(x,y,length * 0.3,angle - 2.8,
                &help_x,&help_y);
              _pt_draw_fancy_line(buffer,x,y,help_x,help_y,red,green,
                blue,width,dot_gap,0.0,0.0,NULL,LINE_NORMAL);
            }
        }
  }

//----------------------------------------------------------------------

void pt_color_fill(t_color_buffer *buffer, int red, int green, int blue)

  {
    unsigned int i,j;

    for (i = 0; i < buffer->width; i++)
      for (j = 0; j < buffer->height; j++)
        color_buffer_set_pixel(buffer,i,j,red,green,blue);
  }

//----------------------------------------------------------------------

void pt_add_rgb(t_color_buffer *buffer, int red, int green, int blue)

  {
    unsigned int i, j;
    int red_value, green_value, blue_value;
    unsigned char help_red, help_green, help_blue;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&help_red,&help_green,
            &help_blue);

          red_value = help_red + red;
          green_value = help_green + green;
          blue_value = help_blue + blue;

          red_value = red_value > 255 ? 255 : red_value;
          red_value = red_value < 0 ? 0 : red_value;
          green_value = green_value > 255 ? 255 : green_value;
          green_value = green_value < 0 ? 0 : green_value;
          blue_value = blue_value > 255 ? 255 : blue_value;
          blue_value = blue_value < 0 ? 0 : blue_value;

          color_buffer_set_pixel(buffer,i,j,(unsigned char) red_value,
            (unsigned char) green_value, (unsigned char) blue_value);
        }
  }

//----------------------------------------------------------------------

void pt_add_hsl(t_color_buffer *buffer, double hue, double saturation,
  double lightness)

  {
    unsigned int i, j;
    unsigned char red, green, blue;
    double h, s, l;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
          rgb_to_hsl(red,green,blue,&h,&s,&l);

          h = h + hue;
          s = s + saturation;
          l = l + lightness;

          if (h < 0.0)
            h = 0.0;
          else if (h > 1.0)
            h = 1.0;

          if (s < 0.0)
            s = 0.0;
          else if (s > 1.0)
            s = 1.0;

          if (l < 0.0)
            l = 0.0;
          else if (l > 1.0)
            l = 1.0;

          hsl_to_rgb(h,s,l,&red,&green,&blue);

          color_buffer_set_pixel(buffer,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_add_brightness_contrast(t_color_buffer *buffer,
  double brightness, double contrast)

  {
    /* This function uses GIMP style brightness/contrast adjustment */

    unsigned int i, j;
    unsigned char red, green, blue;
    double double_red, double_green, double_blue;

    if (brightness < -1.0 || brightness > 1.0 || contrast < -1.0 ||
      contrast > 1.0)
      return;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);

          double_red = red / 255.0;
          double_green = green / 255.0;
          double_blue = blue / 255.0;

          if (brightness < 0.0)
            {
              double_red = double_red * (1.0 + brightness);
              double_green = double_green * (1.0 + brightness);
              double_blue = double_blue * (1.0 + brightness);
            }
          else
            {
              double_red =
                double_red + ((1.0 - double_red) * brightness);
              double_green =
                double_green + ((1.0 - double_green) * brightness);
              double_blue =
                double_blue + ((1.0 - double_blue) * brightness);
            }

          double_red = (double_red - 0.5) *
            (tan((contrast + 1.0) * PI_DIVIDED_4)) + 0.5;
          double_green = (double_green - 0.5) *
            (tan((contrast + 1.0) * PI_DIVIDED_4)) + 0.5;
          double_blue = (double_blue - 0.5) *
            (tan((contrast + 1.0) * PI_DIVIDED_4)) + 0.5;

          if (double_red > 1.0)
            double_red = 1.0;
          else if (double_red < 0.0)
            double_red = 0.0;

          if (double_green > 1.0)
            double_green = 1.0;
          else if (double_green < 0.0)
            double_green = 0.0;

          if (double_blue > 1.0)
            double_blue = 1.0;
          else if (double_blue < 0.0)
            double_blue = 0.0;

          color_buffer_set_pixel(buffer,i,j,
            (unsigned char) (double_red * 255),
            (unsigned char) (double_green * 255),
            (unsigned char) (double_blue * 255));
        }
  }

//----------------------------------------------------------------------

void pt_add_value(t_color_buffer *buffer, int value)

  {
    pt_add_rgb(buffer,value,value,value);
  }

//----------------------------------------------------------------------

void pt_multiply_value(t_color_buffer *buffer, double value)

  {
    unsigned char red, green, blue;
    int help_red, help_green, help_blue;
    unsigned int i, j;

    if (value < 0)
      return;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);

          help_red = red * value;
          help_green = green * value;
          help_blue = blue * value;

          help_red = help_red > 255 ? 255 : help_red;
          help_green = help_green > 255 ? 255 : help_green;
          help_blue = help_blue > 255 ? 255 : help_blue;

          red = help_red;
          green = help_green;
          blue = help_blue;

          color_buffer_set_pixel(buffer,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_shift(t_color_buffer *buffer, int shift_x, int shift_y)

  {
    int i, j;
    unsigned char help_red, help_green, help_blue;
    t_color_buffer help_buffer;

    color_buffer_init(&help_buffer,buffer->width,buffer->height);

    for (j = 0; j < (int) buffer->height; j++)
      for (i = 0; i < (int) buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&help_red,&help_green,
            &help_blue);

          color_buffer_set_pixel(&help_buffer,i + shift_x, j + shift_y,
            help_red,help_green,help_blue);
        }

    color_buffer_destroy(buffer);
    color_buffer_copy(&help_buffer,buffer);
    color_buffer_destroy(&help_buffer);
  }

//----------------------------------------------------------------------

void pt_rotate(t_color_buffer *buffer, double angle)

  {
    int left_upper_x, left_upper_y, help_x, help_y, help_x2, help_y2;
    unsigned int i, j;
    unsigned char red, green, blue;
    double radius, help_angle;
    t_color_buffer help_buffer;

    radius = sqrt( buffer->width * buffer->width +
              buffer->height * buffer->height ) / 2;

    circle_point_by_angle(buffer->width / 2,buffer->height / 2,
      radius,angle + (((double) 3)/4) * PI,&left_upper_x,&left_upper_y);

    help_angle = angle + PI_TIMES_3_2;

    color_buffer_init(&help_buffer,buffer->width,buffer->height);

    for (j = 0; j < buffer->height; j++)
      {
        line_point(left_upper_x,left_upper_y,help_angle,j,&help_x,
          &help_y);

        for (i = 0; i < buffer->width; i++)
          {
            line_point(help_x,help_y,angle,i,&help_x2,
              &help_y2);

            color_buffer_get_pixel(buffer,help_x2,help_y2,&red,&green,
              &blue);

            color_buffer_set_pixel(&help_buffer,i,j,red,green,blue);
          }
      }

    color_buffer_destroy(buffer);

    color_buffer_copy(&help_buffer,buffer);

    color_buffer_destroy(&help_buffer);
  }

//----------------------------------------------------------------------

void pt_flip(t_color_buffer *buffer, t_direction direction)

  {
    unsigned int i, j;
    unsigned char red, green, blue, red2, green2, blue2;

    if (direction != DIRECTION_HORIZONTAL &&
      direction != DIRECTION_VERTICAL)
      return;

    switch (direction)
      {
        case DIRECTION_HORIZONTAL:

          for (j = 0; j < buffer->height; j++)
            for (i = 0; i < buffer->width / 2; i++)
              {
                color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
                color_buffer_get_pixel(buffer,buffer->width - i,j,&red2,
                  &green2,&blue2);

                color_buffer_set_pixel(buffer,i,j,red2,green2,blue2);
                color_buffer_set_pixel(buffer,buffer->width - i,j,red,
                  green,blue);
              }

          break;

        case DIRECTION_VERTICAL:

          for (j = 0; j < buffer->height / 2; j++)
            for (i = 0; i < buffer->width; i++)
              {
                color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
                color_buffer_get_pixel(buffer,i,buffer->height - j,
                  &red2,&green2,&blue2);

                color_buffer_set_pixel(buffer,i,j,red2,green2,blue2);
                color_buffer_set_pixel(buffer,i,buffer->height - j,red,
                  green,blue);
              }

          break;

        case DIRECTION_DIAGONAL_LD_RU:
          break;

        case DIRECTION_DIAGONAL_LU_RD:
          break;
      }
  }

//----------------------------------------------------------------------

void pt_tile(t_color_buffer *buffer, unsigned int times,
  t_color_buffer *destination)

  {
    pt_supersampling(buffer,times,destination);
    pt_change_resolution(destination,buffer->width,buffer->height);
  }

//----------------------------------------------------------------------

void pt_change_resolution(t_color_buffer *buffer,
  unsigned int new_width, unsigned int new_height)

  {
    t_color_buffer help_buffer;
    unsigned int i, j;
    unsigned char red, green, blue;

    color_buffer_init(&help_buffer,new_width,new_height);

    for (j = 0; j < new_height; j++)
      for (i = 0; i < new_width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
          color_buffer_set_pixel(&help_buffer,i,j,red,green,blue);
        }

    color_buffer_destroy(buffer);
    color_buffer_init(buffer,new_width,new_height);
    color_buffer_copy(&help_buffer,buffer);
    color_buffer_destroy(&help_buffer);
  }

//----------------------------------------------------------------------

void pt_resize(t_color_buffer *buffer, t_color_buffer *destination,
  t_interpolation_method interpolation)

  {
    unsigned int x,y,x2,y2;
    double position_x,position_y,decimal_part_x,decimal_part_y,
      integer_part;
    unsigned char r,g,b;
    unsigned char tl[3];
    unsigned char tr[3];
    unsigned char bl[3];
    unsigned char br[3];

    if (buffer == NULL || destination == NULL)
      return;

    for (y = 0; y < destination->height; y++)
      for (x = 0; x < destination->width; x++)
        {
          position_x = x / ((double) (destination->width)) *
            buffer->width;
          position_y = y / ((double) (destination->height)) *
            buffer->height;

          x2 = (unsigned int) position_x;
          y2 = (unsigned int) position_y;

          decimal_part_x = modf(position_x,&integer_part);
          decimal_part_y = modf(position_y,&integer_part);

          color_buffer_get_pixel(buffer,x2,y2,&r,&g,&b);
          tl[0] = r;
          tl[1] = g;
          tl[2] = b;

          color_buffer_get_pixel(buffer,x2 + 1,y2,&r,&g,&b);
          tr[0] = r;
          tr[1] = g;
          tr[2] = b;

          color_buffer_get_pixel(buffer,x2,y2 + 1,&r,&g,&b);
          bl[0] = r;
          bl[1] = g;
          bl[2] = b;

          color_buffer_get_pixel(buffer,x2 + 1,y2 + 1,&r,&g,&b);
          br[0] = r;
          br[1] = g;
          br[2] = b;

          interpolate_color_2d(decimal_part_x,decimal_part_y,tl,tr,bl,br,
            &r,&g,&b,interpolation);

          color_buffer_set_pixel(destination,x,y,r,g,b);
        }
  }

//----------------------------------------------------------------------

void pt_supersampling(t_color_buffer *buffer, unsigned int level,
  t_color_buffer *destination)

  {
    unsigned int i, j, k, l, sum_red, sum_green, sum_blue;
    unsigned char red, green, blue;

    color_buffer_init(destination,buffer->width / level,
      buffer->height / level);

    for (j = 0; j < destination->height; j++)
      for (i = 0; i < destination->width; i++)
        {
          sum_red = 0;
          sum_green = 0;
          sum_blue = 0;

          for (k = 0; k < level; k++)          // get 4 x 4 area pixels sums
            for (l = 0; l < level; l++)
              {
                color_buffer_get_pixel(buffer,(level * i) + k,
                  (level * j) + l,&red,&green,&blue);

                sum_red += red;
                sum_green += green;
                sum_blue += blue;
              }

          red = sum_red / (level * level);     // average
          green = sum_green / (level * level);
          blue = sum_blue / (level * level);

          color_buffer_set_pixel(destination,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_add_buffers(t_color_buffer *buffer1, t_color_buffer *buffer2)

  {
    unsigned int i,j;
    unsigned char red, green, blue;

    for (j = 0; j < buffer1->height; j++)
      for (i = 0; i < buffer1->width; i++)
        {
          color_buffer_get_pixel(buffer1,i,j,&red,&green,&blue);
          color_buffer_add_pixel(buffer2,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_substract_buffers(t_color_buffer *buffer1,
  t_color_buffer *buffer2)

  {
    unsigned int i,j;
    unsigned char red, green, blue;

    for (j = 0; j < buffer1->height; j++)
      for (i = 0; i < buffer1->width; i++)
        {
          color_buffer_get_pixel(buffer1,i,j,&red,&green,&blue);
          color_buffer_substract_pixel(buffer2,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_mix_buffers(t_color_buffer *buffer1, t_color_buffer *buffer2,
  t_color_buffer *destination, int percentage, t_mix_type type,
  t_color_buffer *alpha)

  {
    unsigned int i,j;
    unsigned char red1, green1, blue1, red2, green2, blue2, helper;
    int red3, green3, blue3;
    double percentage_double, percentage_double2, divide_by;

    if (buffer1->width != buffer2->width ||
        buffer1->height != buffer2->height)
      return;

    if (percentage < 0)
      percentage = 0;

    if (percentage > 100)
      percentage = 100;

    if (percentage <= 50)
      percentage_double = 1.0;
    else
      percentage_double = (1.0 - (percentage / 100.0)) * 2.0;

    if (percentage >= 50)
      percentage_double2 = 1.0;
    else
      percentage_double2 = (percentage / 100.0) * 2.0;

    color_buffer_init(destination,buffer1->width,buffer1->height);

    for (j = 0; j < buffer1->height; j++)
      for (i = 0; i < buffer1->width; i++)
        {
          if (alpha != NULL)
            {
              color_buffer_get_pixel(alpha,i,j,&red1,&green1,&blue1);
              percentage = (red1 / 255.0) * 100;

              if (percentage <= 50)         // recompute the coeficients
                percentage_double = 1.0;
              else
                percentage_double = (1.0 - (percentage / 100.0)) * 2.0;

              if (percentage >= 50)
                percentage_double2 = 1.0;
              else
                percentage_double2 = (percentage / 100.0) * 2.0;
            }

          color_buffer_get_pixel(buffer1,i,j,&red1,&green1,&blue1);

          red1 *= percentage_double;
          green1 *= percentage_double;
          blue1 *= percentage_double;

          color_buffer_get_pixel(buffer2,i,j,&red2,&green2,&blue2);

          red2 *= percentage_double2;
          green2 *= percentage_double2;
          blue2 *= percentage_double2;

          switch (type)
            {
              case MIX_ADD:
                red3 = red1 + red2;
                green3 = green1 + green2;
                blue3 = blue1 + blue2;
                break;

              case MIX_SUBSTRACT:
                red3 = red1 - red2;
                green3 = green1 - green2;
                blue3 = blue1 - blue2;
                break;

              case MIX_AVERAGE:
                divide_by = percentage_double + percentage_double2;

                red3 = (red1 + red2) / divide_by;
                green3 = (green1 + green2) / divide_by;
                blue3 = (blue1 + blue2) / divide_by;
                break;

              case MIX_MULTIPLY:
                helper = 255 - percentage_double * 255;
                red1 += helper;
                green1 += helper;
                blue1 += helper;
              
                helper = 255 - percentage_double2 * 255;
                red2 += helper;
                green2 += helper;
                blue2 += helper;
              
                red3 = ((red1 / 255.0) * (red2 / 255.0)) * 255;
                green3 = ((green1 / 255.0) * (green2 / 255.0)) * 255;
                blue3 = ((blue1 / 255.0) * (blue2 / 255.0)) * 255 ;
                break;
            }

          color_buffer_set_pixel(destination,i,j,
            round_to_char(red3),
            round_to_char(green3),
            round_to_char(blue3));
        }

    return;
  }

//----------------------------------------------------------------------

void pt_mix_channels(t_color_buffer *buffer_red,
  t_color_buffer *buffer_green, t_color_buffer *buffer_blue,
  t_color_buffer *destination)

  {
    unsigned int i, j;
    unsigned char red, green, blue;

    color_buffer_init(destination,buffer_red->width,buffer_red->height);

    for (j = 0; j < buffer_red->height; j++)
      for (i = 0; i < buffer_red->width; i++)
        {
          color_buffer_get_pixel(buffer_red,i,j,&red,NULL,NULL);
          color_buffer_get_pixel(buffer_green,i,j,NULL,&green,NULL);
          color_buffer_get_pixel(buffer_blue,i,j,NULL,NULL,&blue);

          color_buffer_set_pixel(destination,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_convolution(t_color_buffer *buffer, t_matrix *matrix)

  {
    unsigned int i, j, k, l, half_width, half_height;
    double sum_red, sum_green, sum_blue;
    unsigned char red, green, blue;
    t_color_buffer help_buffer;

    color_buffer_copy(buffer,&help_buffer);

    half_width = matrix->width / 2;
    half_height = matrix->height / 2;

    for (i = 0; i < buffer->width; i++)
      for (j = 0; j < buffer->height; j++)
        {
          sum_red = 0;
          sum_green = 0;
          sum_blue = 0;

          for (k = 0; k < matrix->width; k++)
            for (l = 0; l < matrix->height; l++)
              {
                color_buffer_get_pixel(&help_buffer,
                  i - half_width + k,j - half_height + l,
                  &red,&green,&blue);

                sum_red +=
                  matrix_get_value(matrix,k,l) * red;

                sum_green +=
                  matrix_get_value(matrix,k,l) * green;

                sum_blue +=
                  matrix_get_value(matrix,k,l) * blue;
              }

          if (sum_red > 255)
            sum_red = 255;
          if (sum_green > 255)
            sum_green = 255;
          if (sum_blue > 255)
            sum_blue = 255;
          if (sum_red < 0)
            sum_red = 0;
          if (sum_green < 0)
            sum_green = 0;
          if (sum_blue < 0)
            sum_blue = 0;

          color_buffer_set_pixel(buffer,i,j,(unsigned char) sum_red,
            (unsigned char) sum_green,(unsigned char) sum_blue);
        }

    color_buffer_destroy(&help_buffer);
  }

//----------------------------------------------------------------------

void pt_convolution_3x3(t_color_buffer *buffer, double a1, double a2,
  double a3, double b1, double b2, double b3, double c1, double c2,
  double c3)

  {
    t_matrix matrix;

    matrix_init(&matrix,3,3);

    matrix_set_value(&matrix,0,0,a1);
    matrix_set_value(&matrix,0,1,a2);
    matrix_set_value(&matrix,0,2,a3);
    matrix_set_value(&matrix,1,0,b1);
    matrix_set_value(&matrix,1,1,b2);
    matrix_set_value(&matrix,1,2,b3);
    matrix_set_value(&matrix,2,0,c1);
    matrix_set_value(&matrix,2,1,c2);
    matrix_set_value(&matrix,2,2,c3);

    pt_convolution(buffer,&matrix);

    matrix_destroy(&matrix);
  }

//----------------------------------------------------------------------

void pt_voronoi_diagram(t_voronoi_type type, t_metric metric,
  t_point_place_type point_place,  unsigned int parameter1,
  unsigned int parameter2, unsigned int parameter3[][2],
  t_color_buffer *destination)

  {
    unsigned int i, j, k, center_x, center_y, quadrant, side_length,
      duplicate_exists,           // says if there are duplicate points
      use_tree, mean_dimension, number_of_points;
    double shortest_distance, shortest_distance2, distance_ratio,
      help_distance, angle;
    unsigned char color;
    int (*point_array)[2];
    int help_x, help_y;
    int help_color;
    t_kd_tree search_tree;        /* for faster nearest neighbour search
                                     if needed */

                       // determine number of points we'll be generating

    if (point_place == PLACE_RANDOM || point_place == PLACE_CIRCLE)
      number_of_points = parameter2;
    else if (point_place == PLACE_CUSTOM)
      number_of_points = parameter1;
    else if (point_place == PLACE_CROSS_HORIZONTAL || point_place ==
      PLACE_CROSS_DIAGONAL)
      number_of_points = (parameter2 - 1) * 4 + 1;
    else if (point_place == PLACE_SQUARE)
      number_of_points = (parameter2 - 1) * 4;

    point_array = malloc(number_of_points * 2 * sizeof(int));

    if (point_array == NULL)
      return;

    center_x = destination->width / 2;   // center pixel coordinaitons
    center_y = destination->height / 2;
                                         // also serves as circle radius
    side_length = parameter1 > 100 ? 100 : parameter1;
    side_length = (int) (parameter1 * 0.01 * destination->width);

    switch(point_place)           // generate points
      {
        case PLACE_RANDOM:

          for (i = 0; i < parameter2; i++)
            {
              do
                {
                  point_array[i][0] = abs((int) (noise(i + parameter1
                    * 2) * destination->width));

                  point_array[i][1] = abs((int) (noise(i * 10 +
                    parameter1) * destination->height));

                  duplicate_exists = 0;
                              // checks if there are no duplicate points
                  for (j = 0; j < i; j++)
                    if (point_array[j][0] == point_array[i][0] &&
                      point_array[j][1] == point_array[i][1])
                      {
                        duplicate_exists = 1;
                        parameter1++; // make sure to generate different
                        break;        // points ones next time
                      }

                } while (duplicate_exists);
            }
          break;

        case PLACE_SQUARE: 
                                      // distance between two points
          help_distance = ((double) side_length) / (parameter2 - 1);
                                      // set starting points
          point_array[0][0] = center_x - side_length / 2;
          point_array[0][1] = center_y - side_length / 2;
          point_array[1][0] = center_x + side_length / 2;
          point_array[1][1] = center_y - side_length / 2;
          point_array[2][0] = center_x + side_length / 2;
          point_array[2][1] = center_y + side_length / 2;
          point_array[3][0] = center_x - side_length / 2;
          point_array[3][1] = center_y + side_length / 2;

          for (i = 0; i < parameter2 - 2; i++)
            {                // make all other points for all four sides
              point_array[(i + 1) * 4][0] = point_array[0][0] +
                (i + 1) * help_distance;
              point_array[(i + 1) * 4][1] = point_array[0][1];
              point_array[(i + 1) * 4 + 1][0] = point_array[1][0];
              point_array[(i + 1) * 4 + 1][1] = point_array[1][1] +
                (i + 1) * help_distance;
              point_array[(i + 1) * 4 + 2][0] = point_array[2][0] -
                (i + 1) * help_distance;
              point_array[(i + 1) * 4 + 2][1] = point_array[2][1];
              point_array[(i + 1) * 4 + 3][0] = point_array[3][0];
              point_array[(i + 1) * 4 + 3][1] = point_array[3][1] -
                (i + 1) * help_distance; 
            }

          break;

        case PLACE_CROSS_HORIZONTAL:
        case PLACE_CROSS_DIAGONAL:
                        // horizontal / vertical distance between points

          if (point_place == PLACE_CROSS_DIAGONAL)
            help_distance = sqrt((side_length / (parameter2 - 1)) *
              (side_length / (parameter2 - 1)) / 2);
          else
            help_distance = side_length / (parameter2 - 1);

          point_array[0][0] = center_x;          // center point
          point_array[0][1] = center_y;

          for (i = 0; i < parameter2 - 1; i++)   // sides
            {
              j = help_distance * (i + 1);       // precompute the step

              if (point_place == PLACE_CROSS_DIAGONAL)  // diagonal
                {
                  point_array[i * 4 + 1][0] = center_x - j;
                  point_array[i * 4 + 1][1] = center_y - j;
                  point_array[i * 4 + 2][0] = center_x + j;
                  point_array[i * 4 + 2][1] = center_y + j;
                  point_array[i * 4 + 3][0] = center_x - j;
                  point_array[i * 4 + 3][1] = center_y + j;
                  point_array[i * 4 + 4][0] = center_x + j;
                  point_array[i * 4 + 4][1] = center_y - j;
                }
              else                                      // horizontal
                {
                  point_array[i * 4 + 1][0] = center_x - j;
                  point_array[i * 4 + 1][1] = center_y;
                  point_array[i * 4 + 2][0] = center_x + j;
                  point_array[i * 4 + 2][1] = center_y;
                  point_array[i * 4 + 3][0] = center_x;
                  point_array[i * 4 + 3][1] = center_y + j;
                  point_array[i * 4 + 4][0] = center_x;
                  point_array[i * 4 + 4][1] = center_y - j;
                }
            }

          break;

        case PLACE_CIRCLE:
                                                 // angle between points
          help_distance = 2 * PI / number_of_points;
          angle = 0.0;
          quadrant = 0;

          for (i = 0; i < number_of_points; i++)
            {
              help_y = sin(angle) * side_length;
              help_x = sqrt(side_length * side_length - help_y *
                help_y);

              switch (quadrant) // place the point in the right quadrant
                {
                  case 0:
                    point_array[i][0] = center_x + help_x;
                    point_array[i][1] = center_y - help_y;
                    break;

                  case 1:
                    point_array[i][0] = center_x - help_y;
                    point_array[i][1] = center_y - help_x;
                    break;

                  case 2:
                    point_array[i][0] = center_x - help_x;
                    point_array[i][1] = center_y + help_y;
                    break;

                  case 3:
                    point_array[i][0] = center_x + help_y;
                    point_array[i][1] = center_y + help_x;
                    break;
                }

              angle += help_distance;           // move to next point

              if (angle > PI / 2)               // quadrant crossed
                {
                  quadrant++;
                  angle -= PI / 2;
                }
            }


          break;

        case PLACE_CUSTOM:
                                       // copy the input buffer point
          for (i = 0; i < number_of_points; i++)
            {
              point_array[i][0] = parameter3[i][0];
              point_array[i][1] = parameter3[i][1];
            }
          break;
      } // switch

    pt_color_fill(destination,255,255,255);

    mean_dimension = (destination->width + destination->height) / 2;

    // if there is a lot of points to test then use k-d tree
    if ((number_of_points >= 300 || mean_dimension >= 1000000) &&
      metric == METRIC_EUCLIDEAN && type == VORONOI_DISTANCE)
      {
        use_tree = 1;
        kd_tree_init(&search_tree,point_array,number_of_points);
      }
    else
      use_tree = 0;  
                                     // set the color of each pixel
    for (i = 0; i < destination->width; i++)
      for (j = 0; j < destination->height; j++)
        {
          if (use_tree)
            {
              kd_tree_find_nearest_neighbour(&search_tree,i,j,&help_x,
                &help_y,destination->width,destination->height);
              shortest_distance = get_distance(METRIC_EUCLIDEAN,help_x,
                help_y,i,j,destination->width,destination->height);
              shortest_distance2 = 0;  /* this variable will not be used
                                          when using k-d tree */
            }
          else
            {                      // not using tree (using brute force)
              shortest_distance = 100000000;    // set some high numbers
              shortest_distance2 = 100000000;
              help_x = 0;
              help_y = 0;

              for (k = 0; k < number_of_points; k++) // find two nearest
                {                                    // points distances
                  help_distance = get_distance(metric,i,j,
                      point_array[k][0], point_array[k][1],
                      destination->width,destination->height);

                  if (help_distance < shortest_distance)
                    {
                      shortest_distance2 = shortest_distance;
                      shortest_distance = help_distance;
                      help_x = point_array[k][0];
                      help_y = point_array[k][1];
                    }
                  else if (help_distance < shortest_distance2)
                    shortest_distance2 = help_distance;
              }
            }

          switch (type)
            {
              case VORONOI_DISTANCE:
                help_distance = shortest_distance * 5;
                help_color = (help_distance / mean_dimension) * 255;

                if (help_color > 255)
                  color = 255;
                else
                  color = help_color;
                break;

              case VORONOI_2_NEAREST_RATIO:
                if (shortest_distance < shortest_distance2)
                  distance_ratio =
                    shortest_distance /shortest_distance2;
                else
                  distance_ratio =
                    shortest_distance2 / shortest_distance;

                color = (unsigned char) (distance_ratio * 255);
                break;

              case VORONOI_NEAREST_HASH:
                help_color = noise(help_x + help_y) * 255;
                help_color = help_color < 0 ? -1 * help_color :
                  help_color;
                color = round_to_char(help_color);
                break;
            }

          color_buffer_set_pixel(destination,i,j,color,color,color);
        }

    if (use_tree)
      kd_tree_destroy(&search_tree);

    free(point_array); 
  }

//----------------------------------------------------------------------

void pt_voronoi_diagram_random(t_voronoi_type type, t_metric metric,
   int random, int points, t_color_buffer *destination)

  {
    pt_voronoi_diagram(type,metric,PLACE_RANDOM,random,points,NULL,
      destination);
  }

//----------------------------------------------------------------------

void pt_voronoi_diagram_simple(int random, int points,
  t_color_buffer *destination)

  {
    pt_voronoi_diagram(VORONOI_2_NEAREST_RATIO,METRIC_EUCLIDEAN,
      PLACE_RANDOM,random,points,NULL,destination);
  }

//----------------------------------------------------------------------

void pt_simple_noise(int random, unsigned char amplitude, int grayscale,
  t_color_buffer *destination)

  {
    unsigned int i, j;
    unsigned char red, green ,blue;

    if (amplitude > 127)
      amplitude = 127;

    random = random * 64;    /* shift the number so the noise looks more
                                random for numbers that only differs by
                                low amount */

    for (j = 0; j < destination->height; j++)
      for (i = 0; i < destination->width; i++)
        {
          red = 128 + amplitude * noise(random);
          random++;

          if (grayscale)
            {
              green = red;
              blue = red;
            }
          else
            {
              green = 128 + amplitude * noise(random);
              random++;
              blue = 128 + amplitude * noise(random);
              random++;
            }

          color_buffer_set_pixel(destination,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_perlin_noise(int random, unsigned char base_amplitude,
  unsigned int base_frequency, int max_iterations,
  t_interpolation_method interpolation, t_color_buffer *destination,
  int smooth)

  {
    unsigned int x,y;
    unsigned char r,g,b,r2,g2,b2;
    int iteration;
    t_color_buffer noise_buffer,help_buffer;
    double height_ratio;                 // height to width ratio

    if (destination == NULL)
      return;

    height_ratio = destination->height / ((double) destination->width);

    pt_color_fill(destination,128,128,128);   // base level color

    color_buffer_init(&help_buffer,destination->width,
      destination->height);

    iteration = 0;

    while (1)
      {
        if ((max_iterations >= 0 && iteration >= max_iterations) ||
          base_amplitude == 0 ||
          (base_frequency > destination->width &&
          base_frequency > destination->height))
          break;

        color_buffer_init(&noise_buffer,base_frequency,
          base_frequency * height_ratio);

        pt_simple_noise(random,base_amplitude,1,&noise_buffer);
        random += 80124;     // some random value

        pt_resize(&noise_buffer,&help_buffer,interpolation);

        if (smooth && base_frequency < 10)
          pt_blur(&help_buffer,10 - base_frequency);

        // add the values:

        for (y = 0; y < destination->height; y++)
          for (x = 0; x < destination->width; x++)
            {
              color_buffer_get_pixel(destination,x,y,&r,&g,&b);
              color_buffer_get_pixel(&help_buffer,x,y,&r2,&g2,&b2);

              color_buffer_set_pixel(destination,x,y,
                round_to_char(r + r2 - 128),
                round_to_char(g + g2 - 128),
                round_to_char(b + b2 - 128));
            }

        color_buffer_destroy(&noise_buffer);

        base_frequency *= 2;
        base_amplitude /= 2;
        iteration++;
      }

    color_buffer_destroy(&help_buffer);
  }

//----------------------------------------------------------------------

void pt_fault_formation_noise(int random, t_color_buffer *destination)

  {
    int number1, number2, number3, number4, direction, limit1, limit2,
      d1, d2, i, j, k, half_resolution, border1, border2, shift_x,
      shift_y;
    unsigned char level1, level2;
    double step1, step2;
    t_color_buffer help_buffer;

    direction = 0;      // 0 => x direction, 1 => y direction

    pt_color_fill(destination,0,0,0);

    color_buffer_init(&help_buffer,destination->width,
      destination->height);

    level1 = 0;
    level2 = 3;                  // empiric value 1

    for (j = 0; j < 200; j++)    // empiric value 2
      {
        if (direction)
          {
            limit2 = destination->width;
            limit1 = destination->height;
            half_resolution = destination->width / 2;
          }
        else
          {
            limit2 = destination->height;
            limit1 = destination->width;
            half_resolution = destination->height / 2;
          }
                                 // initial points of triangles
        number1 = noise_int_range(random,0,limit1);
        random++;
        number2 = noise_int_range(random,number1,limit1);
        random++;                // top points of triangles
        number3 = noise_int_range(random,0,limit1);
        random++;
        number4 = noise_int_range(random,number3,limit1);
        random++;

        d1 = number3 - number1;  // point differences
        d2 = number4 - number2;

        step1 = ((double) d1) / half_resolution;
        step2 = ((double) d2) / half_resolution;

        for (i = 0; i <= limit2 / 2; i++)
          { 
            border1 = number1 + step1 * i;
            border2 = number2 + step2 * i;

            if (direction)
              {                    // not nice :/
                for (k = 0; k < border1; k++)
                  {
                    color_buffer_set_pixel(&help_buffer,i,k,level1,
                      level1,level1);
                    color_buffer_set_pixel(&help_buffer,limit2 - i,k,
                      level1,level1,level1);
                  }
                for (k = border1; k < border2; k++)
                  {
                    color_buffer_set_pixel(&help_buffer,i,k,level2,
                      level2,level2);
                    color_buffer_set_pixel(&help_buffer,limit2 - i,k,
                      level2,level2,level2);
                  }
                for (k = border2; k <= limit1; k++)
                  {
                    color_buffer_set_pixel(&help_buffer,i,k,level1,
                      level1,level1);
                    color_buffer_set_pixel(&help_buffer,limit2 - i,k,
                      level1,level1,level1);
                  }
              }
            else
              {
                for (k = 0; k < border1; k++)
                  {
                    color_buffer_set_pixel(&help_buffer,k,i,level1,
                      level1,level1);
                    color_buffer_set_pixel(&help_buffer,k,limit2 - i,
                      level1,level1,level1);
                  }
                for (k = border1; k < border2; k++)
                  {
                    color_buffer_set_pixel(&help_buffer,k,i,level2,
                      level2,level2);
                    color_buffer_set_pixel(&help_buffer,k,limit2 - i,
                      level2,level2,level2);
                  }
                for (k = border2; k <= limit1; k++)
                  {
                    color_buffer_set_pixel(&help_buffer,k,i,level1,
                      level1,level1);
                    color_buffer_set_pixel(&help_buffer,k,limit2 - i,
                      level1,level1,level1);
                  }
              }
          }

        shift_x = noise_int_range(random,0,destination->width);
        random++;
        shift_y = noise_int_range(random,0,destination->height);
        random++;

        pt_shift(&help_buffer,shift_x,shift_y);
        pt_add_buffers(&help_buffer,destination);

        if (level2 == 0)
          break;

        direction = direction ? 0 : 1;   // switch direction
      }

    color_buffer_destroy(&help_buffer);
  }

//----------------------------------------------------------------------

void pt_substrate(int random, int iterate, unsigned int number,
  t_fill_type fill_type, int fill_grayscale,
  t_color_buffer *destination)

  {
    unsigned int iteration, i, step, total_step, new_lines_space,
      number_of_lines, number_of_iterations, width_ratio, height_ratio;
    int x, y, x2, y2, continue_drawing, length, random_shift,
      stop_iterating, help_length;
    double angle, new_angle;
    unsigned char red, green, blue;
    t_line_list list;   // list of lines

    random *= 32;       // make closer number generate more random lines

    line_list_init(&list);

    if (iterate)
      {
        number_of_lines = 4;      // empiric value
        number_of_iterations = number;
      }
    else
      {
        number_of_lines = number;
        number_of_iterations = 1;
      }
                                  // generate lines
    for (i = 0; i < number_of_lines; i++)
      {
        x = noise_int_range(random,0,destination->width);
        random++;
        y = noise_int_range(random,0,destination->height);
        random++;
        angle = PI + noise(random) * PI;
        random++;
        line_list_add(&list,x,y,angle,0);
      }

    pt_color_fill(destination,255,255,255);
    continue_drawing = 1;
    step = 0;
    iteration = 0;
    new_lines_space = destination->width / 4;
    random_shift = (int) noise(random);    // random shift by 1 pixel
    stop_iterating = 0;
    random++;
    total_step = 0;

    while (continue_drawing)
      {
        continue_drawing = 0;

        help_length = line_list_get_length(&list);

        for (i = 0; (int) i < help_length; i++)
          {
            line_list_get(&list,i,&x,&y,&angle,&length);

            if (length >= 0)
              {
                line_point(x,y,angle,length,&x2,&y2);

                                                      // make a new line
                if (iterate && !stop_iterating && length != 0 &&
                  (length % (new_lines_space + random_shift) == 0))
                  {
                    new_angle = noise(random) > 0 ?
                      angle + PI_DIVIDED_2 : angle - PI_DIVIDED_2;

                    random++;

                    random_shift = (int) noise(random);

                    random++;

                    line_list_add(&list,x2,y2,new_angle,1);
                  }

                color_buffer_get_pixel(destination,x2,y2,&red,&green,
                  &blue);

                if (red != 0) // we can draw here
                  {
                    color_buffer_set_pixel(destination,x2,y2,0,0,0);
                    continue_drawing = 1;      /* at least one point has
                                                  been drawn */
                    line_list_set(&list,i,x,y,angle,length + 1);
                  }
                else          // colission with another line => stop
                  {
                    line_list_set(&list,i,x,y,angle,-1);
                  }
              }
                              /* after 4 new lines for each line start a
                                 new iteration */
          }

        if (!stop_iterating && step >= new_lines_space * 2)
          {
            iteration++;
            new_lines_space = new_lines_space * 0.6;
            step = 0;
          }

        if (new_lines_space == 0)
          stop_iterating = 1;

        if (iteration >= number_of_iterations)
          stop_iterating = 1;

        step++;
        total_step++;
      }

    if (fill_type != FILL_NONE)             // fill the areas with color
      {
        for (y = 0; ((unsigned int) y) < destination->height; y++)
          for (x = 0; ((unsigned int) x) < destination->width; x++)
            {
              color_buffer_get_pixel(destination,x,y,&red,&green,&blue);

                                            // only fill white areas
              if (red == 255 && green == 255 && blue == 255)
                {
                  /* we only use 255 level so we don't get black which
                     might mess it all up with the borders later    */

                  /* compute the seed depending on position to get more
                     resolution-independency */

                  width_ratio = (x / (double) destination->width) * 100;
                  height_ratio = (y / (double) destination->height) * 100;
                  random = width_ratio + height_ratio;

                  red = noise_int_range(random,0,254);
                  random++;

                  if (fill_grayscale)
                    {
                      green = red;
                      blue = red;
                    }
                  else
                    {
                      green = noise_int_range(random,0,254);
                      random++;
                      blue = noise_int_range(random,0,254);
                      random++;
                    }

                  _pt_floodfill(destination,x,y,red,green,blue);
                }
            }
      }

    if (fill_type == FILL_NO_BORDERS)
      {
        for (y = 0; ((unsigned int) y) < destination->height; y++)
          for (x = 0; ((unsigned int) x) < destination->width; x++)
            {
              color_buffer_get_pixel(destination,x,y,&red,&green,&blue);

              // get rid of black borders by copying the left neighbour
              if (red == 0 && green == 0 && blue == 0)
                {
                  color_buffer_get_pixel(destination,x - 1,y,&red,
                    &green,&blue);
                  color_buffer_set_pixel(destination,x,y,red,green,
                    blue);
                }
            }
      }

    line_list_destroy(&list);
  }

//----------------------------------------------------------------------

void pt_substrate_simple(int random, int iterations, int fill,
  t_color_buffer *destination)

  {
    if (fill)
      pt_substrate(random,1,iterations,FILL_KEEP_BORDERS,0,destination);
    else
     pt_substrate(random,1,iterations,FILL_NONE,0,destination);
  }

//----------------------------------------------------------------------

void pt_marble(int random, unsigned int periods, unsigned int intensity,
  t_direction direction, unsigned int amplitude,
  t_color_buffer *destination, t_color_buffer *noise_source)

  {
    unsigned int i, j;
    unsigned char red, green, blue;
    int external_noise_source;
    double parameter, noise_affect, sin_value, intensity_double,
      coordination;
    t_color_buffer noise_buffer;

    external_noise_source = 0;

    if (noise_source != NULL)
      {
        external_noise_source = 1;
      }
    else
      {
        color_buffer_init(&noise_buffer,destination->width,
          destination->height);

        noise_source = &noise_buffer;

        pt_perlin_noise(random,128,5,-1,INTERPOLATION_LINEAR,
          noise_source,1);
      }

    if (intensity > 10)
      intensity = 10;

    if (amplitude > 127)
      amplitude = 127;


    intensity =
      (unsigned int) ((destination->width / 500.0) * intensity);

    intensity_double = intensity / 10.0;

    for (j = 0; j < noise_source->height; j++)
      for (i = 0; i < noise_source->width; i++)
        {
          color_buffer_get_pixel(noise_source,i,j,&red,&green,&blue);

          noise_affect = (((double) red) / 255) * intensity_double;

          switch (direction)
            {
              case DIRECTION_HORIZONTAL:
                coordination = (double) i;
                break;

              case DIRECTION_VERTICAL:
                coordination = (double) j;
                break;

              case DIRECTION_DIAGONAL_LD_RU:
                coordination = (double) ((destination->width - i) + j);
                break;

              case DIRECTION_DIAGONAL_LU_RD:
                coordination = (double) (i + j);
                break;
            }

          parameter = (coordination / noise_source->width
            + noise_affect) * (periods * PI_TIMES_2);

          sin_value = sin(parameter);

          red = round_to_char(127 + sin_value * amplitude);

          color_buffer_set_pixel(destination,i,j,red,red,red);
        }

    if (!external_noise_source)
      {
        color_buffer_destroy(&noise_buffer);
      }
  }

//----------------------------------------------------------------------

void pt_wood(int random, unsigned int circles, unsigned int hardness,
  unsigned int intensity, t_direction direction, unsigned int amplitude,
  t_color_buffer *destination, t_color_buffer *noise_source)

  {
    unsigned int radius;           // basic circle radius
    int i,j;
    int offset;
    int dx,dy,dx_squared,dy_squared;
    unsigned char r,g,b;
    double distance;
    int external_noise_source;
    unsigned int middle_x,middle_y;
    unsigned char value;
    t_color_buffer noise_buffer;   // in case there's no extrernal noise


    intensity = (unsigned int)
      ((((double) destination->width) / 100) * intensity);

    if (noise_source != NULL)
      {
        external_noise_source = 1;
      }
    else
      {
        color_buffer_init(&noise_buffer,destination->width,
          destination->height);

        noise_source = &noise_buffer;

        pt_perlin_noise(random,128,5,-1,INTERPOLATION_LINEAR,
          noise_source,1);
      }

    radius = destination->width >= destination->height ?
      destination->width / 2 : destination->height / 2;

    middle_x = destination->width / 2;
    middle_y = destination->height / 2;

    pt_color_fill(destination,255,255,255);

    if (hardness == 0)    // 0 not allowed
      hardness = 2;
    else
      hardness *= 2;      // can't be odd

    for (j = -1 * intensity; j < (int) (destination->height + intensity); j++)
      {
        for (i = -1 * intensity; i < (int) (destination->width + intensity); i++)
          {
            color_buffer_get_pixel(noise_source,i,j,&r,&g,&b);


            color_buffer_get_pixel(noise_source,i,j,&r,&g,&b);
            offset = intensity * (((double) r) / 255);

            if (direction == DIRECTION_HORIZONTAL ||
            direction == DIRECTION_DIAGONAL_LU_RD)
              {
                dx = middle_x - i + offset;
              }
            else if (direction == DIRECTION_DIAGONAL_LD_RU)
              {
                dx = middle_x - i - offset;
              }
            else
              {
                dx = middle_x - i;
              }

            dx_squared = dx * dx;

            if (direction == DIRECTION_VERTICAL ||
            direction == DIRECTION_DIAGONAL_LU_RD ||
            direction == DIRECTION_DIAGONAL_LD_RU)
              {
                dy = middle_y - j + offset;
              }
            else
              {
                dy = middle_y - j;
              }

            dy_squared = dy * dy;

            distance = sqrt(dx_squared + dy_squared);

            if (distance > radius)
              {
                value = 255;
              }
            else
              {
                value = 255 - round_to_char(pow(sin(distance / radius *
                  circles * PI),hardness) * amplitude);
              }

            color_buffer_get_pixel(destination,i,j,&r,&g,&b);

            value = r > value ? value : r;  // assign darker value

            color_buffer_set_pixel(destination,i,j,value,value,
              value);
          }
      }

    if (!external_noise_source)
      {
        color_buffer_destroy(&noise_buffer);
      }
  }

//----------------------------------------------------------------------

void pt_wood_simple(int random, unsigned int intensity,
  unsigned int amplitude, t_color_buffer *destination)

  {
    pt_wood(random,5,3,intensity,DIRECTION_HORIZONTAL,amplitude,
      destination,NULL);
  }

//----------------------------------------------------------------------

void pt_marble_simple(int random, unsigned int intensity,
  unsigned int amplitude, t_color_buffer *destination)

  {
    pt_marble(random,4,intensity,DIRECTION_HORIZONTAL,amplitude,
      destination,NULL);
  }

//----------------------------------------------------------------------

void pt_particle_movement(t_color_buffer *noise_buffer,
  unsigned int particles, double position_x, double position_y,
  unsigned int angle, unsigned int spread, double velocity,
  t_color_buffer *destination)

  {
    unsigned int i, j;
    int (*particle_coordinations)[2];     // array of coordinations
    double *particle_angles;              // array of angles
    double *particle_velocities;          // array of velocities
    double initial_angle, angle_difference;
    int continue_computing, x, y;
    unsigned char red, green, blue;

    if (noise_buffer == NULL)
      return;

    particle_angles = (double *) malloc(particles * sizeof(double));
    particle_velocities = (double *) malloc(particles * sizeof(double));
    particle_coordinations = (int (*)[2])
      malloc(particles * 2 * sizeof(int));

    if (particle_angles == NULL || particle_velocities == NULL ||
      particle_coordinations == NULL)
      {
        if (particle_angles != NULL)
          free(particle_angles);

        if (particle_velocities != NULL)
          free(particle_velocities);

        if (particle_coordinations != NULL)
          free(particle_coordinations);

        return;
      }

    position_x = saturate_double(position_x,0.0,1.0);
    position_y = saturate_double(position_y,0.0,1.0);
    angle = saturate_int(angle,0,360);
    spread = saturate_int(spread,0,360);

    initial_angle = degrees_to_radians(angle);
    angle_difference = degrees_to_radians(spread);

    color_buffer_init(destination,noise_buffer->width,
      noise_buffer->height);

    pt_color_fill(destination,0,0,0);

    if (particles == 0)
      {
        free(particle_angles);
        free(particle_velocities);
        free(particle_coordinations);

        return;
      }

    velocity = velocity * 0.01 * noise_buffer->width;

    x = position_x * (destination->width - 1);
    y = position_y * (destination->height - 1);

    for (i = 0; i < particles; i++) // initialise particles
      {
        particle_coordinations[i][0] = x;
        particle_coordinations[i][1] = y;

        particle_angles[i] =
          initial_angle +
          (i / (double) (particles - 1)) * angle_difference * 2 -
          angle_difference;

        particle_velocities[i] = velocity;
      }

    continue_computing = 1;

    while (continue_computing) // iterations
      {
        continue_computing = 0;

        for (i = 0; i < particles; i++) // one step for each particle
          {
            for (j = 0; j < (unsigned int) particle_velocities[i]; j++)
              {
                line_point(particle_coordinations[i][0],
                particle_coordinations[i][1],particle_angles[i],j,
                &x,&y);

                red = particle_velocities[i] / velocity * 100;

                color_buffer_add_pixel(destination,x,y,red,red,red);
              }

            line_point(particle_coordinations[i][0],
              particle_coordinations[i][1],particle_angles[i],j,
              &x,&y);

            particle_coordinations[i][0] = x;
            particle_coordinations[i][1] = y;

            particle_velocities[i] *= 0.95;

            color_buffer_get_pixel(noise_buffer,
            particle_coordinations[i][0],
            particle_coordinations[i][1],
            &red,&green,&blue);

            // adjust the angle depending on the noise in the buffer:
            particle_angles[i] += (127 - red) / 127.0 *
              PI_DIVIDED_2;

            color_buffer_get_pixel(noise_buffer,
              particle_coordinations[i][1],
              particle_coordinations[i][0],
              &red,&green,&blue);

            if (particle_velocities[i] > 0.5)
              continue_computing = 1;
          }
      }

    free(particle_angles);
    free(particle_velocities);
    free(particle_coordinations);
  }

//----------------------------------------------------------------------

void pt_particle_movement_color(t_color_buffer *noise_buffer,
  unsigned int particles, double position_x, double position_y,
  unsigned int angle, unsigned int spread, double velocity,
  t_color_buffer *destination, unsigned char red, unsigned char green,
  unsigned char blue)

  {
    t_color_transition transition;
    color_transition_init(&transition);

    color_transition_add_point(0,255,255,255,&transition);
    color_transition_add_point(255,red,green,blue,&transition);
    pt_particle_movement(noise_buffer,particles,position_x,position_y,
      angle,spread,velocity,destination);
    pt_map_to_transition(destination,&transition);
    color_transition_destroy(&transition);
  }

//----------------------------------------------------------------------

void pt_particles_simple(unsigned int particles, unsigned int sources,
  double velocity, unsigned char red, unsigned char green,
  unsigned char blue, t_color_buffer *destination, int random)

  {
    unsigned int i;
    double x,y;
    t_color_buffer help_buffer,noise_buffer;
    t_color_transition transition;

    if (destination == NULL)
      return;

    color_buffer_init(&noise_buffer,destination->width,
      destination->height);
    pt_perlin_noise(random,100,5,-1,INTERPOLATION_SINE,&noise_buffer,1);
    random++;
    color_transition_init(&transition);
    color_transition_add_point(0,255,255,255,&transition);
    color_transition_add_point(255,red,green,blue,&transition);

    pt_color_fill(destination,0,0,0);

    for (i = 0; i < sources; i++)
      {
        x = noise(random);

        if (x < 0.0)
          x = -1 * x;

        random++;

        y = noise(random);

        if (y < 0.0)
          y = -1 * y;

        random++;

        pt_particle_movement(&noise_buffer,particles,x,y,0,360,velocity,
          &help_buffer);

        pt_add_buffers(&help_buffer,destination);
        color_buffer_destroy(&help_buffer);
        random++;
      }

    pt_map_to_transition(destination,&transition);
    color_transition_destroy(&transition);
    color_buffer_destroy(&noise_buffer);
  }

//----------------------------------------------------------------------

void pt_transformation_circle(t_color_buffer *buffer, int radius,
  unsigned int repeat, t_color_buffer *destination)

  {
    unsigned int i, j, k;
    int current_x, current_y;
    unsigned char red, green, blue, average;
    double angle;

    color_buffer_init(destination,buffer->width,buffer->height);

    radius = radius > 100 ? 100 : radius;
    radius = radius < 0 ? 0 : radius;
    radius = radius * 0.01 * buffer->width;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          current_x = i;
          current_y = j;

          for (k = 0; k < repeat; k++)
            {
              color_buffer_get_pixel(buffer,current_x,current_y,&red,
                &green,&blue);

              average = (red + green + blue) / 3;

              angle = 2 * PI * (((double) average) / 255);

              circle_point_by_angle(current_x,current_y,radius,angle,
                &current_x,&current_y);
              color_buffer_get_pixel(buffer,current_x,current_y,&red,
                &green,&blue);
              color_buffer_set_pixel(destination,i,j,red,green,blue);
            }
        }
  }

//----------------------------------------------------------------------

void pt_transformation_radius(t_color_buffer *buffer,
  unsigned int radius_min, unsigned int radius_max, int rotate_left,
  int go_horizontal, t_color_buffer *destination)

  {
    unsigned int i, j, radius_difference;
    unsigned char red, green, blue;
    int x, y, average;
    double angle, radius;

    if (radius_min > radius_max)
      return;

    color_buffer_init(destination,buffer->width,buffer->height);

    radius_difference = radius_max - radius_min;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
          average = (red + green + blue) / 3;
          radius = radius_min + (average / 255.0) * radius_difference;

          if (go_horizontal)
            angle = ((double) i) / buffer->width;
          else
            angle = ((double) j) / buffer->height;

          angle = angle + ((double) j) / buffer->height;

          if (angle > 1.0)
            angle = angle - 1;

          angle = angle * PI_TIMES_2;

          if (!rotate_left)
            angle = PI_TIMES_2 - angle;

          circle_point_by_angle(i,j,radius,angle,&x,&y);

          color_buffer_get_pixel(buffer,x,y,&red,&green,&blue);
          color_buffer_set_pixel(destination,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_transformation_sine(t_color_buffer *buffer, double phase,
  int periods, unsigned char amplitude, t_color_buffer *destination)

{
  unsigned int i, j;
  unsigned char red, green, blue, average;
  double angle;

  color_buffer_init(destination,buffer->width,buffer->height);

  if (periods <= 0)
    periods = 1;

  if (amplitude > 128)
    amplitude = 128;

  for (j = 0; j < buffer->height; j++)
    for (i = 0; i < buffer->width; i++)
      {
        color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);

        average = (red + green + blue) / 3;
        angle = periods * 2 * PI * (((double) average) / 255) + phase;

        red = amplitude * 2 * (sin(angle) / 2 + 0.5) + 128 - amplitude;
        green = red;
        blue = red;

        color_buffer_set_pixel(destination,i,j,red,green,blue);
      }
}

//----------------------------------------------------------------------

void pt_blur(t_color_buffer *buffer, unsigned int intensity)

  {
    unsigned int i, j, k, l, core_width, half_core_width;
    int sum_red, sum_green,
    sum_blue, core_number_of_fields, help_position_x, help_position_y;
    unsigned char red, green, blue;
    t_color_buffer help_buffer;

    if (intensity == 0)
      return;

    color_buffer_copy(buffer,&help_buffer);

    core_width = intensity * 2 + 1;   // kind of convolution core matrix
    half_core_width = core_width / 2;
    core_number_of_fields = core_width * core_width;

    for (i = 0; i < buffer->width; i++)
      for (j = 0; j < buffer->height; j++)
        {
          sum_red = 0;
          sum_green = 0;
          sum_blue = 0;

          for (k = 0; k < core_width; k++)
            for (l = 0; l < core_width; l++)
              {
                                      // a little optimalization
                help_position_x = i - half_core_width;
                help_position_y = j - half_core_width;

                color_buffer_get_pixel(&help_buffer,
                  help_position_x + k,help_position_y + l,
                  &red,&green,&blue);

                sum_red += red;
                sum_green += green;
                sum_blue += blue;
              }

          red = sum_red / core_number_of_fields;
          green = sum_green / core_number_of_fields;
          blue = sum_blue / core_number_of_fields;

          color_buffer_set_pixel(buffer,i,j, red, green, blue);
        }

    color_buffer_destroy(&help_buffer);
  }

//----------------------------------------------------------------------

void pt_motion_blur(t_color_buffer *buffer, t_direction direction,
  unsigned int intensity)

  {
    t_matrix matrix;
    unsigned int i, j;
    double value;

    if (intensity == 0)
      return;

    matrix_init(&matrix,intensity * 2 + 1,intensity * 2 + 1);

    for (j = 0; j < matrix.height; j++)
      for (i = 0; i < matrix.width; i++)
        matrix_set_value(&matrix,i,j,0.0);

    value = 1.0 / matrix.width;

    for (i = 0; i < matrix.width; i++)
      switch (direction)
        {
          case DIRECTION_HORIZONTAL:
            matrix_set_value(&matrix,i,intensity,value);
            break;

          case DIRECTION_VERTICAL:
            matrix_set_value(&matrix,intensity,i,value);
            break;

          case DIRECTION_DIAGONAL_LU_RD:
            matrix_set_value(&matrix,i,i,value);
            break;

          case DIRECTION_DIAGONAL_LD_RU:
            matrix_set_value(&matrix,i,matrix.width - i - 1,value);
            break;
        }

    pt_convolution(buffer,&matrix);

    matrix_destroy(&matrix);
  }

//----------------------------------------------------------------------

void pt_sharpen(t_color_buffer *buffer, unsigned int intensity)

  {
    t_matrix matrix;
    unsigned int i, j;

    if (intensity == 0)
      return;

    matrix_init(&matrix,intensity * 2 + 1,intensity * 2 + 1);

    for (j = 0; j < matrix.height; j++)
      for (i = 0; i < matrix.width; i++)
        matrix_set_value(&matrix,i,j,-1.0);

    matrix_set_value(&matrix,intensity,intensity,matrix.width *
      matrix.height);

    pt_convolution(buffer,&matrix);

    matrix_destroy(&matrix);
  }

//----------------------------------------------------------------------

void pt_emboss(t_color_buffer *buffer, unsigned int intensity)

  {
    t_matrix matrix;
    unsigned int i,j;

    if (intensity == 0)
      return;

    matrix_init(&matrix,intensity * 2 + 1,intensity * 2 + 1);

    for (j = 0; j < matrix.height; j++)
      {
        for (i = 0; i < matrix.width - 1 - j; i++)
          matrix_set_value(&matrix,i,j,-1.0);

        matrix_set_value(&matrix,i,j,0.0);

        for (i = i + 1; i < matrix.width; i++)
          matrix_set_value(&matrix,i,j,1.0);
      }

    pt_convolution(buffer,&matrix);
    matrix_destroy(&matrix);
  }

//----------------------------------------------------------------------

void pt_edge_detection(t_color_buffer *buffer,
  t_edge_detection_type type, int intensity)

  {
    t_matrix matrix;         // convolution matrix
    int i, j, matrix_size,
      apply_both;            /* says whether to apply both types of
                                detection */
    double help_number;
    t_color_buffer help_buffer, /* will be used a a memory if both types
                                   of detection are set */
      help_buffer2;

    if (intensity == 0)
      return;

    matrix_size = intensity * 2 + 1;

    if (type == DETECTION_BOTH)
      {
        apply_both = 1;
        type = DETECTION_HORIZONTAL;
      }
    else
      apply_both = 0;

    if (intensity > 10)
      intensity = 10;
    else if (intensity < 1)
      intensity = 1;

    if (apply_both)
      {
        color_buffer_copy(buffer,&help_buffer);
        color_buffer_copy(buffer,&help_buffer2);
      }

    matrix_init(&matrix,matrix_size,matrix_size);

    while (1)
      {
        for (i = 0; i < matrix_size; i++)
          {
            if (i < intensity)
              help_number = -1 * (i + 1);
            else if (i == intensity)
              help_number = 0;
            else
              help_number = 2 * intensity - i + 1;

            if (type == DETECTION_HORIZONTAL)
              {
                for (j = 0; j < matrix_size; j++)
                  matrix_set_value(&matrix,i,j,help_number);
              }
            else
              {
                for (j = 0; j < matrix_size; j++)
                  matrix_set_value(&matrix,j,i,help_number);
              }
        }


        if (apply_both)
          {
            if (type == DETECTION_HORIZONTAL)
              {                      // horizontal done, now do vertical
                pt_convolution(&help_buffer,&matrix);
                type = DETECTION_VERTICAL;
              }
            else
              {
                pt_convolution(&help_buffer2,&matrix);
                pt_mix_buffers(&help_buffer,&help_buffer2,buffer,
                  50,MIX_ADD,NULL);
                color_buffer_destroy(&help_buffer);
                color_buffer_destroy(&help_buffer2);
                break;
              }
          }
        else
          {
            pt_convolution(buffer,&matrix);
            break;
          }
      }

    matrix_destroy(&matrix);
  }

//----------------------------------------------------------------------

void pt_invert_colors(t_color_buffer *buffer)

  {
    unsigned char red, green, blue;
    unsigned int i, j;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
          color_buffer_set_pixel(buffer,i,j,255 - red, 255 - green,
            255 - blue);
        }
  }

//----------------------------------------------------------------------

void pt_crop_amplitude(t_color_buffer *buffer,
  unsigned char lower_limit, unsigned char upper_limit)

  {
    unsigned int x,y;
    unsigned char r,g,b;

    if (buffer == NULL)
      return;

    for (y = 0; y < buffer->height; y++)
      for (x = 0; x < buffer->width; x++)
        {
          color_buffer_get_pixel(buffer,x,y,&r,&g,&b);

          if (r < lower_limit)
            r = lower_limit;
          else if (r > upper_limit)
            r = upper_limit;

          color_buffer_set_pixel(buffer,x,y,r,r,r);
        }
  }

//----------------------------------------------------------------------

void pt_grayscale(t_color_buffer *buffer)

  {
    unsigned int i, j;
    unsigned char red, green, blue;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);

                                            // empiric coeficient values
          red = (unsigned char) (0.229 * red + 0.587 * green +
            0.114 * blue);

          color_buffer_set_pixel(buffer,i,j,red,red,red);
        }
  }

//----------------------------------------------------------------------

void pt_map_to_transition(t_color_buffer *buffer,
  t_color_transition *transition)

  {
    unsigned int i, j;
    unsigned char red, green, blue;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&red,&green,&blue);
          color_transition_get_color(red,&red,&green,&blue,transition);
          color_buffer_set_pixel(buffer,i,j,red,green,blue);
        }
  }

//----------------------------------------------------------------------

void pt_turtle_draw(t_color_buffer *buffer, t_grammar *grammar,
  double start_x, double start_y, int start_angle,
  double noise_intensity, double particle_density)

  {
    int x1,y1,x2,y2;

    if (buffer == NULL)
      return;

    start_x = saturate_double(start_x,0.0,1.0);
    start_y = saturate_double(start_y,0.0,1.0);
    noise_intensity = saturate_double(noise_intensity,0.0,1.0);
    particle_density = saturate_double(particle_density,0.0,1.0);

    _pt_turtle_init(grammar,buffer->width,buffer->height,start_x *
      buffer->width, start_y * buffer->height, start_angle,
      noise_intensity);

    while (_pt_turtle_next_instruction(&x1,&y1,&x2,&y2))
      {
        _pt_draw_fancy_line(buffer,x1,y1,x2,y2,turtle.state.color[0],
          turtle.state.color[1],turtle.state.color[2],
          turtle.state.line_width,turtle.state.dot_gap,
          noise_intensity,particle_density,&turtle_noise_buffer,
          turtle.state.line_type);
      }

    _pt_turtle_destroy();
  }

//----------------------------------------------------------------------

int pt_turtle_get_point_list(t_color_buffer *buffer, t_grammar *grammar,
  double start_x, double start_y, int start_angle,
  unsigned int list[][2], unsigned int *length,
  unsigned int max_length)

  {
    int x1,y1,x2,y2;

    if (buffer == NULL || length == NULL)
      return 0;

    *length = 0;

    if (max_length == 0)
      return 1;

    if (start_x > 1.0)
      start_x = 1.0;
    else if (start_x < 0.0)
      start_x = 0.0;

    if (start_y > 1.0)
      start_y = 1.0;
    else if (start_y < 0.0)
      start_y = 0.0;

    list[0][0] = start_x * buffer->width;  // initial point
    list[0][1] = start_y * buffer->height;
    (*length)++;

    _pt_turtle_init(grammar,buffer->width,buffer->height,start_x *
      buffer->width, start_y * buffer->height, start_angle,0.0);

    while (_pt_turtle_next_instruction(&x1,&y1,&x2,&y2))
      {
        if (*length >= max_length)
          break;

        list[*length][0] = x2;
        list[*length][1] = y2;

        (*length)++;
      }

    _pt_turtle_destroy();

    return 1;
  }

//----------------------------------------------------------------------

void pt_normal_map(t_color_buffer *buffer, unsigned int
  neighbourhood_size, t_color_buffer *destination)

  {
    unsigned int x,y,i;
    int j;
    int sum_of_differences;
    unsigned char vector_char[3];
    unsigned char r,g,b;
    double vector_double[3];
    int difference;

    if (neighbourhood_size == 0)
      neighbourhood_size = 1;

    color_buffer_init(destination,buffer->width,buffer->height);

    for (y = 0; y < buffer->height; y++)
      for (x = 0; x < buffer->width; x++)
        {
          // mean difference in x direction neighbourhood:
          sum_of_differences = 0;

          for (j = -1 * neighbourhood_size; j <= (int) neighbourhood_size; j++)
            for (i = 1; i <= neighbourhood_size; i++)
              {
                color_buffer_get_pixel(buffer,x - i,y + j,&r,&g,&b);
                difference = r;
                color_buffer_get_pixel(buffer,x + i,y + j,&r,&g,&b);
                difference -= r;
                sum_of_differences += difference;
              }

          vector_double[0] = sum_of_differences /
            ((double) (neighbourhood_size * (neighbourhood_size * 2 + 1)));

          // mean difference in y direction neighbourhood:
          sum_of_differences = 0;

          for (j = -1 * neighbourhood_size; j <= (int) neighbourhood_size; j++)
            for (i = 1; i <= neighbourhood_size; i++)
              {
                color_buffer_get_pixel(buffer,x + j,y - i,&r,&g,&b);
                difference = r;
                color_buffer_get_pixel(buffer,x + j,y + i,&r,&g,&b);
                difference -= r;
                sum_of_differences += difference;
              }

          vector_double[1] = sum_of_differences /
            ((double) (neighbourhood_size * (neighbourhood_size * 2 + 1)));

          vector_double[2] = 1.0;   // we consider this 1

          // normalise the vector:

          normalise_vector_3(&vector_double[0],&vector_double[1],
            &vector_double[2]);

          // map the vector to char range:

          vector_char[0] = round_to_char(vector_double[0] * 128 + 127);
          vector_char[1] = round_to_char(vector_double[1] * 128 + 127);
          vector_char[2] = round_to_char(vector_double[2] * 128 + 127);

          // write the vector to the buffer:

          color_buffer_set_pixel(destination,x,y,vector_char[0],
            vector_char[1],vector_char[2]);
        }
  }

//----------------------------------------------------------------------

void pt_light(t_color_buffer *normal_map, t_color_buffer *destination,
  unsigned char ambient_r, unsigned char ambient_g,
  unsigned char ambient_b, unsigned char diffuse_r,
  unsigned char diffuse_g, unsigned char diffuse_b,
  unsigned char specular_r, unsigned char specular_g,
  unsigned char specular_b, double phong_exponent,
  t_reflection_curve reflection_curve, double viewer_z,
  double light_vector_x, double light_vector_y)

  {
    unsigned int ambient_intensity[3];
    unsigned int diffuse_intensity[3];
    unsigned int specular_intensity[3];
    double specular_brightness;
    unsigned int x,y;
    double half_width, half_height;
    double viewer_x, viewer_y;
    unsigned int interpolation_border_x, interpolation_border_y;
    unsigned char r,g,b;
    unsigned int i;
    double dot_product;
    double light_vector[3];
    double normal_vector[3];
    double viewer_vector[3];
    double reflection_vector[3];

    color_buffer_init(destination,normal_map->width,normal_map->height);

    half_width = destination->width / 2.0;
    half_height = destination->height / 2.0;

    interpolation_border_x = destination->width * 0.2;
    interpolation_border_y = destination->height * 0.2;

    if (viewer_z < 0.1)
      viewer_z = 0.1;

    light_vector[0] = light_vector_x;
    light_vector[1] = light_vector_y;
    light_vector[2] = 1.0;

    normalise_vector_3(&light_vector[0],&light_vector[1],
      &light_vector[2]);

    // ambient light:

    ambient_intensity[0] = round_to_char(ambient_r);
    ambient_intensity[1] = round_to_char(ambient_g);
    ambient_intensity[2] = round_to_char(ambient_b);

    for (y = 0; y < destination->height; y++)
      for (x = 0; x < destination->width; x++)
        {
          // get the normal:

          color_buffer_get_pixel(normal_map,x,y,&r,&g,&b);
          normal_vector[0] = (r - 127) / ((double) 128);
          normal_vector[1] = (g - 127) / ((double) 128);
          normal_vector[2] = (b - 127) / ((double) 128);

          // diffuse light:

          dot_product = normal_vector[0] * light_vector[0] +
            normal_vector[1] * light_vector[1] + normal_vector[2] *
            light_vector[2];

          diffuse_intensity[0] = round_to_char(dot_product * diffuse_r);
          diffuse_intensity[1] = round_to_char(dot_product * diffuse_g);
          diffuse_intensity[2] = round_to_char(dot_product * diffuse_b);

          // specular light:

          // set the viewer position, interpolate if near the border

          if (x <= interpolation_border_x)
            {
              viewer_x = (x / ((double) interpolation_border_x)) *
                half_width;
            }
          else if (x >= destination->width - interpolation_border_x)
            {
              viewer_x = half_width + ((x - destination->width +
              interpolation_border_x) /
              ((double) interpolation_border_x)) * half_width;
            }
          else
            viewer_x = half_width;  // position in the middle

          if (y <= interpolation_border_y)
            {
              viewer_y = (y / ((double) interpolation_border_y)) *
                half_height;
            }
          else if (y >= destination->height - interpolation_border_y)
            {
              viewer_y = half_height + ((y - destination->height +
              interpolation_border_y) /
              ((double) interpolation_border_y)) * half_height;
            }
          else
            viewer_y = half_height;

          viewer_vector[0] = viewer_x - x;
          viewer_vector[1] = viewer_y - y;
          viewer_vector[2] = destination->width * viewer_z;

          normalise_vector_3(&viewer_vector[0],&viewer_vector[1],
            &viewer_vector[2]);

          for (i = 0; i < 3; i++)    // compute the reflection vector
            reflection_vector[i] = 2 * dot_product * normal_vector[i]
            - light_vector[i];

          normalise_vector_3(&reflection_vector[0],
            &reflection_vector[1],&reflection_vector[2]);

          dot_product = (viewer_vector[0] * reflection_vector[0] +
            viewer_vector[1] * reflection_vector[1] + viewer_vector[2] *
            reflection_vector[2]);

          switch (reflection_curve)
            {
              case REFLECTION_CURVE_COSINE_SMOOTH:
                dot_product = (dot_product + 1.0) / 2.0;
                break;

              case REFLECTION_CURVE_COSINE_ABS:
                dot_product = dot_product < 0.0 ?
                  -1 * dot_product : dot_product;
                break;

              case REFLECTION_CURVE_LINEAR_HALF:
                dot_product = acos(dot_product) / PI * -1.0 + 1.0;
                break;

              case REFLECTION_CURVE_LINEAR_FULL:
                dot_product = (acos(dot_product) / PI * -1.0 + 2.0)
                  / 2.0;
                break;
            }

          dot_product = saturate_double(dot_product,0.0,1.0);

          specular_brightness = pow(dot_product,phong_exponent);

          specular_intensity[0] =
            round_to_char(specular_brightness * specular_r);
          specular_intensity[1] =
            round_to_char(specular_brightness * specular_g);
          specular_intensity[2] =
            round_to_char(specular_brightness * specular_b);

          // write the intensity:

          color_buffer_set_pixel(destination,x,y,
            round_to_char(ambient_intensity[0] + diffuse_intensity[0] +
            specular_intensity[0]),round_to_char(ambient_intensity[1] +
            diffuse_intensity[1] + specular_intensity[1]),
            round_to_char(ambient_intensity[2] + diffuse_intensity[2] +
            specular_intensity[2]));
        }
  }

//----------------------------------------------------------------------

void pt_light_simple(t_color_buffer *normal_map,
  t_color_buffer *destination, unsigned char red, unsigned char green,
  unsigned char blue)

  {
    double ambient_amount, diffuse_amount;

    ambient_amount = 0.05;
    diffuse_amount = 0.5;

    pt_light(normal_map,destination,
      red * ambient_amount,
      green * ambient_amount,
      blue * ambient_amount,
      red * diffuse_amount,
      green * diffuse_amount,
      blue * diffuse_amount,
      255,
      255,
      255,
      2.0,
      REFLECTION_CURVE_COSINE_ABS,
      1.0,0.5,0.5);
  }

//----------------------------------------------------------------------

void pt_glass(t_color_buffer *normal_map, t_color_buffer *buffer,
  t_color_buffer *destination, double height)

  {
    double normal_vector[3];
    unsigned int x,y,offset_x,offset_y,pixel_height;
    unsigned char r,g,b;

    if (normal_map == NULL || buffer == NULL)
      return;

    pixel_height = height * buffer->width * 0.01;

    color_buffer_init(destination,buffer->width,buffer->height);

    for (y = 0; y < destination->height; y++)
      for (x = 0; x < destination->width; x++)
        {
          color_buffer_get_pixel(normal_map,x,y,&r,&g,&b);
          normal_vector[0] = (r - 127) / ((double) 128);
          normal_vector[1] = (g - 127) / ((double) 128);
          normal_vector[2] = (b - 127) / ((double) 128);

          offset_x = pixel_height *
            (normal_vector[0] / normal_vector[2]);

          offset_y = pixel_height *
            (normal_vector[1] / normal_vector[2]);

          color_buffer_get_pixel(buffer,x + offset_x,y + offset_y,
            &r,&g,&b);

          color_buffer_set_pixel(destination,x,y,r,g,b);
        }
  }

//----------------------------------------------------------------------

void pt_cellular_automaton_rps(t_color_buffer *buffer,
  t_neighbourhood_type neighbourhood, unsigned int neighbourhood_size,
  unsigned char number_of_players, int random, unsigned int iterations)

  {
    int position_differences[128][2];  // neighbourhood pos. differences
    unsigned int x,y;
    int dx,dy;
    unsigned char r,g,b,r2,g2,b2;
    unsigned int array_length,iteration;
    unsigned int player1,player2,winner,level2,random_number;
    t_color_buffer buffer2;
    t_color_buffer *main_buffer,*secondary_buffer,*helper;

    if (number_of_players > 25)
      number_of_players = 25;

    array_length = make_neighbourhood(neighbourhood,neighbourhood_size,
      position_differences);
    color_buffer_init(&buffer2,buffer->width,buffer->height);
    main_buffer = buffer;
    secondary_buffer = &buffer2;
    _pt_cellular_automaton_prepare(buffer,number_of_players + 1);
    pt_multiply_value(buffer,10.0); // give each cell 10 states

    for (iteration = 0; iteration < iterations; iteration++)
      {
        for (y = 0; y < buffer->height; y++)
          for (x = 0; x < buffer->width; x++)
            {
              // pick a random cell in the neighbourhood:

              random_number =
                noise_int_range(random,0,array_length - 1);

              random++;

              dx = position_differences[random_number][0];
              dy = position_differences[random_number][1];

              color_buffer_get_pixel(main_buffer,x,y,&r,&g,&b);
              color_buffer_get_pixel(main_buffer,x + dx,y + dy,
                &r2,&g2,&b2);

              player1 = r / 10;
              player2 = r2 / 10;
              level2 = r2 % 10;

              // apply the rules:

              if (player1 == number_of_players)  // empty cell
                {
                  if (player2 != number_of_players) // vs non-empty cell
                    {
                      if (level2 < 9)
                        r = r2 + 1;  // spawn new cell with level + 1
                    }
                }
              else      // non-empty cell
                {
                  if (player2 != number_of_players) // vs non-empty cell
                    {
                      winner = rock_paper_scissors(number_of_players,
                        player1,player2);

                      if (winner != player1)
                        r = winner * 10;
                    }
                }

              color_buffer_set_pixel(secondary_buffer,x,y,r,0,0);
            }

        helper = main_buffer;     // switch the buffers
        main_buffer = secondary_buffer;
        secondary_buffer = helper;
      }

    color_buffer_copy_data(main_buffer,buffer);
    pt_multiply_value(buffer,0.1);
    _pt_cellular_automaton_convert_back(buffer,number_of_players + 1);
    color_buffer_destroy(&buffer2);
  }

//----------------------------------------------------------------------

void pt_cellular_automaton_cyclic(t_color_buffer *buffer,
  t_neighbourhood_type neighbourhood, unsigned int neighbourhood_size,
  unsigned char states, unsigned int threshold, unsigned int iterations)

  {
    int position_differences[128][2]; // neighbourhood pos. differences
    unsigned int x,y,i;
    int dx,dy;
    unsigned char r,g,b,r2,g2,b2;
    unsigned int array_length,iteration,color_count;
    t_color_buffer buffer2;
    t_color_buffer *main_buffer,*secondary_buffer,*helper;

    array_length = make_neighbourhood(neighbourhood,neighbourhood_size,
      position_differences);
    color_buffer_init(&buffer2,buffer->width,buffer->height);
    main_buffer = buffer;
    secondary_buffer = &buffer2;

    _pt_cellular_automaton_prepare(buffer,states);

    for (iteration = 0; iteration < iterations; iteration++)
      {
        for (y = 0; y < buffer->height; y++)
          for (x = 0; x < buffer->width; x++)
            {
              color_buffer_get_pixel(main_buffer,x,y,&r,&g,&b);

              // count the neighbour next level colors:

              color_count = 0;

              for (i = 0; i < array_length; i++)
                {
                  dx = position_differences[i][0];
                  dy = position_differences[i][1];

                  color_buffer_get_pixel(main_buffer,x + dx,y + dy,
                    &r2,&g2,&b2);

                  if (r2 == r + 1 || (r == states - 1 && r2 == 0))
                    color_count++;
                }

              if (color_count >= threshold)
                r++;

              if (r >= states)
                r = 0;

              color_buffer_set_pixel(secondary_buffer,x,y,r,0,0);
            }

        helper = main_buffer;     // switch the buffers
        main_buffer = secondary_buffer;
        secondary_buffer = helper;
      }

    color_buffer_copy_data(main_buffer,buffer);
    _pt_cellular_automaton_convert_back(buffer,states);
    color_buffer_destroy(&buffer2);
  }

//----------------------------------------------------------------------

void pt_cellular_automaton_general(t_color_buffer *buffer,
  unsigned char states, int rules[256], unsigned int iterations)

  {
    t_color_buffer buffer2;
    t_color_buffer *main_buffer,*secondary_buffer,*helper;
    int position_differences[8][2],rule;
    unsigned int iteration,new_state;
    unsigned char index;
    unsigned char r,g,b;
    unsigned int x,y,i;

    if (states < 2)
      states = 2;

    // Moore neighbourhood relative positions

    position_differences[0][0] = -1;
    position_differences[0][1] = -1;
    position_differences[1][0] = 0;
    position_differences[1][1] = -1;
    position_differences[2][0] = 1;
    position_differences[2][1] = -1;
    position_differences[3][0] = -1;
    position_differences[3][1] = 0;
    position_differences[4][0] = 1;
    position_differences[4][1] = 0;
    position_differences[5][0] = -1;
    position_differences[5][1] = 1;
    position_differences[6][0] = 0;
    position_differences[6][1] = 1;
    position_differences[7][0] = 1;
    position_differences[7][1] = 1;

    color_buffer_init(&buffer2,buffer->width,buffer->height);
    _pt_cellular_automaton_prepare(buffer,states);
    main_buffer = buffer;
    secondary_buffer = &buffer2;

    for (iteration = 0; iteration < iterations; iteration++)
      {
        for (y = 0; y < buffer->height; y++)
          for (x = 0; x < buffer->width; x++)
            {
              // compute index of the rule depending on neighbour state:

              index = 0;

              for (i = 0; i < 8; i++)
                {
                  color_buffer_get_pixel(main_buffer,
                    x + position_differences[i][0],
                    y + position_differences[i][1],
                    &r,&g,&b);

                  if (r == 0)                // cell alive
                    index += power_int(2,i); // set corresponding bit
                }

              rule = rules[index];

              color_buffer_get_pixel(main_buffer,x,y,&r,&g,&b);

              if (rule == 0)      // nothing happens
                {
                }
              else if (rule == 1) // the cell is born
                {
                  r = 0;
                }
              else          // the cell dies (or gets to the next state)
                {
                  new_state = r + 1;

                  if (new_state >= (unsigned int) states)
                    new_state = (unsigned int) states - 1;

                  r = new_state;
                }

              color_buffer_set_pixel(secondary_buffer,x,y,r,0,0);
            }

        helper = main_buffer;     // switch the buffers
        main_buffer = secondary_buffer;
        secondary_buffer = helper;
      }

    color_buffer_copy_data(main_buffer,buffer);
    _pt_cellular_automaton_convert_back(buffer,states);
    color_buffer_destroy(&buffer2);
  }

//----------------------------------------------------------------------

void pt_mosaic_square(t_color_buffer *destination,
  t_fill_type fill_type, unsigned char fill_colors[],
  unsigned char number_of_colors, t_square_mosaic *mosaic)

  {
    int horizontal;
    unsigned char color;
    unsigned char r,g,b;
    unsigned int polygon_points,tile_number;
    unsigned int extra_border_x,extra_border_y,tile_width,tile_height;
    unsigned int from_x,from_y,to_x,to_y;
    t_color_buffer tile_buffer, help_buffer;
    double (*polygon)[2];       // dynamic array of polygon points
    unsigned int i,j;
    t_mosaic_transformation current_transformation;

    if (destination == NULL || mosaic == NULL ||
      !square_mosaic_is_valid(mosaic))
      return;

    // make the polygon:

    _pt_make_tile_polygon(mosaic,&polygon,&polygon_points);

    // initialise the help buffer:

    color_buffer_init(&help_buffer,destination->width,
      destination->width);
    pt_color_fill(&help_buffer,0,0,0);

    tile_width = help_buffer.width / mosaic->tiles_x;
    tile_height = help_buffer.height / mosaic->tiles_y;
    extra_border_x = ceil(tile_width / 2);
    extra_border_y = ceil(tile_height / 2);

    // initialise the tile buffer with extra borders:

    color_buffer_init(&tile_buffer,2 * tile_width,2 * tile_height);

    // draw the polygon to the buffer:

    for (i = 0; i < polygon_points; i++)
      {
		from_x = extra_border_x + polygon[i][0] * tile_width;
		from_y = extra_border_y + tile_height - polygon[i][1] * tile_height;
		to_x = extra_border_x + polygon[(i + 1) % polygon_points][0] * tile_width;
		to_y = extra_border_y + tile_height - polygon[(i + 1) % polygon_points][1] * tile_height;
          
        _pt_draw_fancy_line(&tile_buffer,from_x,from_y,to_x,to_y,0,0,0,
          1,0,0,0,NULL,LINE_NORMAL);
      }

    _pt_floodfill(&tile_buffer,0,0,255,0,0); // fill the outside

    // make the mosaic:

   if (fill_type == FILL_NO_BORDERS) // get rid of borders if needed
      _pt_replace_color(&tile_buffer,0,0,0,255,255,255);

    tile_number = 0;
    current_transformation = MOSAIC_TRANSFORM_SHIFT;  // = no transform.

    for (j = 0; j < mosaic->tiles_y; j++)
      {
        for (i = 0; i < mosaic->tiles_x; i++)
          {
            current_transformation = compute_transformation(mosaic,i,j,
              &horizontal);

            if (fill_colors == NULL || fill_type == FILL_NONE)
              color = 255;
            else
              {
                color = fill_colors[tile_number % number_of_colors];

                if (color == 0)    // black not allowed
                  color = 1;
              }

            _pt_draw_tile(&tile_buffer,
              i * tile_width -1 * extra_border_x,
              j * tile_height -1 * extra_border_y,
              color,&help_buffer,current_transformation,horizontal);

            tile_number++;
          }
      }

    // get rid of possible remaining black pixels:

    if (fill_type == FILL_NO_BORDERS)
      for (j = 0; j < help_buffer.height; j++)
        for (i = 0; i < help_buffer.width; i++)
          {
            color_buffer_get_pixel(&help_buffer,i,j,&r,&g,&b);

            if (r == 0 && g == 0 && b == 0)
              {
                if (i == 0)
                  {
                    if (fill_colors == NULL)
                      {
                        r = 255;
                        g = 255;
                        b = 255;
                      }
                    else
                      {
                        r = fill_colors[0];
                        g = fill_colors[0];
                        b = fill_colors[0];
                      }
                  }
                else
                  color_buffer_get_pixel(&help_buffer,i - 1,j,&r,&g,&b);

                color_buffer_set_pixel(&help_buffer,i,j,r,g,b);
              }
          }

    pt_resize(&help_buffer,destination,INTERPOLATION_LINEAR);
    color_buffer_destroy(&tile_buffer);
    color_buffer_destroy(&help_buffer);
    free(polygon);
  }

//----------------------------------------------------------------------

void pt_replace_colors(t_color_buffer *buffer,
  unsigned char colors[][3],t_color_buffer *buffers[],
  unsigned int length)

  {
    unsigned int i,j,k;
    unsigned char r,g,b;

    for (j = 0; j < buffer->height; j++)
      for (i = 0; i < buffer->width; i++)
        {
          color_buffer_get_pixel(buffer,i,j,&r,&g,&b);

          // find the color:

          for (k = 0; k < length; k++)
            if (r == colors[k][0] && g == colors[k][1]
              && b == colors[k][2])
              {
                if (buffers[k] != NULL)
                  color_buffer_get_pixel(buffers[k],i,j,&r,&g,&b);

                break;
              }

          color_buffer_set_pixel(buffer,i,j,r,g,b);
        }
  }

//----------------------------------------------------------------------

void pt_bump_noise(t_color_buffer *buffer, double bump_size_from,
  double bump_size_to, unsigned int bump_quantity, int alter_amplitude,
  int random)

  {
    unsigned int bump_count,bump_size;
    int x,y;

    bump_size_from = saturate_double(bump_size_from,0.001,1.0);
    bump_size_to = saturate_double(bump_size_to,0.001,1.0);

      // cannot use 0.0 to prevent division by zero

    pt_color_fill(buffer,255,255,255);

    for (bump_size = bump_size_from * buffer->width;
      bump_size >= bump_size_to * buffer->width; bump_size *= 0.5)
      { 
        for (bump_count = (buffer->width / bump_size) * bump_quantity;
          bump_count > 0; bump_count--)
          {
            x = noise(random) * buffer->width;
            random++;
            y = noise(random) * buffer->height;
            random++;

            _pt_draw_bump(buffer,x,y,bump_size,alter_amplitude);
          }
	  }
  }

//----------------------------------------------------------------------

void pt_dithering(t_color_buffer *buffer, unsigned char levels,
  t_dithering_method method)

  {
    unsigned int i,j,k,matrix_size,limit;
    unsigned char r,g,b,r2,g2,b2,adding;
    unsigned char color_levels[3];
    int random;
    t_matrix bayer_matrix;
    double interval;
    double (*error_memory1)[3];
    double (*error_memory2)[3];
    double (*this_line_errors)[3];
    double (*next_line_errors)[3];
    double (*helper)[3];
    double error[3];

    random = 0;

    switch (method)

      {
        case DITHERING_THRESHOLD:

          for (j = 0; j < buffer->height; j++)
            for (i = 0; i < buffer->width; i++)
              {
                color_buffer_get_pixel(buffer,i,j,&r,&g,&b);

                if (r == g && g == b) // grayscale
                  {
                    r = dither_threshold(r,levels);
                    g = r;
                    b = r;
                  }
                else                  // non-grayscale
                  {
                    r = dither_threshold(r,levels);
                    g = dither_threshold(g,levels);
                    b = dither_threshold(b,levels);
                  }

                color_buffer_set_pixel(buffer,i,j,r,g,b);
              }

          break;

        case DITHERING_RANDOM:

          for (j = 0; j < buffer->height; j++)
            for (i = 0; i < buffer->width; i++)
              {
                color_buffer_get_pixel(buffer,i,j,&r,&g,&b);

                r = dither_random(r,levels,random);
                g = dither_random(g,levels,random);
                b = dither_random(b,levels,random);
                random++;

                color_buffer_set_pixel(buffer,i,j,r,g,b);
              }

          break;

        case DITHERING_ERROR_PROPAGATION:

          error_memory1 = malloc(buffer->width * sizeof(double) * 3);
          error_memory2 = malloc(buffer->width * sizeof(double) * 3);

          this_line_errors = error_memory1;
          next_line_errors = error_memory2;

          for (i = 0; i < buffer->width; i++) // clear the error memory
            {
              this_line_errors[i][0] = 0.0;
              this_line_errors[i][1] = 0.0;
              this_line_errors[i][2] = 0.0;
            }

          for (j = 0; j < buffer->height; j++)
            {
              for (k = 0; k < buffer->width; k++)
                {
                  next_line_errors[k][0] = 0.0;
                  next_line_errors[k][1] = 0.0;
                  next_line_errors[k][2] = 0.0;
                }

              for (i = 0; i < buffer->width; i++)
                {
                  color_buffer_get_pixel(buffer,i,j,&r,&g,&b);

                  // add the error:

                  r = round_to_char(r + this_line_errors[i][0]);
                  g = round_to_char(g + this_line_errors[i][1]);
                  b = round_to_char(b + this_line_errors[i][2]);

                  r2 = dither_threshold(r,levels); // threshold
                  g2 = dither_threshold(g,levels);
                  b2 = dither_threshold(b,levels);

                  error[0] = r - r2;  // compute the error
                  error[1] = g - g2;
                  error[2] = b - b2;

                  // distribute the error:

                  for (k = 0; k < 3; k++)
                    {
                      this_line_errors[(i + 1) % buffer->width][k] +=
                        0.4375 * error[k];               // 7 / 16

                      next_line_errors[i == 0 ? buffer->width - 1 :
                        i - 1][k] += 0.1875 * error[k];  // 3 / 16

                                                         // 5 / 16
                      next_line_errors[i][k] += 0.3125 * error[k];

                      next_line_errors[(i + 1) % buffer->width][k] +=
                        0.0625 * error[k];               // 1 / 16
                    }

                  color_buffer_set_pixel(buffer,i,j,r2,g2,b2);
                }

              helper = this_line_errors;  // swap the line error buffers
              this_line_errors = next_line_errors;
              next_line_errors = helper;
            }

          free(error_memory1);
          free(error_memory2);

          break;

        case DITHERING_ORDERED:

          // find the matrix size:

          for (matrix_size = 1; matrix_size <= 16; matrix_size++)
            if (matrix_size * matrix_size >= levels)
              break;

          matrix_init(&bayer_matrix,matrix_size,matrix_size);
          make_bayer_matrix(&bayer_matrix);
          interval = 255.0 / (double) levels;
          limit = matrix_size * matrix_size;

          for (j = 0; j < buffer->height; j++)
            for (i = 0; i < buffer->width; i++)
              {
                color_buffer_get_pixel(buffer,i,j,&r,&g,&b);

                // find the level for each channel:

                for (k = 1; k <= levels; k++)
                  if (r <= interval * k)
                    break;

                color_levels[0] = k - 1;

                for (k = 1; k <= levels; k++)
                  if (g <= interval * k)
                    break;

                color_levels[1] = k - 1;

                for (k = 1; k <= levels; k++)
                  if (b <= interval * k)
                    break;

                color_levels[2] = k - 1;

                adding = matrix_get_value(&bayer_matrix,i % matrix_size,
                  j % matrix_size);

                for (k = 0; k < 3; k++)
                  color_levels[k] = color_levels[k] + adding > limit ?
                    color_levels[k] + 1 : color_levels[k];

                color_buffer_set_pixel(buffer,i,j,color_levels[0] *
                  interval,color_levels[1] * interval,color_levels[2] *
                  interval);
              }

          matrix_destroy(&bayer_matrix);

          break;
      }
  }

//----------------------------------------------------------------------

--- FILE ./proctextures.h ---
#ifndef PROCTEXTURES_H
#define PROCTEXTURES_H

//**********************************************************************

/** @file
 * Header file providing advanced color buffer operations. The functions
 * provided are able to handle convolutions, generating Voronoi
 * diagrams, noise bitmaps and other things needed for making procedural
 * textures.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "matrix.h"
#include "colorbuffer.h"
#include "colortransition.h"
#include "general.h"
#include "grammar.h"
                              /** ways in which Voronoi diagrams can
                                   be created */
typedef enum
  {
    VORONOI_DISTANCE = 0,     /**< pixel color depends on distance to
                                   the nearest point */
    VORONOI_2_NEAREST_RATIO,  /**< pixel color depends on distance ratio
                                   from the nearest two points */
    VORONOI_NEAREST_HASH      /**< the pixel's color is computed only
                                   based on the nearest point position
                                   */
  } t_voronoi_type;

                            /** ways in which points can be placed
                                when generating Voronoi diagrams */
typedef enum
  {
    PLACE_RANDOM = 0,       ///< place points randomly
    PLACE_SQUARE,           ///< place points in a square
    PLACE_CIRCLE,           ///< place points in a circle
    PLACE_CROSS_HORIZONTAL, ///< place points in horizontal cross
    PLACE_CROSS_DIAGONAL,   ///< place points in diagonal cross
    PLACE_CUSTOM            ///< let user place the points
  } t_point_place_type;

                            /** ways in which buffers can be mixed
                                 together */
typedef enum
  {
    MIX_ADD = 0,            ///< pixel color = buffer1 + buffer2
    MIX_SUBSTRACT,          ///< pixel color = buffer1 - buffer2
    MIX_AVERAGE,            ///< pixel color = (buffer1 + buffer2) / 2
    MIX_MULTIPLY            ///< pixel color = buffer1 * buffer2 (float)
  } t_mix_type;

                              /** possible values that can be passed to
                                  edge detection functions */
typedef enum
  {
    DETECTION_HORIZONTAL = 0, ///< detect horizontal edges
    DETECTION_VERTICAL,       ///< detect vertical edges
    DETECTION_BOTH            ///< detect both types of edges
  } t_edge_detection_type;

                              /** possible directions of image blur,
                                  flip and so on */
typedef enum
  {
    DIRECTION_HORIZONTAL = 0, ///< horizontal direction
    DIRECTION_VERTICAL,       ///< vertical direction
    DIRECTION_DIAGONAL_LU_RD, ///< left-up to righ-down direction
    DIRECTION_DIAGONAL_LD_RU  ///< left-down to right-up direction
  } t_direction;

                              /** possible ways of filling areas with
                                  constant color */
typedef enum
  {
    FILL_NONE = 0,            ///< no fill
    FILL_KEEP_BORDERS,        ///< fill and keep black borders
    FILL_NO_BORDERS           ///< fill the areas and also their borders
  } t_fill_type;

                              /** curves for computing specular
                                  reflections with lighting */
typedef enum
  {
    REFLECTION_CURVE_COSINE_SMOOTH = 0,  ///< (cosine + 1) / 2
    REFLECTION_CURVE_COSINE_ABS,    ///< absolute value of cosine
    REFLECTION_CURVE_LINEAR_HALF,   ///< linear dependency to pi / 2
    REFLECTION_CURVE_LINEAR_FULL    ///< linear dependency to pi
  } t_reflection_curve;

                              /** possible methods of dithering */

typedef enum
  {
    DITHERING_THRESHOLD = 0,        ///< threshold dithering
    DITHERING_RANDOM,               ///< random dithering
    DITHERING_ERROR_PROPAGATION,    ///< Floyd–Steinberg dithering
    DITHERING_ORDERED               ///< ordered dithering
  } t_dithering_method;

//----------------------------------------------------------------------

void pt_color_fill(t_color_buffer *buffer, int red, int green,
  int blue);

  /**<
   * Fills given buffer with given color.
   *
   * @param buffer buffer to be filled with the color
   * @param red amount of red in the fill color
   * @param green amount of green in the fill color
   * @param blue amount of blue in the fill color
   */

//----------------------------------------------------------------------

void pt_add_rgb(t_color_buffer *buffer, int red, int green, int blue);

  /**<
   * Adds constants to each pixel of given color buffer.
   *
   * @param buffer input (and output) buffer of the operation
   * @param red value to add to red channel
   * @param green value to add to green channel
   * @param blue value to add to blue channel
   */

//----------------------------------------------------------------------

void pt_add_hsl(t_color_buffer *buffer, double hue, double saturation,
  double lightness);

  /**<
   * Adds HSV value to each pixel of given color buffer.
   *
   * @param buffer input (and output) buffer of the operation
   * @param hue value in range <-1,1> to add to hue
   * @param saturation value in range <-1,1> to add to saturation
   * @param lightness value in range <-1,1> to add to lightness
   */

//----------------------------------------------------------------------

void pt_add_brightness_contrast(t_color_buffer *buffer,
  double brightness, double contrast);

  /**<
   * Adjust brightness and/or contrast of given image by adding
   * specified values.
   *
   * @param buffer image to be adjusted
   * @param brightness amount of brightness to add, must be in range
   *        <-1,1>
   * @param contrast amount of contrast to add, must be in range <-1,1>
   */

//----------------------------------------------------------------------

void pt_add_value(t_color_buffer *buffer, int value);

  /**<
   * Adds a constant value to each pixel of given color buffer.
   *
   * @param buffer input (and output) buffer of the operation
   * @param value value to be added to each pixel
   */

//----------------------------------------------------------------------

void pt_multiply_value(t_color_buffer *buffer, double value);

  /**<
   * Multiplies each pixel of given buffer by given value.
   *
   * @param buffer input (and output) buffer of the operation
   * @param value value to multiply each pixel by, must be greater than
   *        or equal to zero
   */

//----------------------------------------------------------------------

void pt_shift(t_color_buffer *buffer, int shift_x, int shift_y);

  /**<
   * Shifts all pixel positions in given buffer by given x and y offset,
   * shifting pixels over buffers edge will move them to the oposite
   * edge.
   *
   * @param buffer color buffer in which the pixels will be shifted
   * @param shift_x x offset of the shift
   * @param shift_y y offset of the shift
   */

//----------------------------------------------------------------------

void pt_rotate(t_color_buffer *buffer, double angle);

  /**<
   * Rotates specified image by given angle.
   *
   * @param buffer color buffer in which the pixels will be shifted
   * @param angle clockwise angle of the rotation
   */

//----------------------------------------------------------------------

void pt_flip(t_color_buffer *buffer, t_direction direction);

  /**<
   * Flips an image in color buffer in specified direction.
   *
   * @param buffer color buffer in which the image will be flipped
   * @param direction direction in which the image will be flipped, may
   *        only be horizontal or vertical (not diagonal)
   */

//----------------------------------------------------------------------

void pt_tile(t_color_buffer *buffer, unsigned int times,
  t_color_buffer *destination);

  /**<
   * Resizes the texture to smaller resolution and repeats it given
   * number of times horizontaly and verticaly so that it will keep the
   * original resolution.
   *
   * @param buffer input color buffer of the operation
   * @param times how many times the texture will be repeated
   *        horizontaly and verticaly
   * @param destination color buffer in which the result will be stored,
   *        it must be dealocated before this function is called
   */

//----------------------------------------------------------------------

void pt_change_resolution(t_color_buffer *buffer,
  unsigned int new_width, unsigned int new_height);

  /**<
   * Changes resolution of the color buffer keeping the image it
   * contains. The image is not resized, it is either cut or copied so
   * that it will fit the new resolution.
   *
   * @param buffer buffer to change the resolution of
   * @param new_width new width in pixels
   * @param new_height new height in pixels
   */

//----------------------------------------------------------------------

void pt_resize(t_color_buffer *buffer, t_color_buffer *destination,
  t_interpolation_method interpolation);

  /**<
   * Resizes the image in buffer so it fits the size of destination and
   * stores the image in destination.
   *
   * @param buffer image to be resized
   * @param destination buffer in which the resized image will be
   *        stored, its size determines the new image size so it must be
   *        initialised when this function is called
   * @param interpolation method of pixel value interpolation
   */

//----------------------------------------------------------------------

void pt_supersampling(t_color_buffer *buffer, unsigned int level,
  t_color_buffer *destination);

  /**<
   * Performs supersampling with given color buffer. This operation
   * smooths the whole image but reduces it's resolution.
   *
   * @param buffer input buffer of the operation
   * @param level supersampling level, value of one has no effect,
   *        higher values makes the image smaller and smoother (for
   *        example number 2 will make the image 2x smaller)
   * @param destination color buffer in which the result will be stored,
   *        must be deallocated before this function is called
   */

//----------------------------------------------------------------------

void pt_add_buffers(t_color_buffer *buffer1, t_color_buffer *buffer2);

  /**<
   * Adds one color buffer's pixel values to other buffer's pixel
   * values.
   *
   * @param buffer1 buffer to be added to buffer2
   * @param buffer2 buffer to which buffer1 will be added and in which
   *        the result will be stored
   */

//----------------------------------------------------------------------

void pt_substract_buffers(t_color_buffer *buffer1,
  t_color_buffer *buffer2);

  /**<
   * Substracts one color buffer's pixel values from other buffer's
   * pixel values.
   *
   * @param buffer1 to be substracted from the second buffer
   * @param buffer2 buffer from which the first buffer will be
   *        substracted and in which the result will be stored
   */

//----------------------------------------------------------------------

void pt_mix_buffers(t_color_buffer *buffer1, t_color_buffer *buffer2,
  t_color_buffer *destination, int percentage, t_mix_type type,
  t_color_buffer *buffer_alpha);

  /**<
   * Mixes two buffers together in given way, both buffers must be of
   * the same sizes.
   *
   * @param buffer1 first buffer to be mixed with the other
   * @param buffer2 second buffer to be mixed with the other
   * @param destination this buffer will be filled with the result of
   *        mixing, it muse be dealocated before this function is called
   *        and must be different from the input buffers
   * @param percentage percentage value (0-100) specifiying the ratio
   *        of the mix, value 0 - 50 mean that 100% of the buffer1
   *        values will be used and 0% - 100% values of buffer2 will be
   *        used, values 50 - 100 mean that 100% - 0% of buffer1 values
   *        will be used and 100% of buffer2 values will be used, this
   *        parameter is only used when alpha is NULL
   * @param type way in which buffers will be mixed together
   * @param alpha color buffer specifying the percentage parameter for
   *        each pixel of the picture, it is only used when it's not
   *        NULL, only red channel of the specified buffer is used in
   *        a way when 0 means 0% and 255 means 100%
   */

//----------------------------------------------------------------------

void pt_mix_channels(t_color_buffer *buffer_red,
  t_color_buffer *buffer_green, t_color_buffer *buffer_blue,
  t_color_buffer *destination);

  /**<
   * Mixes red, green and blue channel from different color buffers to
   * a single color buffer. All buffers must be of the same resolution.
   *
   * @param buffer_red buffer of which the red channel will be used
   * @param buffer_green buffer of which the green channel will be used
   * @param buffer_blue buffer of which the blue channel will be used
   * @param destination buffer in which the result will be stored, it
   *        must be dealocated before this function is called and must
   *        be different from the input buffers
   */

//----------------------------------------------------------------------

void pt_replace_colors(t_color_buffer *buffer,
  unsigned char colors[][3],t_color_buffer *buffers[],
  unsigned int length);

  /**<
   * Replaces specified colors in given color buffer with content of
   * other buffers.
   *
   * @param buffer buffer in which the replacing happens
   * @param colors array of [r,g,b] colors, each color is paired with
   *        one color buffer of buffers array at the same index.
   * @param buffers array of pointers to color buffers, each one matches
   *        one color from colors array and replaces that color in the
   *        destination buffer with it's content, the array may contain
   *        NULL values which mean the corresponding color won't be
   *        replaced
   * @param length length of colors and buffers arrays
   */

//----------------------------------------------------------------------

void pt_convolution(t_color_buffer *buffer, t_matrix *matrix);

  /**<
   * Performs a convolution at given buffer.
   *
   * @param buffer input (and output) buffer of convolution operation
   * @param matrix convolution matrix
   */

//----------------------------------------------------------------------

void pt_convolution_3x3(t_color_buffer *buffer, double a1, double a2,
  double a3, double b1, double b2, double b3, double c1, double c2,
  double c3);

  /**<
   * Performs a convolution at given buffer with matrix of size 3 x 3.
   *
   * @param buffer input (and output) buffer of convolution operation
   * @param a1 value at position a1 in the matrix
   * @param a2 value at position a2 in the matrix
   * @param a3 value at position a3 in the matrix
   * @param b1 value at position b1 in the matrix
   * @param b2 value at position b2 in the matrix
   * @param b3 value at position b3 in the matrix
   * @param c1 value at position c1 in the matrix
   * @param c2 value at position c2 in the matrix
   * @param c3 value at position c3 in the matrix
   */

//----------------------------------------------------------------------

void pt_voronoi_diagram(t_voronoi_type type, t_metric metric,
  t_point_place_type point_place,  unsigned int parameter1,
  unsigned int parameter2, unsigned int parameter3[][2],
  t_color_buffer *destination);

  /**<
   * Generated Voronoi diagram and stores it in a color buffer.
   *
   * @param type way in which pixel color will be computed depending
   *        on distances to given set of points
   * @param metric a way in which distance between points will be
   *        measured
   * @param point_place way in which points of Voronoi diagram will be
   *        placed
   * @param parameter1 first parameter of point placement, it's
   *        semantics is dependent on point_place parameter value as
   *        follows:
   *
   *        PLACE_RANDOM - value that will be passed to noise
   *          function (will generate different random numbers with
   *          different values),
   *
   *        PLACE_SQUARE - square width in percents of buffer width
   *
   *        PLACE_CIRCLE - circle radius in percents of buffer width
   *
   *        PLACE_CROSS_HORIZONTAL - cross side length in  percents of
   *          buffer width
   *
   *        PLACE_CROSS_DIAGONAL - cross side length in  percents of
   *          buffer width
   *
   *        PLACE_CUSTOM - length of array of points pointed to by
   *          parameter3
   *
   * @param parameter2 second parameter of point placement, it's
   *        semantics is dependent on point_place parameter value as
   *        follows:
   *
   *        PLACE_RANDOM - number of points generated
   *
   *        PLACE_SQUARE - number of points of one side of the square
   *
   *        PLACE_CIRCLE - number of points of the circle
   *
   *        PLACE_CROSS_HORIZONTAL - number of points per cross side
   *          (including the center point)
   *
   *        PLACE_CROSS_DIAGONAL - number of points per cross side
   *          (including the center point)
   *
   *        PLACE_CUSTOM - no meaning
   *
   * @param parameter3 array of point coordinations (0 ~ x, 1 ~ y), is
   *        used only with PLACE_CUSTOM value of point_place parameter,
   *        for resolution-indipendent point specification use function
   *        coord_array_double_to_int
   * @param destination buffer to store the diagram to, must be already
   *        initialized
   */

//----------------------------------------------------------------------

void pt_voronoi_diagram_random(t_voronoi_type type, t_metric metric,
  int random, int points, t_color_buffer *destination);

  /**<
   * Generated Voronoi diagram with random point placement and stores
   * it in a color buffer.
   *
   * @param type way in which pixel color will be computed depending
   *        on distances to given set of points
   * @param metric a way in which distance between points will be
   *        measured
   * @param random value that will be passed to noise function,
   *        different values will generate different point placements
   * @param points number of points in the diagram
   * @param destination buffer to store the diagram to, must be already
   *        initialized
   */

//----------------------------------------------------------------------

void pt_voronoi_diagram_simple(int random, int points,
  t_color_buffer *destination);

  /**<
   * Generates Voronoi diagram using Euclidean metrics and 2 nearest
   * points ration color computation.
   *
   * @param random value that will be passed to noise function,
   *        different values will generate different point placements
   * @param points number of points in the diagram
   * @param destination buffer to store the diagram to, must be already
   *        initialized
   */

//----------------------------------------------------------------------

void pt_simple_noise(int random, unsigned char amplitude, int grayscale,
  t_color_buffer *destination);

  /**<
   * Generates a simple white noise by setting pixels of given buffer to
   * pseudo-random values.
   *
   * @param random number passed to noise function, different numbers
   *        will generate different noise results
   * @param amplitude amplitude of the noise, should be in range
   *        <0,128>
   * @param grayscale boolean parameter that says whether the output
   *        noise should be grayscale (true) or colored (false)
   * @param destination color buffer to store the result to, must be
   *        initialized before this function is called
   */

//----------------------------------------------------------------------

void pt_perlin_noise(int random, unsigned char base_amplitude,
  unsigned int base_frequency, int max_iterations,
  t_interpolation_method interpolation, t_color_buffer *destination,
  int smooth);

  /**<
   * Generates a fractal perlin noise and stores it in given color
   * buffer as an image.
   *
   * @param random number passed to noise function, different numbers
   *        will generate different noise results
   * @param base_amplitude amplitude of the base frequency, should be in
   *        range <0,128>
   * @param base_frequency base, lowest frequency of the noise
   * @param max_iterations maximum number of iterations, negative number
   *        means no limit (generating will stop when the frequency is
   *        higher than buffer resolution or when the amplitude reaches
   *        zero)
   * @param interpolation interpolation type
   * @param destination color buffer to store the result to, must be
   *        initialized before this function is called
   * @param smooth says if the noise should be smoothed so that the
   *        number of artifacts is reduced (this is takes a little more
   *        time but looks nicer)
   */

//----------------------------------------------------------------------

void pt_bump_noise(t_color_buffer *buffer, double bump_size_from,
  double bump_size_to, unsigned int bump_quantity, int alter_amplitude,
  int random);

  /**<
   * Generates a noise by putting circle bumps of decreasing size over
   * each other.
   *
   * @param buffer buffer in which the result will be stored, must be
   *        initialised
   * @param bump_size_from a number in range <0,1> which determines
   *        initial bump size in fraction of the buffer width, this
   *        is the upper limit
   * @param bump_size_to a number in range <0,1> which determines
   *        final bump size in fraction of the buffer width, this is
   *        the lower limit
   * @param bump_quantity a number that specifies how fast the bump
   *        count will grow, use value 1 for common usage
   * @param alter_amplitude says if the amplitude of the bumps will be
   *        lowered with each iteration (1) or not (0), non-altering
   *        amplitude creates a sharper image
   * @param random number that determines placement of the bumps,
   *        different values will give different results
   */

//----------------------------------------------------------------------

void pt_fault_formation_noise(int random, t_color_buffer *destination);

  /**<
   * Generates a noise using fault formation based algorithm and stores
   * the result in given color buffer as an image.
   *
   * @param random number passed to noise function, different numbers
   *        will generate different noise results
   * @param destination color buffer to store the result to, must be
   *        initialized before this function is called
   */

//----------------------------------------------------------------------

void pt_substrate(int random, int iterate, unsigned int number,
  t_fill_type fill_type, int fill_grayscale,
  t_color_buffer *destination);

  /**<
   * Generates black and white image using substrate algorithm. Areas
   * may be randomly filled either in grayscale or with full color
   * range.
   *
   * @param random value passed to noise function, different values
   *        generate different images
   * @param iterate says whether to use iterations or not
   * @param number semantics of this parameter depends on value of
   *        iterate parameter, if it is true, this parameter says how
   *        many iterations there will be, if it is false, this
   *        parameter says how many lines there will be
   * @param fill_type way in which areas of the picture will be filled
   * @param fill_grayscale this parameter is only used when fill_type
   *        is not set to FILL_NONE, then if this parameters is true,
   *        the fill colors will only be gryscale, otherwise different
   *        RGB values will be generated
   * @param destination color buffer in which the generated result will
   *        be stored, must be initialized before this function is
   *        called
   */

//----------------------------------------------------------------------

void pt_substrate_simple(int random, int iterations, int fill,
  t_color_buffer *destination);

  /**<
   * Generated substrate algorithm image.
   *
   * @param random value passed to noise function, different values
   *        generate different images
   * @param iterations number of iterations
   * @param fill if true, the image will be filled with random colors,
   *        otherwise it won't be filled
   * @param destination color buffer in which the result will be stored
   */

//----------------------------------------------------------------------

void pt_mosaic_square(t_color_buffer *destination,
  t_fill_type fill_type, unsigned char fill_colors[],
  unsigned char number_of_colors, t_square_mosaic *mosaic);

  /**<
   * Creates an mosaic image based on square grid.
   *
   * @param destination color buffer in which the result will be stored,
   *        should be already initialised
   * @param fill_type says how the tiles will be filled with color
   * @param fill_colors array of grayscale values with which the tiles
   *        will be colored, the colors are assigned to tiles in left to
   *        right, top to bottom order, if this parameter is NULL, all
   *        tiles will be filled with white color, if there is more
   *        tiles than colors specified, the colors will be assigned
   *        cyclically
   * @param number_of_colors length of fill_colors array
   * @param mosaic mosaic specification, if it's not valid, no mosaic
   *        will be generated (validity can be checked with special
   *        functions)
   */

//----------------------------------------------------------------------

void pt_cellular_automaton_rps(t_color_buffer *buffer,
  t_neighbourhood_type neighbourhood, unsigned int neighbourhood_size,
  unsigned char number_of_players, int random, unsigned int iterations);

  /**<
   * Generates an image using general rock paper scissors cellular
   * automaton.
   *
   * @param buffer input and output buffer of the operation, it should
   *        contain the initial state as a grayscale image (image will
   *        be converted to grayscale anyway), threshold operation
   *        will be performed with the buffer to get desired number of
   *        states
   * @param neighbourhood neighbourhood used
   * @param neighbourhood_size neighbourhood size
   * @param number_of_players number of players for the rock paper
   *        scissors game, this should be an odd number, the automaton
   *        will have number_of_players + 1 states (blank space is the
   *        extra state), maximum allowed value is 25
   * @param random random number passed to the noise function,
   *        different numbers will give different results
   * @param iterations number of iterations
   */

//----------------------------------------------------------------------

void pt_cellular_automaton_cyclic(t_color_buffer *buffer,
  t_neighbourhood_type neighbourhood, unsigned int neighbourhood_size,
  unsigned char states, unsigned int threshold, unsigned int iterations);

  /**<
   * Generates an image using cyclic cellular automaton.
   *
   * @param buffer input and output buffer of the operation, it should
   *        contain the initial state as a grayscale image (image will
   *        be converted to grayscale anyway), threshold operation
   *        will be performed with the buffer to get desired number of
   *        states
   * @param neighbourhood neighbourhood used
   * @param neighbourhood_size neighbourhood size
   * @param states number of states of the automaton, i.e. the period
   *        of the cycle
   * @param threshold minimum number of cells with the next cycle color
   *        in cell's neighbourhood for it to be promoted to the next
   *        color
   * @param iterations number of iterations
   */

//----------------------------------------------------------------------

void pt_cellular_automaton_general(t_color_buffer *buffer,
  unsigned char states, int rules[256], unsigned int iterations);

  /**<
   * Generates an image using general binary cellular automaton with
   * Moore neighbourhood. All possible binary rules for Moore
   * neighbourhood can be specified, the automaton however may not only
   * be binary. Other cell states are achieved with so called history -
   * if a cell would die, it only gets older (advances to the next
   * state), old cells can not give birth to new cells
   *
   * @param buffer input and output buffer of the operation, it should
   *        contain the initial state as a grayscale image (image will
   *        be converted to grayscale anyway), threshold operation
   *        will be performed with the buffer to get desired number of
   *        states
   * @param states number of states of the automaton
   * @param rules array of rules where each index represents one of all
   *        possible states of given cell's neighbourhood, the indice's
   *        number is considered a binary representation of the cell's
   *        neighbour cell values in order NW, N, NE, E, SE, S, SW, W,
   *        where NW is LSB and W MSB, the value stored on index can be:
   *        1 (or any positive) - the cell is born
   *        0 - nothing happens to the cell
   *        -1 (or any negative) - the cell dies
   * @param iterations number of iterations
   */

//----------------------------------------------------------------------

void pt_marble(int random, unsigned int periods, unsigned int intensity,
  t_direction direction, unsigned int amplitude,
  t_color_buffer *destination, t_color_buffer *noise_source);

  /**<
   * Generates marble-like structure into given color buffer.
   *
   * @param random value passed to noise function, different values
   *        generate different images
   * @param periods number of periods that will be used for initial
   *        color transition used for generating the structure
   * @param intensity intensity of the effect
   * @param direction direction in which the initial transition will be
   *        generated
   * @param amplitude amplitude of the picture, must be less or equal to
   *        127
   * @param destination color buffer in which the result will be stored,
   *        must be initialised before this function is called
   * @param noise_source external source of the noise, it may be NULL in
   *        which case perlin noise will be generated and used, if this
   *        parameter is used, the noise color buffer must be of the
   *        same size as destination
   */

//----------------------------------------------------------------------

void pt_wood(int random, unsigned int circles, unsigned int hardness,
  unsigned int intensity, t_direction direction, unsigned int amplitude,
  t_color_buffer *destination, t_color_buffer *noise_source);

  /**<
   * Generates wood-like structure into given color buffer.
   *
   * @param random value passed to noise function, different values
   *        generate different images
   * @param circles number of circles of the basic shape being modulated
   * @param hardness higher values result in more intense edges
   * @param intensity intensity of the effect
   * @param direction direction in which the modulation will be applied
   * @param amplitude amplitude of the picture, must be less or equal to
   *        127
   * @param destination color buffer in which the result will be stored,
   *        must be initiated before this function is called
   * @param noise_source external source of the noise, it may be NULL in
   *        which case perlin noise will be generated and used, if this
   *        parameter is used, the noise color buffer must be of the
   *        same size as destination
   */

//----------------------------------------------------------------------

void pt_marble_simple(int random, unsigned int intensity,
  unsigned int amplitude, t_color_buffer *destination);

  /**<
   * Generates marble-like structure using Perlin noise, horizontal
   * direction and 4 periods.
   *
   * @param random value passed to noise function, different values
   *        generate different images
   * @param intensity intensity of the effect
   * @param amplitude amplitude of the picture, must be less or equal to
   *        127
   * @param destination color buffer in which the result will be stored,
   *        musr be initiated before this function is called
   */

//----------------------------------------------------------------------

void pt_wood_simple(int random, unsigned int intensity,
  unsigned int amplitude, t_color_buffer *destination);

  /**<
   * Generates wood-like structure using Perlin noise, horizontal
   * direction and 5 circles.
   *
   * @param random value passed to noise function, different values
   *        generate different images
   * @param intensity intensity of the effect
   * @param amplitude amplitude of the picture, must be less or equal to
   *        127
   * @param destination color buffer in which the result will be stored,
   *        musr be initiated before this function is called
   */

//----------------------------------------------------------------------

void pt_particle_movement(t_color_buffer *noise_buffer,
  unsigned int particles, double position_x, double position_y,
  unsigned int angle, unsigned int spread, double velocity,
  t_color_buffer *destination);

  /**<
   * Creates an grayscale image of moving particles.
   *
   * @param noise grayscale image that serves as a mosulation for the
   *        random particle movement, this should be some kind of perlin
   *        (or other) noise, this buffer's resolution determines the
   *        result image resolution
   * @param particles number of particles
   * @param position_x initial x position of the source in range <0,1>
   * @param position_y initial y position of the source in range <0,1>
   * @param angle initial angle of the particles in degrees (starting
   *        poiting to right)
   * @param spread angle difference in degrees from initial angle within
   *        which the particles will be fired (so 360 means all
   *        directions)
   * @param velocity initial velocity of each particle in percents of
   *        the noise_buffer width
   * @param destination in this variable the result image will be
   *        returned, it should be deallocated before this function is
   *        called
   */

//----------------------------------------------------------------------

void pt_particle_movement_color(t_color_buffer *noise_buffer,
  unsigned int particles, double position_x, double position_y,
  unsigned int angle, unsigned int spread, double velocity,
  t_color_buffer *destination, unsigned char red, unsigned char green,
  unsigned char blue);

  /**<
   * Creates an colored image of moving particles.
   *
   * @param noise grayscale image that serves as a mosulation for the
   *        random particle movement, this should be some kind of perlin
   *        (or other) noise, this buffer's resolution determines the
   *        result image resolution
   * @param particles number of particles
   * @param position_x initial x position of the source in range <0,1>
   * @param position_y initial y position of the source in range <0,1>
   * @param angle initial angle of the particles in degrees (starting
   *        poiting to right)
   * @param spread angle difference in degrees from initial angle within
   *        which the particles will be fired (so 360 means all
   *        directions)
   * @param velocity initial velocity of each particle in percents of
   *        the noise_buffer width
   * @param destination in this variable the result image will be
   *        returned, it should be deallocated before this function is
   *        called
   * @param red amount of red color of the particles
   * @param green amount of green color of the particles
   * @param blue amount of blue color of the particles
   */

//----------------------------------------------------------------------

void pt_particles_simple(unsigned int particles, unsigned int sources,
  double velocity, unsigned char red, unsigned char green,
  unsigned char blue, t_color_buffer *destination, int random);

  /**<
   * Using quite simple interface generates colored particle movement
   * image with given number of particle sources. Uses perlin noise
   * and random placement of the sources, particles spread in all
   * directions.
   *
   * @param particles number of particles at each source
   * @param sources number of sources
   * @param velocity initial velocity of each particle
   * @param red amount of red in the particle color
   * @param green amount of green in the particle color
   * @param blue amount of blue in the particle color
   * @param destination buffer in which the result will be stored, must
   *        be already initialised
   * @param random number affecting random actions during calculations
   */

//----------------------------------------------------------------------

void pt_turtle_draw(t_color_buffer *buffer, t_grammar *grammar,
  double start_x, double start_y, int start_angle,
  double noise_intensity, double particle_density);

  /**<
   * Draws given L-System with turtle graphics into given buffer.
   *
   * @param buffer buffer in which the image will be drawn, it must be
   *        initialised
   * @param grammar grammar with generated string that will be grawn,
   *        for the string semantics see documentation
   * @param start_x initial x position of the turtle in range <0,1>
   * @param start_y initial y position of the turtle in range <0,1>
   * @param start_angle initial angle of the turtle in degrees
   * @param noise_intensity affects drawing of particles, says how much
   *        their velocity is affected by the noise, this should be in
   *        range <0,1> (the less, the straighter particle lines)
   * @param says how many particles there will be when particle lines
   *        are drawn, this should be in range <0,1> (bigger value means
   *        more particles)
   */

//----------------------------------------------------------------------

int pt_turtle_get_point_list(t_color_buffer *buffer, t_grammar *grammar,
  double start_x, double start_y, int start_angle,
  unsigned int list[][2], unsigned int *length,
  unsigned int max_length);

  /**<
   * Creates a list of points that the turtle would travel if it was to
   * draw an L-System based on given grammar.
   *
   * @param buffer buffer that the turtle would draw into, it is only
   *        needed for some information and the data in the buffer will
   *        not be changed
   * @param grammar grammar with generated string that will navigate the
   *        turtle
   * @param start_x initial x position of the turtle in range <0,1>
   * @param start_y initial y position of the turtle in range <0,1>
   * @param start_angle initial angle of the turtle in degrees
   * @param list in this two-dimensional array the list of points will
   *        be returned in format [point number][x and y points]
   * @param length in this variable the length of list will be returned
   * @param max_length maximum allowed length of the list
   */

//----------------------------------------------------------------------

void pt_transformation_circle(t_color_buffer *buffer, int radius,
  unsigned int repeat, t_color_buffer *destination);

  /**<
   * Makes a circle transformation with given color buffer. This
   * transformation computes output color of each pixel by taking
   * pixel at current position of the source buffer, transforming it's
   * color intensity to angle in which direction it jumps by given
   * length. This can be performed multiple times. Pixel color of the
   * pixel we get to this way is the color that will be set at current
   * position of the destination buffer.
   *
   * @param buffer source buffer for transformation, average values of
   *        RGB of each pixel is used as angle
   * @param radius length of the jump in percents of buffer width
   * @param repeat number of times the jump is performed
   * @param destination destination buffer in which the result will be
   *        stored, must be dealocated before this function is called
   */

//----------------------------------------------------------------------

void pt_transformation_radius(t_color_buffer *buffer,
  unsigned int radius_min, unsigned int radius_max, int rotate_left,
  int go_horizontal, t_color_buffer *destination);

  /**<
   * Makes a radius transformation which takes pixels from top left to
   * bottom right corner of the image and with each pixel it performs
   * special operation. This operation consists of converting the pixel
   * value to radius length and moving in an angle by this length. The
   * angle starts at zero and rotates as the position in the buffer
   * changes. Average value of each pixel's RGB is used.
   *
   * @param buffer input buffer of the operation
   * @param radius_min minimum length of the radius that will be used
   *        when the pixel value is 0
   * @param radius_max maximum length of the radius that will be used
   *        when the pixel value is 255
   * @param rotate_left if true, the angle will rotate left, otherwise
   *        right
   * @param go_horizontal if true, the angle will change with horizontal
   *        movement, otherwise vertical
   * @param destination output buffer of the operation, must be
   *        deallocated
   */

//----------------------------------------------------------------------

void pt_transformation_sine(t_color_buffer *buffer, double phase,
  int periods, unsigned char amplitude, t_color_buffer *destination);

  /**<
   * Makes a sine transformation applying sinus function to every
   * pixel of the input buffer. Average value of each pixel's RGB is
   * used.
   *
   * @param buffer input buffer of the transformation
   * @param phase starting phase of the sinus function in radians
   * @param periods number od sinus periods that will be mapped to
   *        0 - 255 range (possible pixel values)
   * @param amplitude amplitude of the function, should be in range
   *        0 - 255
   * @param destination color buffer to store the result to, must be
   *        dealocated before this function is called
   */

//----------------------------------------------------------------------

void pt_blur(t_color_buffer *buffer, unsigned int intensity);

  /**<
   * Blurs image stored in color buffer. Using this function is slightly
   * faster than using convolution to blur the image.
   *
   * @param buffer buffer with image to be blured
   * @param intensity intensity of blur
   */

//----------------------------------------------------------------------

void pt_motion_blur(t_color_buffer *buffer, t_direction direction,
  unsigned int intensity);

  /**<
   * Blurs image in given direction and with specified intensity.
   *
   * @param buffer buffer with image to be blured
   * @param direction direction in which the image will be blured
   * @param intensity intensity of the effect
   */

//----------------------------------------------------------------------

void pt_sharpen(t_color_buffer *buffer, unsigned int intensity);

  /**<
   * Sharpens image in given color buffer.
   *
   * @param buffer input and output buffer of the operation
   * @param intensity intensity of the sharpen effect
   */

//----------------------------------------------------------------------

void pt_emboss(t_color_buffer *buffer, unsigned int intensity);

  /**<
   * Performs emboss effect with given color buffer.
   *
   * @param buffer input and output buffer of the operation
   * @param intensity of the effect
   */

//----------------------------------------------------------------------

void pt_edge_detection(t_color_buffer *buffer,
  t_edge_detection_type type, int intensity);

  /**<
   * Performs an edge detection operation with given buffer and
   * intensity using convolution filters.
   *
   * @param buffer input (and output) buffer of the operation
   * @param type type of edge detection
   * @param intensity intensity of the operation, should be in interval
   *        <1,10>
   */

//----------------------------------------------------------------------

void pt_invert_colors(t_color_buffer *buffer);

  /**<
   * Inverts color in given color buffer.
   *
   * @param buffer input (and output) buffer
   */

//----------------------------------------------------------------------

void pt_dithering(t_color_buffer *buffer, unsigned char levels,
  t_dithering_method method);

  /**
   * Performs dithering with given image.
   *
   * @param buffer input and output color buffer of the operation,
   *        dithering is applied to all channels separately
   * @param levels number of values each pixel can have in one channel
   * @param method dithering method to use
   */

//----------------------------------------------------------------------

void pt_crop_amplitude(t_color_buffer *buffer,
  unsigned char lower_limit, unsigned char upper_limit);

  /**<
   * Crops the amplitude of given grayscale image so it fits given limit
   * values. Any value above upper or below lower limit will be
   * restricted to this value.
   *
   * @param buffer buffer to perform the operation with, should contain
   *        grayscale image
   * @param lower_limit lower limit of the crop
   * @param upper_limit upper limit of the crop
   */

//----------------------------------------------------------------------

void pt_normal_map(t_color_buffer *buffer, unsigned int
  neighbourhood_size, t_color_buffer *destination);

  /**<
   * The function considers the input buffer as a grayscale heightmap
   * and creates it's normal map.
   *
   * @param buffer input buffer, grayscale heightmap
   * @param neighbourhood_size number of pixels that are considered
   *        pixel's neighbours, minimum is 1, lower value is more
   *        accurate, higher value is smoother
   * @param destination in this buffer the normal map will be stored,
   *   this buffer must be deallocated before this function is called
   */

//----------------------------------------------------------------------

void pt_light(t_color_buffer *normal_map, t_color_buffer *destination,
  unsigned char ambient_r, unsigned char ambient_g,
  unsigned char ambient_b, unsigned char diffuse_r,
  unsigned char diffuse_g, unsigned char diffuse_b,
  unsigned char specular_r, unsigned char specular_g,
  unsigned char specular_b, double phong_exponent,
  t_reflection_curve reflection_curve, double viewer_z,
  double light_vector_x, double light_vector_y);

  /**<
   * Based on provided normal map computes the intensity of each pixel
   * when illuminated by specified light source and with given viewer
   * position. The intensity map is stored as an RGB image, when for
   * each element 255 is the maximum value and 0 is the minimum value.
   *
   * @param normal_map buffer in which the normalised normal map is
   *        stored
   * @param destination in this buffer the final intensity map will be
   *        stored, it must be deallocated before this function is
   *        called
   * @param ambient_r amount of red intensity for the ambient light
   * @param ambient_g amount of green intensity for the ambient light
   * @param ambient_b amount of blue intensity for the ambient light
   * @param diffuse_r amount of red intensity for the diffuse light
   * @param diffuse_g amount of green intensity for the diffuse light
   * @param diffuse_b amount of blue intensity for the diffuse light
   * @param specular_r amount of red intensity for the specular light
   * @param specular_g amount of green intensity for the specular light
   * @param specular_b amount of blue intensity for the specular light
   * @param phong_exponent affects the smoothness of the surface by
   *        raising the reflection curve to the power of this parameter
   * @param reflection_curve specifies how specular reflections will
   *        look
   * @param viewer_z z position of the viewer, where 1 is equal to the
   *        image width, x and y positions are considered in the middle
   *        of the image
   * @param light_vector_x x element of the light vector pointing down
   *        towards the image (the z element is considered 1.0)
   * @param light_vector_y y element of the light vector pointing down
   *        towards the image (the z element is considered 1.0)
   */

//----------------------------------------------------------------------

void pt_light_simple(t_color_buffer *normal_map,
  t_color_buffer *destination, unsigned char red, unsigned char green,
  unsigned char blue);

  /**<
   * Based on provided normal map computes the intensity of each pixel
   * when illuminated by specified light source. This function is
   * provides a simplified interface compared to the original one.
   *
   * @param normal_map buffer in which the normalised normal map is
   *        stored
   * @param destination in this buffer the final intensity map will be
   *        stored, it must be deallocated before this function is
   *        called
   * @param red amount of red in the light
   * @param green amount of green in the light
   * @param blue amount of blue in the light
   */

//----------------------------------------------------------------------

void pt_glass(t_color_buffer *normal_map, t_color_buffer *buffer,
  t_color_buffer *destination, double height);

  /**<
   * Creates a glass like distortion effects of given image accoording
   * to given normal map, which is placed above the image like a glass
   * and changes the path of light depending on the normal directions.
   *
   * @param normal_map normal map that serves as a glass that the buffer
   *        image is viewed through
   * @param buffer image that the effect will be applied on, it should
   *        be the same size as the normal map
   * @param destination in this buffer the final image will be stored,
   *        it must be deallocated before this function is called
   * @param height height in percents of the image width at which the
   *        glass (the normal map) will be placed above the image, the
   *        further the distance, the more intense the effect will be
   */

//----------------------------------------------------------------------

void pt_grayscale(t_color_buffer *buffer);

  /**<
   * Converts given image to grayscale.
   *
   * @param buffer buffer with image to be converted to grayscale
   */

//----------------------------------------------------------------------

void pt_map_to_transition(t_color_buffer *buffer,
  t_color_transition *transition);

  /**<
   * Maps given grayscale image to a color transition so it becomes
   * colored. Only red channel of given buffer is being counted with as
   * it is supposed that all channels have same values because the image
   * should be grayscale.
   *
   * @param buffer buffer with image which the transition will be
   *        applied on
   * @param transition transition to be mapped to image
   */

//----------------------------------------------------------------------

#endif

--- FILE ./ptdesigner.cpp ---
//**********************************************************************

/** @file
 * Implementation of procedural textures block designer.
 *
 * @author Miloslav Ciz
 */
 
/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

#include "ptdesigner.h"
#include <fstream>
#include <sstream>
#include "rapidxml_print.hpp"

using namespace pt_design;
using namespace std;

void (*_global_progress_function) (int,int); /** a global variable that
                                                 holds a pointer to
                                                 progress function */
unsigned int _left_to_compute;  /** a global variable that holds a
                                    number of blocks left to be computed
                                    */     

//----------------------------------------------------------------------

  /**
   * A private function that converts int to string. This works the same
   * way as std::to_string but is used rather because to_string causes
   * problems with MinGW.
   *
   * @param value value to be converted
   *
   * @return string representing given value
   */

string pt_to_string(int value)

  {
    string result;
    bool is_negative;
    unsigned int leftover;

    result = "";
    is_negative = value < 0;

    if (is_negative)
      value = -1 * value;

    if (value == 0)
      result = "0";
    else while (true)
      {
        if (value == 0)
          break;

        leftover = value % 10;

        value = value / 10;

        result = ((char) (leftover + '0')) + result;
      }

    if (is_negative)
      result = "-" + result;

    return result;
  }

//----------------------------------------------------------------------

  /**
   * A private function that converts double to string. This works the
   * same way as std::to_string but is used rather because to_string
   * causes problems with MinGW.
   *
   * @param value value to be converted
   *
   * @return string representing given value
   */

string pt_to_string(double value)

  {
    string result;
    stringstream str_stream;

    str_stream << value;

    result = str_stream.str();
    return result;
  }

//----------------------------------------------------------------------

string c_texture_graph::coordinations_to_string(
  double coordination_list[][2], unsigned int length)

  {
    unsigned int i;
    string result;
    bool first;

    result = "";
    first = true;

    for (i = 0; i < length; i++)
      {
        if (first)
          first = false;
        else
          result += ",";

        result = result + pt_to_string(coordination_list[i][0]) + ":" +
          pt_to_string(coordination_list[i][1]);
      }

    return result;
  }

//----------------------------------------------------------------------

string c_texture_graph::char_array_to_string(unsigned char char_array[],
        unsigned int length)

  {
    unsigned int i;
    string result;
    bool first;

    result = "";
    first = true;

    for (i = 0; i < length; i++)
      {
        if (first)
          first = false;
        else
          result += ",";

        result += pt_to_string((int) char_array[i]);
      }

    return result;
  }

//----------------------------------------------------------------------

void c_texture_graph::string_to_coordinations(
  double coordination_list[][2], string coordinations,
  unsigned int *length, unsigned int max_length)

  {
    stringstream str_stream;
    char character;
    unsigned int position;
    double value_x, value_y;

    str_stream.str(coordinations);

    position = 0;

    while (true)
      {
		if (position >= max_length - 1)
          break;
		  
		str_stream >> value_x;
        str_stream >> character;
        
        if (str_stream.eof())
          break;
        
        str_stream >> value_y;
        str_stream >> character;
        
        coordination_list[position][0] = value_x;
        coordination_list[position][1] = value_y;

        position++;
      }

    *length = position;
  }

//----------------------------------------------------------------------

void c_texture_graph::string_to_char_array(unsigned char char_array[],
  string char_string, unsigned int *length, unsigned int max_length)

  {
    stringstream str_stream;
    unsigned char character;
    unsigned int helper;
    unsigned int position;

    str_stream.str(char_string);

    for (position = 0; position < max_length; position++)
      char_array[position] = 0;

    position = 0;

    while (true)
      {
		if (position >= max_length)
          break;
		  
		if (str_stream.eof())
          break;
		  
		str_stream >> helper;          
		str_stream >> character;   // ","
        
        char_array[position] = helper;
        position++;
      }
      
    *length = position;
  }
  
//----------------------------------------------------------------------

void c_texture_graph::string_to_double_array(double double_array[],
  string double_string, unsigned int *length, unsigned int max_length)

  {
    stringstream str_stream;
    double helper;
    unsigned int position;

    str_stream.str(double_string);

    for (position = 0; position < max_length; position++)
      double_array[position] = 0;

    position = 0;

    if (!str_stream.eof())
      do
        {
          if (position >= max_length - 1)
            break;

          str_stream >> helper;

          double_array[position] = helper;

          position++;
        } while (!str_stream.eof());

    *length = position;
  }

//----------------------------------------------------------------------

c_parameters::c_parameters(c_block *owner)

  {
    this->locked = false;
    this->block = owner;
    this->parameters = new vector<t_parameter>();
  }

//----------------------------------------------------------------------

c_parameters::~c_parameters()

  {
    delete this->parameters;
  }

//----------------------------------------------------------------------

void c_parameters::changed()

  {
    this->block->invalidate();
  }

//----------------------------------------------------------------------

bool c_parameters::is_locked()

  {
    return this->locked;
  }

//----------------------------------------------------------------------

unsigned int c_parameters::number_of_parameters()

  {
    return this->parameters->size();
  }

//----------------------------------------------------------------------

t_parameter_type c_parameters::get_type(string name)

  {
    unsigned int i;

    for (i = 0; i < this->parameters->size(); i++)
      if (this->parameters->at(i).name == name)
        return this->parameters->at(i).type;

    return PARAMETER_INT;
  }

//----------------------------------------------------------------------

t_parameter_type c_parameters::get_type(unsigned int index)

  {
    if (index < this->parameters->size())
      return this->parameters->at(index).type;

    return PARAMETER_INT;
  }

//----------------------------------------------------------------------

string c_parameters::get_name(unsigned int index)

  {
    string result;

    result = "";

    if (index < this->parameters->size())
      result = this->parameters->at(index).name;

    return result;
  }

//----------------------------------------------------------------------

bool c_parameters::get_bool_value(unsigned int index)

  {
     if (index < this->parameters->size())
      return this->parameters->at(index).bool_value;

    return true;
  }

//----------------------------------------------------------------------

bool c_parameters::get_bool_value(string parameter_name)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type ==
      PARAMETER_BOOL)
      return this->parameters->at(index).bool_value;

    return 0;
  }

//----------------------------------------------------------------------

bool c_parameters::set_bool_value(string parameter_name, bool value)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type ==
      PARAMETER_BOOL)
      {
        this->parameters->at(index).bool_value = value;
        this->changed();

        return true;
      }

    return false;
  }

//----------------------------------------------------------------------

int c_parameters::index_by_name(string name)

  {
    unsigned int i;

    for (i = 0; i < this->parameters->size(); i++)
      if (this->parameters->at(i).name == name)
        return i;

    return -1;
  }

//----------------------------------------------------------------------

bool c_parameters::add_parameter(string name,t_parameter_type type)

  {
    int index;
    t_parameter parameter;

    if (this->locked)
      return false;

    index = this->index_by_name(name);

    if (index < 0)
      {
        parameter.name = name;
        parameter.type = type;

        this->changed();

        this->parameters->push_back(parameter);
        return true;
      }

    return false;
  }

//----------------------------------------------------------------------

bool c_parameters::set_int_value(string parameter_name, int value)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type == PARAMETER_INT)
      {
        this->parameters->at(index).int_value = value;
        this->changed();

        return true;
      }

    return false;
  }

//----------------------------------------------------------------------

unsigned int c_block::get_min_inputs()

  {
	 return this->min_inputs;
  }
  
//----------------------------------------------------------------------

unsigned int c_block::get_max_inputs()

  {
	 return this->max_inputs;
  }

//----------------------------------------------------------------------

bool c_parameters::set_double_value(string parameter_name, double value)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type ==
      PARAMETER_DOUBLE)
      {
        this->parameters->at(index).double_value = value;
        this->changed();

        return true;
      }

    return false;
  }

//----------------------------------------------------------------------

bool c_parameters::set_string_value(string parameter_name, char *value)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type ==
      PARAMETER_STRING)
      {
        this->parameters->at(index).string_value = value;
        this->changed();

        return true;
      }

    return false;
  }

//----------------------------------------------------------------------

bool c_parameters::set_string_value(string parameter_name, string value)

  {
    return this->set_string_value(parameter_name,
      (char *) value.c_str());
  }

//----------------------------------------------------------------------

int c_parameters::get_int_value(unsigned int index)

  {
    if (index < this->parameters->size())
      return this->parameters->at(index).int_value;

    return 0;
  }

//----------------------------------------------------------------------

double c_parameters::get_double_value(unsigned int index)

  {
    if (index < this->parameters->size())
      return this->parameters->at(index).double_value;

    return 0;
  }

//----------------------------------------------------------------------

string c_parameters::get_string_value(unsigned int index)

  {
    if (index < this->parameters->size())
      return this->parameters->at(index).string_value;

    return 0;
  }

//----------------------------------------------------------------------

void c_parameters::lock()

  {
    this->locked = true;
  }

//----------------------------------------------------------------------

int c_parameters::get_int_value(string parameter_name)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type == PARAMETER_INT)
      return this->parameters->at(index).int_value;

    return 0;
  }

//----------------------------------------------------------------------

double c_parameters::get_double_value(string parameter_name)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type ==
      PARAMETER_DOUBLE)
      return this->parameters->at(index).double_value;

    return 0;
  }

//----------------------------------------------------------------------

string c_parameters::get_string_value(string parameter_name)

  {
    int index;

    index = this->index_by_name(parameter_name);

    if (index >= 0 && this->parameters->at(index).type ==
      PARAMETER_STRING)
      return this->parameters->at(index).string_value;

    return 0;
  }

//----------------------------------------------------------------------

c_block::c_block()

  {
    unsigned int i;

    this->initialised = false;
    this->valid = false;
    this->error = false;
    this->max_inputs = MAX_INPUT_BLOCKS;
    this->min_inputs = 0;
    this->inputs = 0;
    this->graph = NULL;
    this->set_id(0);
    this->parameters = new c_parameters(this);
    this->uses_global_seed = true;
    this->is_end_block = false;

    for (i = 0; i < MAX_INPUT_BLOCKS; i++)
      {
        this->input_blocks[i] = NULL;
      }
  }

//----------------------------------------------------------------------

bool c_block::is_terminal()

  {
    return this->is_end_block;
  }

//----------------------------------------------------------------------

c_parameters *c_block::get_parameters()

  {
    return this->parameters;
  }

//----------------------------------------------------------------------

c_block::~c_block()

  {
    delete this->parameters;
  }

//----------------------------------------------------------------------

bool c_block::is_using_global_seed()

  {
    return this->uses_global_seed;
  }

//----------------------------------------------------------------------

void c_block::use_global_seed()

  {
    if (this->is_using_global_seed())
      return;

    this->uses_global_seed = true;
    this->invalidate();
  }

//----------------------------------------------------------------------

int c_block::get_random_seed()

  {
    if (this->uses_global_seed)
      return this->graph->get_random_seed();

    return this->custom_seed;
  }

//----------------------------------------------------------------------

void c_block::use_custom_seed(int value)

  {
    if (!this->is_using_global_seed() && this->get_random_seed()
      == value)
      return;

    this->uses_global_seed = false;
    this->custom_seed = value;
    this->invalidate();
  }

//----------------------------------------------------------------------

string c_block::get_name()

  {
    return this->name;
  }

//----------------------------------------------------------------------

unsigned int c_texture_graph::get_number_of_invalid()

  {
	unsigned int total,i;
	
	total = 0;
	
	for (i = 0; i < this->blocks->size(); i++)
	  if (!this->blocks->at(i)->is_valid())
	    total++;
	    
	return total;
  }

//----------------------------------------------------------------------

bool c_block::compute(bool force)

  {
    bool change_occured, error_occured;
    unsigned int i;

    if (this->inputs < this->min_inputs)
      {
        this->invalidate();
        this->error = true;
      }

    change_occured = false;
    error_occured = false;

    for (i = 0; i < MAX_INPUT_BLOCKS; i++)  // check input blocks
      if (this->input_blocks[i] != NULL)
	    {	
          if (this->input_blocks[i]->compute(force))
            change_occured = true;
		}

    if (change_occured || force || !this->is_valid())
      {
		// call the progress function:
		  
		if (_global_progress_function != NULL) 
          {
		    _global_progress_function(_left_to_compute,this->get_id());
		
		    if (_left_to_compute >= 1)
		      _left_to_compute--;
	      }
		  
        error_occured = !this->execute(); // execute this block
        change_occured = true;
      }

    if (error_occured)
      {
        this->invalidate();
        this->error = true;
      }
    else
      {
        this->valid = true;
        this->error = false;
      }

    return change_occured;
  }

//----------------------------------------------------------------------

bool c_block::execute()

  {
    return true;
  }

//----------------------------------------------------------------------

bool c_block::has_image()

  {
    return false;
  }

//----------------------------------------------------------------------

bool c_block::load_parameters(string parameters)

  {
    return true;
  }

//----------------------------------------------------------------------

void c_block::invalidate()

  {
    this->valid = false;
    
    // invalidate all child blocks:
    
    if (this->graph != NULL)
      this->graph->block_invalidated(this);
  }

//----------------------------------------------------------------------

void c_texture_graph::block_invalidated(c_block *block)

  {
	unsigned int i,j;
  
    // find all children blocks and invalidate them:
  
    for (i = 0; i < this->blocks->size(); i++)
      {
        for (j = 0; j < MAX_INPUT_BLOCKS; j++)
          if (this->blocks->at(i)->get_input(j) == block)
            {
			  // recursively invalidate the child block:

		      this->blocks->at(i)->invalidate();
		      break;
			}
      }
  }

//----------------------------------------------------------------------

void c_block::set_error()

  {
    this->error = true;
    this->valid = false;
  }

//----------------------------------------------------------------------

bool c_block::is_valid()

  {
    return this->valid;
  }

//----------------------------------------------------------------------

bool c_block::is_error()

  {
    return this->error;
  }

//----------------------------------------------------------------------

void c_block::set_id(unsigned int new_id)

  {
    this->id = new_id;
  }

//----------------------------------------------------------------------

unsigned int c_block::get_id()

  {
    return this->id;
  }

//----------------------------------------------------------------------

void c_texture_graph::get_resolution(unsigned int *x, unsigned int *y)

  {
    *x = this->resolution_x;
    *y = this->resolution_y;
  }

//----------------------------------------------------------------------

c_graphic_block::~c_graphic_block()

  {
    color_buffer_destroy(&(this->buffer));
  }

//----------------------------------------------------------------------

bool c_graphic_block::has_image()

  {
    return true;   // graphic block does have an image
  }

//----------------------------------------------------------------------

bool c_special_block::has_image()

  {
    return false;  // special block does not have an image
  }

//----------------------------------------------------------------------

c_texture_graph::c_texture_graph()

  {
    this->blocks = new vector<c_block *>();
    this->end_blocks = new vector<c_block *>();

    this->last_id = 0;
    this->supersampling_level = 1;
    this->resolution_x = 256;       // default resolution
    this->resolution_y = 256;
    this->random_seed = 0;
  }

//----------------------------------------------------------------------

bool c_block::is_graphic_input(unsigned int number)

  {
    if (number >= MAX_INPUT_BLOCKS)
      return false;

    return (this->input_blocks[number] != NULL) &&
      (this->input_blocks[number]->has_image());
  }

//----------------------------------------------------------------------

bool c_block::is_user_of(c_block *block)

  {
    unsigned int i;

    for (i = 0; i < this->inputs; i++)
      if (this->input_blocks[i] == block)
        return true;

    return false;
  }

//----------------------------------------------------------------------

void c_block::set_default()

  {
  }

//----------------------------------------------------------------------

void c_block::set_default_parameters()

  {
    this->name = "block";
    this->set_default();
    this->parameters->lock();
    this->initialised = true;
    this->invalidate();
  }

//----------------------------------------------------------------------

void c_texture_graph::update()

  {
    unsigned int i, j;
    bool is_end_block;

    // recreate the end_blocks array:

    this->end_blocks->clear();

    for (i = 0; i < this->blocks->size(); i++)
      {
        is_end_block = true;

        for (j = 0; j < this->blocks->size(); j++)
          if (i != j)
            {
              if (this->blocks->at(j)->is_user_of(this->blocks->at(i)))
                {
                  is_end_block = false;
                  break;
                }
            }

        if (is_end_block)
          this->end_blocks->push_back(this->blocks->at(i));
      }
  }

//----------------------------------------------------------------------

unsigned int c_texture_graph::get_number_of_blocks()

  {
    return this->blocks->size();
  }

//----------------------------------------------------------------------

t_color_buffer *c_graphic_block::get_color_buffer()

  {
    return &(this->buffer);
  }

//----------------------------------------------------------------------

void c_texture_graph::set_random_seed(int value)

  {
    if (value == this->random_seed)
      return;

    this->random_seed = value;
    this->invalidate_all();
  }

//----------------------------------------------------------------------

c_block *c_texture_graph::get_block(unsigned int block_number)

  {
    if (block_number >= this->blocks->size())
      return NULL;

    return this->blocks->at(block_number);
  }

//----------------------------------------------------------------------

void c_block::set_texture_graph(c_texture_graph *graph)

  {
    this->graph = graph;
  }

//----------------------------------------------------------------------

int c_texture_graph::add_block(c_block *block)

  {
    if (block == NULL)
      return -1;

    this->blocks->push_back(block);
    block->set_texture_graph(this);
    block->set_id(this->last_id);     // assign an unique id
    block->set_default_parameters();
    block->adjust();
    this->last_id++;

    this->update();
    
    return block->get_id();
  }

//----------------------------------------------------------------------

void c_texture_graph::set_resolution(unsigned int x, unsigned int y)

  {
    if (x == this->resolution_x && y == this->resolution_y)
      return;      // no need to change anything

    this->resolution_x = x;
    this->resolution_y = y;
    this->adjust_all();
  }

//----------------------------------------------------------------------

int c_texture_graph::get_random_seed()

  {
    return this->random_seed;
  }

//----------------------------------------------------------------------

void c_texture_graph::set_supersampling(unsigned int level)

  {
    if (level == 0)    // zero makes no sense
      level = 1;

    if (level > MAX_SUPERSAMPLING)
      level = MAX_SUPERSAMPLING;

    if (level == this->supersampling_level)
      return;    // no need to change anything

    this->supersampling_level = level;  // set the new level

    this->adjust_all();
  }

//----------------------------------------------------------------------

void c_block::adjust()

  {
  }

//----------------------------------------------------------------------

c_graphic_block::c_graphic_block()

  {
    color_buffer_init(&(this->buffer),0,0);
  }

//----------------------------------------------------------------------

unsigned int c_texture_graph::get_supersampling()

  {
    return this->supersampling_level;
  }

//----------------------------------------------------------------------

void c_graphic_block::adjust()

  {
    unsigned int resolution_x,resolution_y,supersampling;

    if (this->initialised && this->graph != NULL)
      {
        this->graph->get_resolution(&resolution_x,&resolution_y);
        supersampling = this->graph->get_supersampling();

        // compute the real resolution (with supersampling):

        resolution_x = resolution_x * supersampling;
        resolution_y = resolution_y * supersampling;
      }

    if (!this->initialised || this->buffer.width != resolution_x ||
      this->buffer.height != resolution_y)
      {
        this->valid = false;

        // reallocate the buffer with the new resolution:

        color_buffer_destroy(&(this->buffer));

        if (!color_buffer_init(&(this->buffer),resolution_x,
          resolution_y))
          this->set_error();
      }
  }

//----------------------------------------------------------------------

void c_special_block::adjust()

  {
  }

//----------------------------------------------------------------------

c_special_block::~c_special_block()

  {
  }

//----------------------------------------------------------------------

void c_texture_graph::invalidate_all()

  {
    unsigned int i;

    for (i = 0; i < this->blocks->size(); i++)
      this->blocks->at(i)->invalidate();
  }

//----------------------------------------------------------------------

void c_texture_graph::adjust_all()

  {
    unsigned int i;

    for (i = 0; i < this->blocks->size(); i++)
      this->blocks->at(i)->adjust();
  }

//----------------------------------------------------------------------

void c_texture_graph::remove_block(unsigned int block_number)

  {
    if (block_number >= this->blocks->size())
      return;

    this->blocks->erase(this->blocks->begin() + block_number);
    
    this->update();
  }

//----------------------------------------------------------------------

void c_texture_graph::delete_block(unsigned int block_number)

  {
    c_block *block;
    unsigned int i,j;

    if (block_number >= this->blocks->size())
      return;

    block = this->blocks->at(block_number);
    
    for (i = 0; i < this->blocks->size(); i++)  // cancel connections
      for (j = 0; j < MAX_INPUT_BLOCKS; j++)
        if (this->blocks->at(i)->get_input(j) == block)
          this->blocks->at(i)->disconnect(j);
    
    this->blocks->erase(this->blocks->begin() + block_number);
    
    // now delete the block from the end block list if it is there:
    
    for (i = 0; i < this->end_blocks->size(); i++) 
      if (this->end_blocks->at(i) == block)
        {
          this->end_blocks->erase(this->end_blocks->begin() + i);
          break;
        }
    
    delete block;
    
    this->update();
  }
  
//----------------------------------------------------------------------

void c_texture_graph::delete_block_with_id(unsigned int block_id)

  {
	unsigned int i;
	
	for (i = 0; i < this->blocks->size(); i++)
	  if (this->blocks->at(i)->get_id() == block_id)
	    {
	      this->delete_block(i);
		  break;
		}
  }

//----------------------------------------------------------------------

bool c_texture_graph::compute(bool force,void (*progress_function)(int,int))

  {
    unsigned int i;
    
    /* set the global pointer for other methods to see the progress
       function: */
    
    _global_progress_function = progress_function; 
    
    if (force)
      _left_to_compute = this->get_number_of_blocks();
    else
      _left_to_compute = this->get_number_of_invalid();
    
    for (i = 0; i < this->end_blocks->size(); i++)
      {  
        this->end_blocks->at(i)->compute(force);
	  }
	  
	if (progress_function != NULL) 
      progress_function(0,-1);

    return !this->is_error();
  }

//----------------------------------------------------------------------

bool c_texture_graph::compute(bool force)

  {
	return this->compute(force,NULL);
  }

//----------------------------------------------------------------------

bool c_texture_graph::compute()

  {
	return this->compute(false);
  }

//----------------------------------------------------------------------

bool c_texture_graph::is_error()

  {
    unsigned int i;

    for (i = 0; i < this->blocks->size(); i++)
      if (this->blocks->at(i)->is_error())
        return true;

    return false;
  }

//----------------------------------------------------------------------

bool c_block::connect(c_block *input_block, unsigned int slot_number)

  {
    if (slot_number >= MAX_INPUT_BLOCKS || input_block->is_terminal()
      || this->inputs >= this->max_inputs ||
      slot_number >= this->max_inputs)
      return false;

    this->inputs++;

    if (this->input_blocks[slot_number] != NULL)
      this->disconnect(slot_number);

    this->input_blocks[slot_number] = input_block;

    if (this->has_ancestor(this))
      {
        // if the block is its own ancestor then there is a cycle

        this->disconnect(slot_number);
        return false;
      }

    this->invalidate();
    this->graph->update();
    return true;
  }

//----------------------------------------------------------------------

bool c_block::has_ancestor(c_block *block)

  {
    unsigned int i;
    bool result;

    result = false;

    for (i = 0; i < MAX_INPUT_BLOCKS; i++)
      {
        if (this->input_blocks[i] != NULL)
          {
            if (this->input_blocks[i] == block)
              {
                return true;
              }
            else if (this->input_blocks[i]->has_ancestor(block))
              {
                result = true;
                break;
              }
          }
      }

    return result;
  }

//----------------------------------------------------------------------

void c_block::disconnect(unsigned int slot_number)

  {
    if (slot_number >= MAX_INPUT_BLOCKS)
      return;

    if (this->input_blocks[slot_number] != NULL)
      this->inputs--;

    this->input_blocks[slot_number] = NULL;
    this->invalidate();
    this->graph->update();
  }

//----------------------------------------------------------------------

c_block *c_block::get_input(unsigned int index)

  {
    if (index >= MAX_INPUT_BLOCKS)
      return NULL;

    return this->input_blocks[index];
  }

//----------------------------------------------------------------------

void c_texture_graph::print_as_text()

  {
    unsigned int i,j;
    c_block *block,*block2;

    cout << "----------" << endl;

    cout << "error: " << (this->is_error() ? "yes" : "no") << endl;

    cout << "end block IDs: ";

    for (i = 0; i < this->end_blocks->size(); i++)
      cout << this->end_blocks->at(i)->get_id() << " ";

    cout << endl << endl;

    for (i = 0; i < this->blocks->size(); i++)
      {
        block = this->blocks->at(i);
        cout << block->get_id() << ": " << block->get_name() << " (";

        if (!block->is_valid())
          cout << "in";

        cout << "valid, ";

        if (!block->is_error())
          cout << "no ";

        cout << "error), inputs: ";

        for (j = 0; j < MAX_INPUT_BLOCKS; j++)
          {
            block2 = block->get_input(j);

            if (block2 != NULL)
              cout << block2->get_id() << "(" << j << ") ";
          }

        cout << endl;
      }

    cout << "----------" << endl;
  }

//----------------------------------------------------------------------

string c_parameters::get_value_string(unsigned int index)

  {
    if (index >= this->parameters->size())
      return "";

    switch (this->parameters->at(index).type)
      {
        case PARAMETER_INT:
          return pt_to_string(this->parameters->at(index).int_value);
          break;

        case PARAMETER_DOUBLE:
          return pt_to_string(this->parameters->at(index).double_value);
          break;

        case PARAMETER_BOOL:
          return pt_to_string(this->parameters->at(index).bool_value);
          break;

        case PARAMETER_STRING:
          return this->parameters->at(index).string_value;
          break;
      }

    return "";
  }

//----------------------------------------------------------------------

c_block *c_block::get_block_instance(string block_name)

  {
    if (block_name.compare(FILE_SAVE_NAME) == 0)
      return new c_block_file_save();
    if (block_name.compare(FILE_LOAD_NAME) == 0)
      return new c_block_file_load();
    else if (block_name.compare(BUMP_NOISE_NAME) == 0)
      return new c_block_bump_noise();
    else if (block_name.compare(COLOR_FILL_NAME) == 0)
      return new c_block_color_fill();
    else if (block_name.compare(PERLIN_NOISE_NAME) == 0)
      return new c_block_perlin_noise();
    else if (block_name.compare(MIX_CHANNELS_NAME) == 0)
      return new c_block_mix_channels();
    else if (block_name.compare(VORONOI_DIAGRAM_NAME) == 0)
      return new c_block_voronoi_diagram();
    else if (block_name.compare(RGB_NAME) == 0)
      return new c_block_rgb();
    else if (block_name.compare(HSL_NAME) == 0)
      return new c_block_hsl();
    else if (block_name.compare(FAULT_FORMATION_NOISE_NAME) == 0)
      return new c_block_fault_formation_noise();
    else if (block_name.compare(SUBSTRATE_NAME) == 0)
      return new c_block_substrate();
    else if (block_name.compare(MIX_NAME) == 0)
      return new c_block_mix();
    else if (block_name.compare(MARBLE_NAME) == 0)
      return new c_block_marble();
    else if (block_name.compare(WOOD_NAME) == 0)
      return new c_block_wood();
    else if (block_name.compare(PARTICLES_NAME) == 0)
      return new c_block_particles();
    else if (block_name.compare(CIRCLE_TRANSFORM_NAME) == 0)
      return new c_block_circle_transform();
    else if (block_name.compare(RADIUS_TRANSFORM_NAME) == 0)
      return new c_block_radius_transform();
    else if (block_name.compare(SINE_TRANSFORM_NAME) == 0)
      return new c_block_sine_transform();
    else if (block_name.compare(INVERT_NAME) == 0)
      return new c_block_invert();
    else if (block_name.compare(DITHER_NAME) == 0)
      return new c_block_dither();
    else if (block_name.compare(CROP_AMPLITUDE_NAME) == 0)
      return new c_block_crop_amplitude();
    else if (block_name.compare(NORMAL_MAP_NAME) == 0)
      return new c_block_normal_map();
    else if (block_name.compare(LIGHT_NAME) == 0)
      return new c_block_light();
    else if (block_name.compare(GLASS_NAME) == 0)
      return new c_block_glass();
    else if (block_name.compare(GRAYSCALE_NAME) == 0)
      return new c_block_grayscale();
    else if (block_name.compare(COLOR_TRANSITION_NAME) == 0)
      return new c_block_color_transition();
    else if (block_name.compare(MAP_TRANSITION_NAME) == 0)
      return new c_block_map_transition();
    else if (block_name.compare(BRIGHTNESS_CONTRAST_NAME) == 0)
      return new c_block_brightness_contrast();
    else if (block_name.compare(END_BLOCK_NAME) == 0)
      return new c_block_end();
    else if (block_name.compare(L_SYSTEM_NAME) == 0)
      return new c_block_l_system();
    else if (block_name.compare(TURTLE_NAME) == 0)
      return new c_block_turtle();
    else if (block_name.compare(SIMPLE_NOISE_NAME) == 0)
      return new c_block_simple_noise();
    else if (block_name.compare(SQUARE_MOSAIC_NAME) == 0)
      return new c_block_square_mosaic();
    else if (block_name.compare(CELLULAR_RPS_NAME) == 0)
      return new c_block_cellular_automaton_rps();
    else if (block_name.compare(CELLULAR_CYCLIC_NAME) == 0)
      return new c_block_cellular_automaton_cyclic();
    else if (block_name.compare(CELLULAR_GENERAL_NAME) == 0)
      return new c_block_cellular_automaton_general();
    else if (block_name.compare(BLUR_NAME) == 0)
      return new c_block_blur();
    else if (block_name.compare(REPLACE_COLORS_NAME) == 0)
      return new c_block_replace_colors();
    else if (block_name.compare(TILE_NAME) == 0)
      return new c_block_tile();
    else if (block_name.compare(EDGE_DETECTION_NAME) == 0)
      return new c_block_edge_detection();
    else if (block_name.compare(SHARPEN_NAME) == 0)
      return new c_block_sharpen();
    else if (block_name.compare(EMBOSS_NAME) == 0)
      return new c_block_emboss();
    else if (block_name.compare(CONVOLUTION_NAME) == 0)
      return new c_block_convolution();
    else if (block_name.compare(GEOMETRIC_TRANSFORM_NAME) == 0)
      return new c_block_geometric_transform();

    return NULL;
  }

//----------------------------------------------------------------------

bool c_texture_graph::connect_by_id(int id_input, int id_to,
  unsigned int slot)

  {
    c_block *block1, *block2;

    block1 = this->get_block_by_id(id_input);
    block2 = this->get_block_by_id(id_to);

    if (block1 == NULL || block2 == NULL || slot >= MAX_INPUT_BLOCKS)
      return false;

    return block2->connect(block1,slot);
  }

//----------------------------------------------------------------------

void c_texture_graph::clear()

  {
    while (this->blocks->size() > 0)
      {
        this->delete_block(0);
      }
  }

//----------------------------------------------------------------------

c_texture_graph::~c_texture_graph()

  {
    this->clear();

    delete this->blocks;
    delete this->end_blocks;
  }

//----------------------------------------------------------------------

bool c_texture_graph::load_from_file(string filename)

  {
    string line,filetext,block_name,parameter_name,parameter_value,
      help_string;
    char *parameter_type;
    int greatest_id;
    int block_id,slot_number;
    ifstream myfile(filename);
    xml_document<> document;
    xml_node<> *node, *node2;
    xml_attribute<> *help_attribute;
    char *filetext_c;
    c_block *block;

    setlocale(LC_NUMERIC,"C");  // for standard double format

    if (!myfile.is_open())
      return false;

    this->clear();

    while (getline(myfile,line))
      {
        filetext += line + "\n";
      }

    myfile.close();

    filetext_c = document.allocate_string(filetext.c_str(),
      filetext.length() + 1);

    document.parse<0>(filetext_c);

    node = document.first_node("texturegraph");

    // graph attributes:

    help_string = node->first_attribute("width")->value();
    this->resolution_x = atoi(help_string.c_str());
    help_string = node->first_attribute("height")->value();
    this->resolution_y = atoi(help_string.c_str());
    help_string = node->first_attribute("seed")->value();
    this->random_seed = atoi(help_string.c_str());
    help_string = node->first_attribute("supersampling")->value();
    this->set_supersampling(atoi(help_string.c_str()));

    node = document.first_node("texturegraph")->first_node();

    // node should point to the first block node now

    greatest_id = 0;

    while (node != NULL) // process all blocks
      {
        block_name = node->first_attribute("type")->value();

        block_id =
          atoi(node->first_attribute("id")->value());

        block = c_block::get_block_instance(block_name);

        help_attribute = node->first_attribute("seed");

        if (help_attribute != NULL)
          {
            block->use_custom_seed(atoi(help_attribute->value()));
          }

        if (block == NULL)
          return 0;

        this->add_block(block);
        block->set_id(block_id);

        if (block_id > greatest_id)
          greatest_id = block_id;

        node2 = node->first_node();

        while (node2 != NULL)   // load parameters
          {
            if (strcmp(node2->name(),"parameter") == 0)
              {
                parameter_name =
                  node2->first_attribute("name")->value();
                parameter_value =
                  node2->first_attribute("value")->value();
                parameter_type =
                  node2->first_attribute("type")->value();

                if (strcmp(parameter_type,"int") == 0)
                  block->get_parameters()->set_int_value(parameter_name,
                    strtod(parameter_value.c_str(),NULL));
                else if (strcmp(parameter_type,"double") == 0)
                  block->get_parameters()->set_double_value(
                    parameter_name,atof(parameter_value.c_str()));
                else if (strcmp(parameter_type,"string") == 0)
                  block->get_parameters()->set_string_value(
                    parameter_name,parameter_value);
                else if (strcmp(parameter_type,"bool") == 0)
                  block->get_parameters()->set_bool_value(
                    parameter_name,parameter_value[0] == '1');
              }

            node2 = node2->next_sibling();
          }

        node = node->next_sibling();  // next block
      }

    this->last_id = greatest_id + 1;

    // now that the blocks are created, connect them:

    node = document.first_node()->first_node();

    while (node != NULL)
      {
        block_id =
          atoi(node->first_attribute()->next_attribute()->value());

        block = this->get_block_by_id(block_id);

        node2 = node->first_node();

        while (node2 != NULL)   // load inputs
          {
            if (strcmp(node2->name(),"input") == 0)
              {
                block_id =
                  atoi(node2->first_attribute("id")->value());
                slot_number =
                  atoi(node2->first_attribute("slot")->value());
                block->connect(this->get_block_by_id(block_id),
                  slot_number);
              }

            node2 = node2->next_sibling();
          }

        node = node->next_sibling();  // next block
      }

    return true;
  }

//----------------------------------------------------------------------

c_block *c_texture_graph::get_block_by_id(unsigned int block_id)

  {
    unsigned int i;

    for (i = 0; i < this->blocks->size(); i++)
      if (this->blocks->at(i)->get_id() == block_id)
        return this->blocks->at(i);

    return NULL;
  }

//----------------------------------------------------------------------

bool c_texture_graph::save_to_file(string filename)

  {
    xml_document<> document;
    ofstream save_file(filename.c_str());
    string document_text;
    xml_node<> *node, *node2;
    c_block *help_block,*current_block;
    unsigned int i,j;
    string help_string,slot_number;
    unsigned int res_x,res_y;

    setlocale(LC_NUMERIC,"C");  // for standard double format

    if (save_file.is_open())
      {
        // doctype node:

        node = document.allocate_node(node_doctype,(char *) "",
          (char *) "ptgraph");

        document.append_node(node);

        // graph node:

        node = document.allocate_node(node_element,"texturegraph");

        // texture graph attributes:

        this->get_resolution(&res_x,&res_y);

        help_string = pt_to_string((int) res_x).c_str();
        node->append_attribute(document.allocate_attribute("width",
          document.allocate_string(help_string.c_str(),
          help_string.length() + 1)));

        help_string = pt_to_string((int) res_y).c_str();
        node->append_attribute(document.allocate_attribute("height",
          document.allocate_string(help_string.c_str(),
          help_string.length() + 1)));

        help_string = pt_to_string((int) this->random_seed).c_str();
        node->append_attribute(document.allocate_attribute("seed",
          document.allocate_string(help_string.c_str(),
          help_string.length() + 1)));

        help_string = pt_to_string((int)
          this->supersampling_level).c_str();
        node->append_attribute(document.allocate_attribute(
          "supersampling",document.allocate_string(help_string.c_str(),
          help_string.length() + 1)));

        document.append_node(node);

        // append blocks:

        for (i = 0; i < this->blocks->size(); i++)
          {
            current_block = this->blocks->at(i);

            node = document.allocate_node(node_element,"block");

            // block element attributes:

            node->append_attribute(document.allocate_attribute("type",
              current_block->get_name().c_str()));

            help_string = pt_to_string((int) current_block->get_id());

            node->append_attribute(document.allocate_attribute("id",
              document.allocate_string(help_string.c_str(),
              help_string.length() + 1)));

            if (!current_block->is_using_global_seed())
              {
                help_string = pt_to_string((int)
                  current_block->get_random_seed());

                node->append_attribute(document.allocate_attribute(
                  "seed",document.allocate_string(help_string.c_str(),
                  help_string.length() + 1)));
              }

            // input block elements:

            for (j = 0; j < MAX_INPUT_BLOCKS; j++)
              {
                help_block = current_block->get_input(j);

                if (help_block != NULL)
                  {
                    node2 =
                      document.allocate_node(node_element,"input");

                    help_string = pt_to_string((int)
                      help_block->get_id());

                    node2->append_attribute(
                      document.allocate_attribute(
                        "id",document.allocate_string(
                        help_string.c_str(),help_string.length() + 1)));

                    slot_number = pt_to_string((int) j);

                    node2->append_attribute(
                      document.allocate_attribute(
                        "slot",document.allocate_string(
                        slot_number.c_str(),slot_number.length() + 1)));

                    node->append_node(node2);
                  }
              }

            // block parameters:

            for (j = 0; j < current_block->get_parameters()->number_of_parameters(); j++)
              {
                node2 = document.allocate_node(node_element,
                  "parameter");

                node2->append_attribute(
                  document.allocate_attribute("name", (char *)
                  current_block->get_parameters()->get_name(j).c_str()));

                switch (current_block->get_parameters()->get_type(j))
                  {
                    case PARAMETER_INT:
                      node2->append_attribute(
                        document.allocate_attribute("type","int"));
                      break;

                    case PARAMETER_DOUBLE:
                      node2->append_attribute(
                        document.allocate_attribute("type","double"));
                      break;

                    case PARAMETER_BOOL:
                      node2->append_attribute(
                        document.allocate_attribute("type","bool"));
                      break;

                    case PARAMETER_STRING:
                      node2->append_attribute(
                        document.allocate_attribute("type","string"));
                      break;
                  }

                node2->append_attribute(
                  document.allocate_attribute("value",
                  document.allocate_string(
                  (char *) current_block->get_parameters()->get_value_string(j).c_str())));

                node->append_node(node2);
              }

            document.first_node("texturegraph")->append_node(node);
          }

        save_file << document;
        save_file.close();
      }
    else
      return false;

    return true;
  }

//======================================================================
// SPECIFIC BLOCK FUNCTIONS:
//======================================================================

c_block_color_transition::c_block_color_transition(): c_special_block()

  {
    color_transition_init(&(this->transition));
  }

//----------------------------------------------------------------------

c_block_color_transition::~c_block_color_transition()

  {
    color_transition_destroy(&(this->transition));
  }

//----------------------------------------------------------------------

void c_block_color_transition::get_color(unsigned int coordination,
   unsigned char *r, unsigned char *g, unsigned char *b)
        
  {
	color_transition_get_color(coordination,r,g,b,&this->transition);
  }

//----------------------------------------------------------------------

c_block_l_system::c_block_l_system(): c_special_block()

  {
    grammar_init(&(this->grammar),(char *) "",0);
  }

//----------------------------------------------------------------------

c_block_l_system::~c_block_l_system()

  {
    grammar_destroy(&(this->grammar));
  }

//----------------------------------------------------------------------

t_color_transition *c_block_color_transition::get_color_transition()

  {
    return &this->transition;
  }

//----------------------------------------------------------------------

t_grammar *c_block_l_system::get_grammar()

  {
    return &(this->grammar);
  }

//======================================================================
// 'SET DEFAULT' FUNCTIONS:
//======================================================================

void c_block_perlin_noise::set_default()

  {
    this->name = PERLIN_NOISE_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("amplitude",PARAMETER_INT);
    this->parameters->add_parameter("frequency",PARAMETER_INT);
    this->parameters->add_parameter("max iterations",PARAMETER_INT);
    this->parameters->add_parameter("interpolation",PARAMETER_INT);
    this->parameters->add_parameter("smooth",PARAMETER_BOOL);
    this->parameters->lock();

    this->parameters->set_int_value("amplitude",127);
    this->parameters->set_int_value("frequency",6);
    this->parameters->set_int_value("max iterations",-1);
    this->parameters->set_int_value("interpolation",
      INTERPOLATION_LINEAR);
    this->parameters->set_bool_value("smooth",true);
  }

//----------------------------------------------------------------------

void c_block_geometric_transform::set_default()

  {
    this->name = GEOMETRIC_TRANSFORM_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("shift x",PARAMETER_DOUBLE);
    this->parameters->add_parameter("shift y",PARAMETER_DOUBLE);
    this->parameters->add_parameter("flip horizontal",PARAMETER_BOOL);
    this->parameters->add_parameter("flip vertical",PARAMETER_BOOL);
    this->parameters->add_parameter("angle",PARAMETER_INT);

    this->parameters->set_double_value("shift x",0);
    this->parameters->set_double_value("shift y",0);
    this->parameters->set_int_value("frequency",6);
    this->parameters->set_bool_value("flip horizontal",false);
    this->parameters->set_bool_value("flip vertical",false);
    this->parameters->set_int_value("angle",0);
  }

//----------------------------------------------------------------------

void c_block_voronoi_diagram::set_default()

  {
    this->name = VORONOI_DIAGRAM_NAME;
    this->min_inputs = 0;
    this->max_inputs = 1;

    this->parameters->add_parameter("type",PARAMETER_INT);
    this->parameters->add_parameter("metric",PARAMETER_INT);
    this->parameters->add_parameter("point place",PARAMETER_INT);
    this->parameters->add_parameter("width",PARAMETER_INT);
    this->parameters->add_parameter("point positions",PARAMETER_STRING);
    this->parameters->add_parameter("number of points",PARAMETER_INT);
    this->parameters->add_parameter("initial x",PARAMETER_DOUBLE);
    this->parameters->add_parameter("initial y",PARAMETER_DOUBLE);
    this->parameters->add_parameter("initial angle",PARAMETER_INT);

    this->parameters->set_int_value("type",VORONOI_2_NEAREST_RATIO);
    this->parameters->set_int_value("metric",METRIC_EUCLIDEAN);
    this->parameters->set_int_value("point place",PLACE_RANDOM);
    this->parameters->set_int_value("width",75);
    this->parameters->set_string_value("point positions",(char *) "");
    this->parameters->set_int_value("number of points",15);
    this->parameters->set_double_value("initial x",0.5);
    this->parameters->set_double_value("initial y",0.5);
    this->parameters->set_int_value("initial angle",90);
  }

//----------------------------------------------------------------------

void c_block_replace_colors::set_default()

  {
    this->name = REPLACE_COLORS_NAME;
    this->min_inputs = 0;
    this->max_inputs = 5;

    this->parameters->add_parameter("color 1 red",PARAMETER_INT);
    this->parameters->add_parameter("color 1 green",PARAMETER_INT);
    this->parameters->add_parameter("color 1 blue",PARAMETER_INT);
    this->parameters->add_parameter("color 2 red",PARAMETER_INT);
    this->parameters->add_parameter("color 2 green",PARAMETER_INT);
    this->parameters->add_parameter("color 2 blue",PARAMETER_INT);
    this->parameters->add_parameter("color 3 red",PARAMETER_INT);
    this->parameters->add_parameter("color 3 green",PARAMETER_INT);
    this->parameters->add_parameter("color 3 blue",PARAMETER_INT);
    this->parameters->add_parameter("color 4 red",PARAMETER_INT);
    this->parameters->add_parameter("color 4 green",PARAMETER_INT);
    this->parameters->add_parameter("color 4 blue",PARAMETER_INT);

    this->parameters->set_int_value("color 1 red",255);
    this->parameters->set_int_value("color 1 green",255);
    this->parameters->set_int_value("color 1 blue",255);
    this->parameters->set_int_value("color 2 red",0);
    this->parameters->set_int_value("color 2 green",0);
    this->parameters->set_int_value("color 2 blue",0);
    this->parameters->set_int_value("color 3 red",170);
    this->parameters->set_int_value("color 3 green",170);
    this->parameters->set_int_value("color 3 blue",170);
    this->parameters->set_int_value("color 4 red",85);
    this->parameters->set_int_value("color 4 green",85);
    this->parameters->set_int_value("color 4 blue",85);
  }

//----------------------------------------------------------------------

void c_block_color_fill::set_default()

  {
    this->name = COLOR_FILL_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("red",PARAMETER_INT);
    this->parameters->add_parameter("green",PARAMETER_INT);
    this->parameters->add_parameter("blue",PARAMETER_INT);

    this->parameters->set_int_value("red",255);
    this->parameters->set_int_value("green",255);
    this->parameters->set_int_value("blue",255);
  }

//----------------------------------------------------------------------

void c_block_convolution::set_default()

  {
    this->name = CONVOLUTION_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("matrix width",PARAMETER_INT);
    this->parameters->add_parameter("matrix height",PARAMETER_INT);
    this->parameters->add_parameter("matrix data",PARAMETER_STRING);

    this->parameters->set_int_value("matrix width",3);
    this->parameters->set_int_value("matrix height",3);
    this->parameters->set_string_value("matrix data",(char *)
      "0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0");
  }

//----------------------------------------------------------------------

void c_block_sharpen::set_default()

  {
    this->name = SHARPEN_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("intensity",PARAMETER_INT);
    this->parameters->set_int_value("intensity",3);
  }

//----------------------------------------------------------------------

void c_block_emboss::set_default()

  {
    this->name = EMBOSS_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("intensity",PARAMETER_INT);
    this->parameters->set_int_value("intensity",3);
  }

//----------------------------------------------------------------------

void c_block_blur::set_default()

  {
    this->name = BLUR_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("intensity",PARAMETER_INT);
    this->parameters->add_parameter("motion",PARAMETER_BOOL);
    this->parameters->add_parameter("direction",PARAMETER_INT);

    this->parameters->set_int_value("intensity",10);
    this->parameters->set_bool_value("motion",false);
    this->parameters->set_int_value("direction",DIRECTION_HORIZONTAL);
  }

//----------------------------------------------------------------------

void c_block_edge_detection::set_default()

  {
    this->name = EDGE_DETECTION_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("intensity",PARAMETER_INT);
    this->parameters->add_parameter("type",PARAMETER_INT);

    this->parameters->set_int_value("intensity",3);
    this->parameters->set_int_value("type",DETECTION_BOTH);
  }

//----------------------------------------------------------------------

void c_block_tile::set_default()

  {
    this->name = TILE_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("times",PARAMETER_INT);
    this->parameters->set_int_value("times",2);
  }

//----------------------------------------------------------------------

void c_block_simple_noise::set_default()

  {
    this->name = SIMPLE_NOISE_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("amplitude",PARAMETER_INT);
    this->parameters->add_parameter("grayscale",PARAMETER_BOOL);

    this->parameters->set_int_value("amplitude",127);
    this->parameters->set_bool_value("grayscale",true);
  }

//----------------------------------------------------------------------

void c_block_square_mosaic::set_default()

  {
    this->name = SQUARE_MOSAIC_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("side 1",PARAMETER_STRING);
    this->parameters->add_parameter("side 2",PARAMETER_STRING);
    this->parameters->add_parameter("side 3",PARAMETER_STRING);
    this->parameters->add_parameter("side 4",PARAMETER_STRING);
    this->parameters->add_parameter("transformation 1",PARAMETER_INT);
    this->parameters->add_parameter("transformation 2",PARAMETER_INT);
    this->parameters->add_parameter("transformation 3",PARAMETER_INT);
    this->parameters->add_parameter("transformation 4",PARAMETER_INT);
    this->parameters->add_parameter("tiles x",PARAMETER_INT);
    this->parameters->add_parameter("tiles y",PARAMETER_INT);
    this->parameters->add_parameter("fill type",PARAMETER_INT);
    this->parameters->add_parameter("fill colors",PARAMETER_STRING);

    this->parameters->set_string_value("side 1",
      (char *) "0.1 0.1 0.2 0.15 0.3 0.20 0.4 0.15 0.5 0.0");
    this->parameters->set_string_value("side 2",
      (char *) "0.5 0.1");
    this->parameters->set_string_value("side 3",
      (char *) "0.19 0.0 0.2 0.2 0.4 0.2 0.41 0.0");
    this->parameters->set_string_value("side 4",
      (char *) "");

    this->parameters->set_int_value("transformation 1",
      MOSAIC_TRANSFORM_ROTATE_SIDE);
    this->parameters->set_int_value("transformation 2",
      MOSAIC_TRANSFORM_SHIFT);
    this->parameters->set_int_value("transformation 3",
      MOSAIC_TRANSFORM_ROTATE_SIDE);
    this->parameters->set_int_value("transformation 4",
      MOSAIC_TRANSFORM_SHIFT);

    this->parameters->set_int_value("tiles x",2);
    this->parameters->set_int_value("tiles y",2);
    this->parameters->set_int_value("fill type",FILL_NO_BORDERS);
    this->parameters->set_string_value("fill colors",
      (char *) "255,0,0,255");
  }

//----------------------------------------------------------------------

void c_block_turtle::set_default()

  {
    this->name = TURTLE_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("initial x",PARAMETER_DOUBLE);
    this->parameters->add_parameter("initial y",PARAMETER_DOUBLE);
    this->parameters->add_parameter("initial angle",PARAMETER_INT);
    this->parameters->add_parameter("noise intensity",PARAMETER_DOUBLE);
    this->parameters->add_parameter("particle density",
      PARAMETER_DOUBLE);

    this->parameters->set_double_value("initial x",0.5);
    this->parameters->set_double_value("initial y",0.5);
    this->parameters->set_int_value("initial angle",90);
    this->parameters->set_double_value("noise intensity",1.0);
    this->parameters->set_double_value("particle density",1.0);
  }

//----------------------------------------------------------------------

void c_block_file_save::set_default()

  {
    this->name = FILE_SAVE_NAME;
    this->is_end_block = true;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("path",PARAMETER_STRING);
    this->parameters->set_string_value("path",(char *) "texture.png");
  }

//----------------------------------------------------------------------

void c_block_file_load::set_default()

  {
    this->name = FILE_LOAD_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("path",PARAMETER_STRING);
    this->parameters->add_parameter("interpolation",PARAMETER_INT);

    this->parameters->set_string_value("path",(char *) "image.png");
    this->parameters->set_int_value("interpolation",
      INTERPOLATION_LINEAR);
  }

//----------------------------------------------------------------------

void c_block_hsl::set_default()

  {
    this->name = HSL_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("hue",PARAMETER_DOUBLE);
    this->parameters->add_parameter("saturation",PARAMETER_DOUBLE);
    this->parameters->add_parameter("lightness",PARAMETER_DOUBLE);

    this->parameters->set_double_value("hue",0.0);
    this->parameters->set_double_value("saturation",0.0);
    this->parameters->set_double_value("lightness",0.0);
  }

//----------------------------------------------------------------------

void c_block_rgb::set_default()

  {
    this->name = RGB_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("red",PARAMETER_INT);
    this->parameters->add_parameter("green",PARAMETER_INT);
    this->parameters->add_parameter("blue",PARAMETER_INT);

    this->parameters->set_int_value("red",0);
    this->parameters->set_int_value("green",0);
    this->parameters->set_int_value("blue",0);
  }

//----------------------------------------------------------------------

void c_block_fault_formation_noise::set_default()

  {
    this->name = FAULT_FORMATION_NOISE_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;
  }

//----------------------------------------------------------------------

void c_block_end::set_default()

  {
    this->name = END_BLOCK_NAME;
    this->is_end_block = true;
    this->min_inputs = 1;
    this->max_inputs = 1;
  }

//----------------------------------------------------------------------

void c_block_bump_noise::set_default()

  {
    this->name = BUMP_NOISE_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("bump size from",PARAMETER_DOUBLE);
    this->parameters->add_parameter("bump size to",PARAMETER_DOUBLE);
    this->parameters->add_parameter("quantity",PARAMETER_INT);
    this->parameters->add_parameter("alter amplitude",PARAMETER_BOOL);

    this->parameters->set_double_value("bump size from",0.7);
    this->parameters->set_double_value("bump size to",0.001);
    this->parameters->set_int_value("quantity",1);
    this->parameters->set_bool_value("alter amplitude",false);
  }

//----------------------------------------------------------------------

void c_block_sine_transform::set_default()

  {
    this->name = SINE_TRANSFORM_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("phase",PARAMETER_DOUBLE);
    this->parameters->add_parameter("periods",PARAMETER_INT);
    this->parameters->add_parameter("amplitude",PARAMETER_INT);

    this->parameters->set_double_value("phase",0.0);
    this->parameters->set_int_value("periods",5);
    this->parameters->set_int_value("amplitude",127);
  }

//----------------------------------------------------------------------

void c_block_mix_channels::set_default()

  {
    this->name = MIX_CHANNELS_NAME;
    this->min_inputs = 3;
    this->max_inputs = 3;
  }

//----------------------------------------------------------------------

void c_block_substrate::set_default()

  {
    this->name = SUBSTRATE_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("number of iterations",
      PARAMETER_INT);
    this->parameters->add_parameter("number of lines",PARAMETER_INT);
    this->parameters->add_parameter("fill type",PARAMETER_INT);
    this->parameters->add_parameter("grayscale",PARAMETER_BOOL);
    this->parameters->add_parameter("iterate",PARAMETER_BOOL);

    this->parameters->set_int_value("number of iterations",10);
    this->parameters->set_int_value("number of lines",10);
    this->parameters->set_int_value("fill type",
      (int) FILL_KEEP_BORDERS);
    this->parameters->set_bool_value("grayscale",false);
    this->parameters->set_bool_value("iterate",true);
  }

//----------------------------------------------------------------------

void c_block_mix::set_default()

  {
    this->name = MIX_NAME;
    this->min_inputs = 2;
    this->max_inputs = 3;

    this->parameters->add_parameter("percentage",PARAMETER_INT);
    this->parameters->add_parameter("method",PARAMETER_INT);

    this->parameters->set_int_value("percentage",50);
    this->parameters->set_int_value("method",MIX_AVERAGE);
  }

//----------------------------------------------------------------------

void c_block_marble::set_default()

  {
    this->name = MARBLE_NAME;
    this->min_inputs = 0;
    this->max_inputs = 1;

    this->parameters->add_parameter("periods",PARAMETER_INT);
    this->parameters->add_parameter("intensity",PARAMETER_INT);
    this->parameters->add_parameter("amplitude",PARAMETER_INT);
    this->parameters->add_parameter("direction",PARAMETER_INT);

    this->parameters->set_int_value("periods",5);
    this->parameters->set_int_value("intensity",4);
    this->parameters->set_int_value("amplitude",127);
    this->parameters->set_int_value("direction",DIRECTION_HORIZONTAL);
  }

//----------------------------------------------------------------------

void c_block_wood::set_default()

  {
    this->name = WOOD_NAME;
    this->min_inputs = 0;
    this->max_inputs = 1;

    this->parameters->add_parameter("circles",PARAMETER_INT);
    this->parameters->add_parameter("hardness",PARAMETER_INT);
    this->parameters->add_parameter("intensity",PARAMETER_INT);
    this->parameters->add_parameter("amplitude",PARAMETER_INT);
    this->parameters->add_parameter("direction",PARAMETER_INT);

    this->parameters->set_int_value("circles",4);
    this->parameters->set_int_value("hardness",8);
    this->parameters->set_int_value("intensity",20);
    this->parameters->set_int_value("amplitude",127);
    this->parameters->set_int_value("direction",DIRECTION_HORIZONTAL);
  }

//----------------------------------------------------------------------

void c_block_particles::set_default()

  {
    this->name = PARTICLES_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("particles",PARAMETER_INT);
    this->parameters->add_parameter("initial x",PARAMETER_DOUBLE);
    this->parameters->add_parameter("initial y",PARAMETER_DOUBLE);
    this->parameters->add_parameter("angle",PARAMETER_INT);
    this->parameters->add_parameter("spread",PARAMETER_INT);
    this->parameters->add_parameter("initial velocity",
      PARAMETER_DOUBLE);

    this->parameters->set_int_value("particles",500);
    this->parameters->set_double_value("initial x",0.5);
    this->parameters->set_double_value("initial y",0.5);
    this->parameters->set_int_value("angle",0);
    this->parameters->set_int_value("spread",360);
    this->parameters->set_double_value("initial velocity",5);
  }

//----------------------------------------------------------------------

void c_block_circle_transform::set_default()

  {
    this->name = CIRCLE_TRANSFORM_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("radius",PARAMETER_INT);
    this->parameters->add_parameter("jumps",PARAMETER_INT);

    this->parameters->set_int_value("radius",5);
    this->parameters->set_int_value("jumps",1);
  }

//----------------------------------------------------------------------

void c_block_radius_transform::set_default()

  {
    this->name = RADIUS_TRANSFORM_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("radius min",PARAMETER_INT);
    this->parameters->add_parameter("radius max",PARAMETER_INT);
    this->parameters->add_parameter("rotate left",PARAMETER_BOOL);
    this->parameters->add_parameter("horizontal",PARAMETER_BOOL);

    this->parameters->set_int_value("radius min",1);
    this->parameters->set_int_value("radius max",20);
    this->parameters->set_bool_value("rotate left",true);
    this->parameters->set_bool_value("horizontal",true);
  }

//----------------------------------------------------------------------

void c_block_invert::set_default()

  {
    this->name = INVERT_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;
  }

//----------------------------------------------------------------------

void c_block_dither::set_default()

  {
    this->name = DITHER_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("levels",PARAMETER_INT);
    this->parameters->add_parameter("method",PARAMETER_INT);

    this->parameters->set_int_value("levels",8);
    this->parameters->set_int_value("method",DITHERING_ORDERED);
  }

//----------------------------------------------------------------------

void c_block_crop_amplitude::set_default()

  {
    this->name = CROP_AMPLITUDE_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("lower limit",PARAMETER_INT);
    this->parameters->add_parameter("upper limit",PARAMETER_INT);

    this->parameters->set_int_value("lower limit",50);
    this->parameters->set_int_value("upper limit",200);
  }

//----------------------------------------------------------------------

void c_block_normal_map::set_default()

  {
    this->name = NORMAL_MAP_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("neighbourhood size",PARAMETER_INT);
    this->parameters->set_int_value("neighbourhood size",5);
  }

//----------------------------------------------------------------------

void c_block_glass::set_default()

  {
    this->name = GLASS_NAME;
    this->min_inputs = 2;
    this->max_inputs = 2;

    this->parameters->add_parameter("height",PARAMETER_DOUBLE);
    this->parameters->set_double_value("height",1.0);
  }

//----------------------------------------------------------------------

void c_block_cellular_automaton_rps::set_default()

  {
    this->name = CELLULAR_RPS_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("iterations",PARAMETER_INT);
    this->parameters->add_parameter("neighbourhood",PARAMETER_INT);
    this->parameters->add_parameter("neighbourhood size",PARAMETER_INT);
    this->parameters->add_parameter("players",PARAMETER_INT);

    this->parameters->set_int_value("iterations",50);
    this->parameters->set_int_value("neighbourhood",
      NEIGHBOURHOOD_MOORE);
    this->parameters->set_int_value("neighbourhood size",5);
    this->parameters->set_int_value("players",3);
  }

//----------------------------------------------------------------------

void c_block_cellular_automaton_cyclic::set_default()

  {
    this->name = CELLULAR_CYCLIC_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("iterations",PARAMETER_INT);
    this->parameters->add_parameter("neighbourhood",PARAMETER_INT);
    this->parameters->add_parameter("neighbourhood size",PARAMETER_INT);
    this->parameters->add_parameter("states",PARAMETER_INT);
    this->parameters->add_parameter("threshold",PARAMETER_INT);

    this->parameters->set_int_value("iterations",30);
    this->parameters->set_int_value("neighbourhood",
      NEIGHBOURHOOD_VON_NEUMANN);
    this->parameters->set_int_value("neighbourhood size",2);
    this->parameters->set_int_value("states",6);
    this->parameters->set_int_value("threshold",2);
  }

//----------------------------------------------------------------------

void c_block_cellular_automaton_general::set_default()

  {
    this->name = CELLULAR_GENERAL_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("iterations",PARAMETER_INT);
    this->parameters->add_parameter("rules",PARAMETER_STRING);
    this->parameters->add_parameter("states",PARAMETER_INT);

    this->parameters->set_int_value("iterations",20);
    this->parameters->set_string_value("rules",(char *) "");
    this->parameters->set_int_value("states",2);
  }

//----------------------------------------------------------------------

void c_block_brightness_contrast::set_default()

  {
    this->name = BRIGHTNESS_CONTRAST_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("brightness",PARAMETER_DOUBLE);
    this->parameters->add_parameter("contrast",PARAMETER_DOUBLE);

    this->parameters->set_double_value("brightness",0.0);
    this->parameters->set_double_value("contrast",0.0);
  }

//----------------------------------------------------------------------

void c_block_grayscale::set_default()

  {
    this->name = GRAYSCALE_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;
  }

//----------------------------------------------------------------------

void c_block_color_transition::set_default()

  {
    this->name = COLOR_TRANSITION_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("data",PARAMETER_STRING);
    this->parameters->set_string_value("data",(char *)
      "0 0 0 0;255 255 255 255;");
  }

//----------------------------------------------------------------------

void c_block_l_system::set_default()

  {
    this->name = L_SYSTEM_NAME;
    this->min_inputs = 0;
    this->max_inputs = 0;

    this->parameters->add_parameter("path",PARAMETER_STRING);
    this->parameters->add_parameter("iterations",PARAMETER_INT);

    this->parameters->set_string_value("path",
      (char *) "grammar.txt");
    this->parameters->set_int_value("iterations",10);
  }

//----------------------------------------------------------------------

void c_block_map_transition::set_default()

  {
    this->name = MAP_TRANSITION_NAME;
    this->min_inputs = 2;
    this->max_inputs = 2;
  }

//----------------------------------------------------------------------

void c_block_light::set_default()

  {
    this->name = LIGHT_NAME;
    this->min_inputs = 1;
    this->max_inputs = 1;

    this->parameters->add_parameter("ambient red",PARAMETER_INT);
    this->parameters->add_parameter("ambient green",PARAMETER_INT);
    this->parameters->add_parameter("ambient blue",PARAMETER_INT);

    this->parameters->add_parameter("diffuse red",PARAMETER_INT);
    this->parameters->add_parameter("diffuse green",PARAMETER_INT);
    this->parameters->add_parameter("diffuse blue",PARAMETER_INT);

    this->parameters->add_parameter("specular red",PARAMETER_INT);
    this->parameters->add_parameter("specular green",PARAMETER_INT);
    this->parameters->add_parameter("specular blue",PARAMETER_INT);

    this->parameters->add_parameter("reflection curve",PARAMETER_INT);
    this->parameters->add_parameter("viewer height",PARAMETER_DOUBLE);
    this->parameters->add_parameter("phong exponent",PARAMETER_DOUBLE);
    this->parameters->add_parameter("direction vector x",
      PARAMETER_DOUBLE);
    this->parameters->add_parameter("direction vector y",
      PARAMETER_DOUBLE);

    this->parameters->set_int_value("ambient red",5);
    this->parameters->set_int_value("ambient green",0);
    this->parameters->set_int_value("ambient blue",10);

    this->parameters->set_int_value("diffuse red",150);
    this->parameters->set_int_value("diffuse green",100);
    this->parameters->set_int_value("diffuse blue",100);

    this->parameters->set_int_value("specular red",255);
    this->parameters->set_int_value("specular green",245);
    this->parameters->set_int_value("specular blue",240);

    this->parameters->set_int_value("reflection curve",
      REFLECTION_CURVE_COSINE_ABS);
    this->parameters->set_double_value("viewer height",1.0);
    this->parameters->set_double_value("phong exponent",2.0);
    this->parameters->set_double_value("direction vector x",0.5);
    this->parameters->set_double_value("direction vector y",0.5);
  }

//======================================================================
// 'EXECUTE' FUNCTIONS:
//======================================================================

bool c_block_light::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_light(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer),
      this->parameters->get_int_value("ambient red"),
      this->parameters->get_int_value("ambient green"),
      this->parameters->get_int_value("ambient blue"),
      this->parameters->get_int_value("diffuse red"),
      this->parameters->get_int_value("diffuse green"),
      this->parameters->get_int_value("diffuse blue"),
      this->parameters->get_int_value("specular red"),
      this->parameters->get_int_value("specular green"),
      this->parameters->get_int_value("specular blue"),
      this->parameters->get_double_value("phong exponent"),
      (t_reflection_curve)
        this->parameters->get_int_value("reflection curve"),
      this->parameters->get_double_value("viewer height"),
      this->parameters->get_double_value("direction vector x"),
      this->parameters->get_double_value("direction vector y"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_geometric_transform::execute()

  {
    int angle;

    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    angle = this->parameters->get_int_value("angle");
    
    if (angle % 90 != 0) // only allow multiples of 90, other values don't tile
      {
		angle = (angle / 90) * 90;
	  }

    if (angle != 0)
      pt_rotate(
        &(this->buffer),
        degrees_to_radians(angle));

    pt_shift(
      &(this->buffer),
      this->parameters->get_double_value("shift x") * this->buffer.width,
      this->parameters->get_double_value("shift y") * this->buffer.height);

    if (this->parameters->get_bool_value("flip horizontal"))
      pt_flip(
        &(this->buffer),
        DIRECTION_HORIZONTAL);

    if (this->parameters->get_bool_value("flip vertical"))
      pt_flip(
        &(this->buffer),
        DIRECTION_VERTICAL);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_map_transition::execute()

  {
    if (
      !this->is_graphic_input(0) ||
      this->input_blocks[1] == NULL ||
      this->input_blocks[1]->get_name().compare("color transition")
      != 0)
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_map_to_transition(&(this->buffer),
      ((c_block_color_transition *) this->input_blocks[1])->get_color_transition());

    return true;
  }

//----------------------------------------------------------------------

bool c_block_edge_detection::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_edge_detection(
      &(this->buffer),
      (t_edge_detection_type) this->parameters->get_int_value("type"),
      this->parameters->get_int_value("intensity"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_convolution::execute()

  {
    t_matrix matrix;
    double number_buffer[256];
    unsigned int length,i,j,position;
    int width,height;

    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    width =
      saturate_int(this->parameters->get_int_value("matrix width"),1,16);
    height =
      saturate_int(this->parameters->get_int_value("matrix height"),1,16);

    matrix_init(&matrix,width,height);

    c_texture_graph::string_to_double_array(
      number_buffer,
      this->parameters->get_string_value("matrix data"),
      &length,
      256);

    position = 0;

    for (j = 0; j < matrix.height; j++)
      for (i = 0; i < matrix.width; i++)
        {
          matrix_set_value(&matrix,i,j,number_buffer[position]);
          position++;
        }

    pt_convolution(&(this->buffer),&matrix);

    matrix_destroy(&matrix);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_tile::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_tile(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->parameters->get_int_value("times"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_replace_colors::execute()

  {
    unsigned int i;
    t_color_buffer *buffers[4];
    unsigned char colors[4][3];

    if (!this->is_graphic_input(0))
      return false;

    for (i = 1; i < 5; i++)
      if (this->is_graphic_input(i))
        {
          buffers[i - 1] = ((c_graphic_block *)
            this->input_blocks[i])->get_color_buffer();
        }
      else
        {
          buffers[i - 1] = NULL;
        }

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    colors[0][0] = this->parameters->get_int_value("color 1 red");
    colors[0][1] = this->parameters->get_int_value("color 1 green");
    colors[0][2] = this->parameters->get_int_value("color 1 blue");
    colors[1][0] = this->parameters->get_int_value("color 2 red");
    colors[1][1] = this->parameters->get_int_value("color 2 green");
    colors[1][2] = this->parameters->get_int_value("color 2 blue");
    colors[2][0] = this->parameters->get_int_value("color 3 red");
    colors[2][1] = this->parameters->get_int_value("color 3 green");
    colors[2][2] = this->parameters->get_int_value("color 3 blue");
    colors[3][0] = this->parameters->get_int_value("color 4 red");
    colors[3][1] = this->parameters->get_int_value("color 4 green");
    colors[3][2] = this->parameters->get_int_value("color 4 blue");

    pt_replace_colors(&(this->buffer),colors,buffers,5);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_normal_map::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_normal_map(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->parameters->get_int_value("neighbourhood size"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_blur::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    if (this->parameters->get_bool_value("motion"))
      pt_motion_blur(
        &(this->buffer),
        (t_direction) this->parameters->get_int_value("direction"),
        this->parameters->get_int_value("intensity"));
    else
      pt_blur(
        &(this->buffer),
        this->parameters->get_int_value("intensity"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_sharpen::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_sharpen(
      &(this->buffer),
      this->parameters->get_int_value("intensity"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_emboss::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_emboss(
      &(this->buffer),
      this->parameters->get_int_value("intensity"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_cellular_automaton_rps::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_cellular_automaton_rps(
      &(this->buffer),
      (t_neighbourhood_type)
        this->parameters->get_int_value("neighbourhood"),
      this->parameters->get_int_value("neighbourhood size"),
      this->parameters->get_int_value("players"),
      this->get_random_seed(),
      this->parameters->get_int_value("iterations"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_cellular_automaton_cyclic::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_cellular_automaton_cyclic(
      &(this->buffer),
      (t_neighbourhood_type)
        this->parameters->get_int_value("neighbourhood"),
      this->parameters->get_int_value("neighbourhood size"),
      this->parameters->get_int_value("states"),
      this->parameters->get_int_value("threshold"),
      this->parameters->get_int_value("iterations"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_cellular_automaton_general::execute()

  {
    int rules[256];
    unsigned char rules_char[256];
    unsigned int length, i;

    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    c_texture_graph::string_to_char_array(
      rules_char,
      this->parameters->get_string_value("rules"),
      &length,
      256);

    for (i = 0; i < length; i++)  // convert char array to int array
      {
        rules[i] = ((char) rules_char[i]);
        cout << rules[i] << endl;
      }

    pt_cellular_automaton_general(
      &(this->buffer),
      this->parameters->get_int_value("states"),
      rules,
      this->parameters->get_int_value("iterations"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_simple_noise::execute()

  {
    pt_simple_noise(
      this->get_random_seed(),
      this->parameters->get_int_value("amplitude"),
      this->parameters->get_bool_value("grayscale"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_color_transition::execute()

  {
    color_transition_from_string(&(this->transition),
      (char *) this->parameters->get_string_value("data").c_str());

    return true;
  }

//----------------------------------------------------------------------

bool c_block_l_system::execute()

  {
    grammar_destroy(&(this->grammar));

    if(!grammar_load_from_file(&(this->grammar),
      (char *) this->parameters->get_string_value("path").c_str(),
      this->get_random_seed()))
      {
        return false;
      }
      
    grammar_generate_string(
      &(this->grammar),
      this->parameters->get_int_value("iterations"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_square_mosaic::execute()

  {
    t_square_mosaic mosaic;
    unsigned char fill_colors[256];
    unsigned int array_length;

    // specify the mosaic:

    mosaic.side_shape[0] =
      (char *) this->parameters->get_string_value("side 1").c_str();
    mosaic.side_shape[1] =
      (char *) this->parameters->get_string_value("side 2").c_str();
    mosaic.side_shape[2] =
      (char *) this->parameters->get_string_value("side 3").c_str();
    mosaic.side_shape[3] =
      (char *) this->parameters->get_string_value("side 4").c_str();

    mosaic.transformation[0] = (t_mosaic_transformation)
      this->parameters->get_int_value("transformation 1");
    mosaic.transformation[1] = (t_mosaic_transformation)
      this->parameters->get_int_value("transformation 2");
    mosaic.transformation[2] = (t_mosaic_transformation)
      this->parameters->get_int_value("transformation 3");
    mosaic.transformation[3] = (t_mosaic_transformation)
      this->parameters->get_int_value("transformation 4");

    mosaic.tiles_x = this->parameters->get_int_value("tiles x");
    mosaic.tiles_y = this->parameters->get_int_value("tiles y");

    // check the mosaic validity:

    if (!square_mosaic_is_valid(&mosaic))
      return false;

    c_texture_graph::string_to_char_array(
      fill_colors,
      this->parameters->get_string_value("fill colors"),
      &array_length,
      256);

    pt_mosaic_square(
      &(this->buffer),
      (t_fill_type) this->parameters->get_int_value("fill type"),
      fill_colors,
      array_length,
      &mosaic);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_glass::execute()

  {
    if (!this->is_graphic_input(0) || !this->is_graphic_input(1))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_glass(
      ((c_graphic_block *) this->input_blocks[1])->get_color_buffer(),
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer),
      this->parameters->get_double_value("height"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_grayscale::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_grayscale(&(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_crop_amplitude::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_crop_amplitude(
      &(this->buffer),
      this->parameters->get_int_value("lower limit"),
      this->parameters->get_int_value("upper limit"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_turtle::execute()

  {
    if (this->input_blocks[0] == NULL ||
      this->input_blocks[0]->get_name().compare(L_SYSTEM_NAME) != 0)
      return false;

    pt_color_fill(&(this->buffer),255,255,255);

    pt_turtle_draw(
      &(this->buffer),
      ((c_block_l_system *) this->input_blocks[0])->get_grammar(),
      this->parameters->get_double_value("initial x"),
      this->parameters->get_double_value("initial y"),
      this->parameters->get_int_value("initial angle"),
      this->parameters->get_double_value("noise intensity"),
      this->parameters->get_double_value("particle density"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_dither::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_dithering(
      &(this->buffer),
      this->parameters->get_int_value("levels"),
      (t_dithering_method) this->parameters->get_int_value("method"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_invert::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      &(this->buffer));

    pt_invert_colors(&(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_sine_transform::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_transformation_sine(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->parameters->get_double_value("phase"),
      this->parameters->get_int_value("periods"),
      this->parameters->get_int_value("amplitude"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_circle_transform::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_transformation_circle(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->parameters->get_int_value("radius"),
      this->parameters->get_int_value("jumps"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_radius_transform::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_transformation_radius(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->parameters->get_int_value("radius min"),
      this->parameters->get_int_value("radius max"),
      this->parameters->get_bool_value("rotate left"),
      this->parameters->get_bool_value("horizontal"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_wood::execute()

  {
    t_color_buffer *noise_buffer;

    if (this->is_graphic_input(0))
      noise_buffer =
        ((c_graphic_block *) this->input_blocks[0])->get_color_buffer();
    else
      noise_buffer = NULL;

    pt_wood(
      this->get_random_seed(),
      this->parameters->get_int_value("circles"),
      this->parameters->get_int_value("hardness"),
      this->parameters->get_int_value("intensity"),
      (t_direction) this->parameters->get_int_value("direction"),
      this->parameters->get_int_value("amplitude"),
      &(this->buffer),
      noise_buffer);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_particles::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_particle_movement(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->parameters->get_int_value("particles"),
      this->parameters->get_double_value("initial x"),
      this->parameters->get_double_value("initial y"),
      this->parameters->get_int_value("angle"),
      this->parameters->get_int_value("spread"),
      this->parameters->get_double_value("initial velocity"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_marble::execute()

  {
    t_color_buffer *noise_buffer;

    if (this->is_graphic_input(0))
      noise_buffer =
        ((c_graphic_block *) this->input_blocks[0])->get_color_buffer();
    else
      noise_buffer = NULL;

    pt_marble(
      this->get_random_seed(),
      this->parameters->get_int_value("periods"),
      this->parameters->get_int_value("intensity"),
      (t_direction) this->parameters->get_int_value("direction"),
      this->parameters->get_int_value("amplitude"),
      &(this->buffer),
      noise_buffer);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_voronoi_diagram::execute()

  {
    unsigned int point_list[256][2];
    double double_list[256][2];
    unsigned int list_length;

    if (this->input_blocks[0] != NULL &&
      this->input_blocks[0]->get_name().compare(L_SYSTEM_NAME) == 0)
      {
        // placing points with l-system:

        pt_turtle_get_point_list(
          &(this->buffer),
          ((c_block_l_system *) this->input_blocks[0])->get_grammar(),
          this->parameters->get_double_value("initial x"),
          this->parameters->get_double_value("initial y"),
          this->parameters->get_int_value("initial angle"),
          point_list,
          &list_length,
          256);

        pt_voronoi_diagram(
          (t_voronoi_type) this->parameters->get_int_value("type"),
          (t_metric) this->parameters->get_int_value("metric"),
          PLACE_CUSTOM,
          list_length,
          0,
          point_list,
          &(this->buffer));
      }
    else
      switch (this->parameters->get_int_value("point place"))
        {
          case PLACE_RANDOM:
            pt_voronoi_diagram(
              (t_voronoi_type) this->parameters->get_int_value("type"),
              (t_metric) this->parameters->get_int_value("metric"),
              PLACE_RANDOM,
              this->get_random_seed(),
              this->parameters->get_int_value("number of points"),
              NULL,
              &(this->buffer));
            break;

          case PLACE_SQUARE:
          case PLACE_CIRCLE:
          case PLACE_CROSS_HORIZONTAL:
          case PLACE_CROSS_DIAGONAL:
            pt_voronoi_diagram(
              (t_voronoi_type) this->parameters->get_int_value("type"),
              (t_metric) this->parameters->get_int_value("metric"),
              (t_point_place_type) this->parameters->get_int_value("point place"),
              this->parameters->get_int_value("width"),
              this->parameters->get_int_value("number of points"),
              NULL,
              &(this->buffer));
            break;

          case PLACE_CUSTOM:
            c_texture_graph::string_to_coordinations(
              double_list,
              this->parameters->get_string_value("point positions"),
              &list_length,
              256);

            coord_array_double_to_int(point_list,double_list,
              list_length,this->buffer.width,this->buffer.height);

            pt_voronoi_diagram(
              (t_voronoi_type) this->parameters->get_int_value("type"),
              (t_metric) this->parameters->get_int_value("metric"),
              PLACE_CUSTOM,
              list_length,
              0,
              point_list,
              &(this->buffer));
            break;
        }

    return true;
  }

//----------------------------------------------------------------------

bool c_block_bump_noise::execute()

  {
    pt_bump_noise(&(this->buffer),
      this->parameters->get_double_value("bump size from"),
      this->parameters->get_double_value("bump size to"),
      this->parameters->get_int_value("quantity"),
      this->parameters->get_bool_value("alter amplitude"),
      this->get_random_seed());

    return true;
  }

//----------------------------------------------------------------------

bool c_block_mix::execute()

  {
    t_color_buffer *alpha_buffer;

    if (!this->is_graphic_input(0) || !this->is_graphic_input(1))
      return false;

    if (this->is_graphic_input(2))
      alpha_buffer =
        ((c_graphic_block *)this->input_blocks[2])->get_color_buffer();
    else
      alpha_buffer = NULL;

    color_buffer_destroy(&(this->buffer));

    pt_mix_buffers(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      ((c_graphic_block *) this->input_blocks[1])->get_color_buffer(),
      &(this->buffer),
      this->parameters->get_int_value("percentage"),
      (t_mix_type) this->parameters->get_int_value("method"),
      alpha_buffer);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_fault_formation_noise::execute()

  {
    pt_fault_formation_noise(this->get_random_seed(),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_rgb::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(((c_graphic_block *)
      this->input_blocks[0])->get_color_buffer(),&(this->buffer));

    pt_add_rgb(&(this->buffer),
      this->parameters->get_int_value("red"),
      this->parameters->get_int_value("green"),
      this->parameters->get_int_value("blue"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_brightness_contrast::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(((c_graphic_block *)
      this->input_blocks[0])->get_color_buffer(),&(this->buffer));

    pt_add_brightness_contrast(
      &(this->buffer),
      this->parameters->get_double_value("brightness"),
      this->parameters->get_double_value("contrast"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_hsl::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    color_buffer_copy_data(((c_graphic_block *)
      this->input_blocks[0])->get_color_buffer(),&(this->buffer));

    pt_add_hsl(&(this->buffer),
      this->parameters->get_double_value("hue"),
      this->parameters->get_double_value("saturation"),
      this->parameters->get_double_value("lightness"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_perlin_noise::execute()

  {
    pt_perlin_noise(
      this->get_random_seed(),
      this->parameters->get_int_value("amplitude"),
      this->parameters->get_int_value("frequency"),
      this->parameters->get_int_value("max iterations"),
      (t_interpolation_method)
        this->parameters->get_int_value("interpolation"),
      &(this->buffer),
      this->parameters->get_bool_value("smooth"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_mix_channels::execute()

  {
    if (!this->is_graphic_input(0) || !this->is_graphic_input(1) ||
      !this->is_graphic_input(2))
      return false;

    color_buffer_destroy(&(this->buffer));

    pt_mix_channels(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      ((c_graphic_block *) this->input_blocks[1])->get_color_buffer(),
      ((c_graphic_block *) this->input_blocks[2])->get_color_buffer(),
      &this->buffer);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_color_fill::execute()

  {
    pt_color_fill(&(this->buffer),
      this->parameters->get_int_value("red"),
      this->parameters->get_int_value("green"),
      this->parameters->get_int_value("blue"));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_file_save::execute()

  {
    t_color_buffer help_buffer;
    bool success;

    if (!this->is_graphic_input(0))
      return false;

    pt_supersampling(   // perform supersampling
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->graph->get_supersampling(),
      &help_buffer);

    success = true;

    if (!color_buffer_save_to_png(&help_buffer,
      ((char *) (this->parameters->get_string_value("path")).c_str())))
      {
        success = false;
      }

    color_buffer_destroy(&help_buffer);

    return success;
  }

//----------------------------------------------------------------------

bool c_block_end::execute()

  {
    if (!this->is_graphic_input(0))
      return false;

    pt_supersampling(
      ((c_graphic_block *) this->input_blocks[0])->get_color_buffer(),
      this->graph->get_supersampling(),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

bool c_block_file_load::execute()

  {
    t_color_buffer help_buffer;

    if(!color_buffer_load_from_png(&help_buffer,
      (char *) this->parameters->get_string_value("path").c_str()))
      return false;

    pt_resize(&help_buffer,&(this->buffer),
      (t_interpolation_method)
      this->parameters->get_int_value("interpolation"));

    color_buffer_destroy(&help_buffer);

    return true;
  }

//----------------------------------------------------------------------

bool c_block_substrate::execute()

  {
    int number;

    if (this->parameters->get_bool_value("iterate"))
      number = this->parameters->get_int_value("number of iterations");
    else
      number = this->parameters->get_int_value("number of lines");

    if (number < 0)
      number = 0;

    pt_substrate(
      this->get_random_seed(),
      this->parameters->get_bool_value("iterate"),
      number,
      (t_fill_type) this->parameters->get_int_value("fill type"),
      this->parameters->get_bool_value("grayscale"),
      &(this->buffer));

    return true;
  }

//----------------------------------------------------------------------

--- FILE ./ptdesigner.h ---
#ifndef PTDESIGNER_H
#define PTDESIGNER_H

//**********************************************************************

/** @file
 * Header file providing procedural textures designer C++ interface. It
 * allows the programmer to create textures by describing it as a graph
 * of nodes (blocks), of which each represents basic operations for
 * creating textures.
 *
 * @author Miloslav Ciz
 */

/*
 * Copyright 2014 Miloslav Číž
 *
 * This file is part of PT Designer.
 *
 * PT Designer is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * PT Designer is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with these files. If not, see <http://www.gnu.org/licenses/>.
 */
 
//**********************************************************************

extern "C"
{
#include "colorbuffer.h"
#include "colortransition.h"
#include "matrix.h"
#include "grammar.h"
#include "proctextures.h"
#include "general.h"
}

#include <iostream>
#include <vector>
#include <string>
#include <locale.h>
#include "rapidxml.hpp"

#define PT_LIB_VERSION    "1.0"  /// library version
#define MAX_INPUT_BLOCKS  5  /// maximum number of input blocks
#define MAX_SUPERSAMPLING 6  /// maximum supersampling level

using namespace std;
using namespace rapidxml;

namespace pt_design
{

// forward declarations:

class c_texture_graph;
class c_block;

  /**
   * Possible parameter data types.
   */

typedef enum
  {
    PARAMETER_INT,
    PARAMETER_DOUBLE,
    PARAMETER_BOOL,
    PARAMETER_STRING
  } t_parameter_type;

typedef struct
  {
    t_parameter_type type;
    string name;

    union
      {
        int int_value;
        double double_value;
        bool bool_value;
      };

    string string_value;
  } t_parameter;

//----------------------------------------------------------------------

  /**
   * Holds and manages a set of parameters. The parameters can be either
   * of int, double, bool or string data type.
   */

class c_parameters

  {
    protected:
      vector<t_parameter> *parameters;   /// holds the parameters
      c_block *block;                    /** block that this object
                                             belongs to, it is
                                             invalidated everythime
                                             parameters change */

      bool locked;                       /** whether the parameter
                                             creation is locked */
      int index_by_name(string name);

        /**<
         * Returns an index of parameter with given name.
         *
         * @param name name of the parameter
         *
         * @return index of the parameter or -1 if the parameter with
         *         the name doesn't exist
         */

      void changed();

        /**<
         * This should be called when a change in parameters occur.
         * Invalidation of the owner block will be performed.
         */

    public:
      c_parameters(c_block *owner);

        /**<
         * Class constructor, creates a new object.
         *
         * @param owner block that this object belong to, it will be
         *        invalidated everytime a change in parameters occur
         */

      ~c_parameters();

        /**<
         * Class destructor.
         */

      unsigned int number_of_parameters();

        /**<
         * Returns number of parameters.
         *
         * @return number of parameters
         */

      string get_value_string(unsigned int index);

        /**<
         * Returns a string representation of value of parameter at
         * given index.
         *
         * @param index parameter index
         *
         * @return string representing the parameter value or an empty
         *         string if the index is outside range
         */

      void lock();

        /**<
         * Lock creation of new parameters. Once this function has been
         * called, it is impossible to add new parameters to this
         * object.
         */

      bool is_locked();

        /**<
         * Checks if the object is locked for new parameter creation.
         *
         * @return true if the object is locked (new parameters can't be
         *         created), otherwise false
         */

      t_parameter_type get_type(string name);

        /**<
         * Gets data type of given parameter.
         *
         * @param name name of the parameter, it must exist
         *
         * @return parameter data type
         */

      t_parameter_type get_type(unsigned int index);

        /**<
         * Gets data type of given parameter.
         *
         * @param index index of the parameter, it must exist
         *
         * @return parameter data type
         */

      string get_name(unsigned int index);

        /**<
         * Gets name of the patameter with given index.
         *
         * @param index parameter index
         *
         * @return parameter name
         */

      bool add_parameter(string name, t_parameter_type type);

        /**<
         * Adds a new parameter to the object.
         *
         * @param name case-sensitive parameter name, must be unique
         *        within the object
         * @param type parameter data type
         *
         * @return true if the parameter was added, false otherwise
         */

      bool set_int_value(string parameter_name, int value);

        /**<
         * Sets an integer value of the parameter.
         *
         * @param parameter_name parameter name
         * @param value value to be set
         *
         * @return true if the value was set, false otherwise
         */

      bool set_double_value(string parameter_name, double value);

        /**<
         * Sets a double value of the parameter.
         *
         * @param parameter_name parameter name
         * @param value value to be set
         *
         * @return true if the value was set, false otherwise
         */

      bool set_bool_value(string parameter_name, bool value);

        /**<
         * Sets a bool value of the parameter.
         *
         * @param parameter_name parameter name
         * @param value value to be set
         *
         * @return true if the value was set, false otherwise
         */

      bool set_string_value(string parameter_name, char *value);

        /**<
         * Sets a string value of the parameter.
         *
         * @param parameter_name parameter name
         * @param value value to be set
         *
         * @return true if the value was set, false otherwise
         */

      bool set_string_value(string parameter_name, string value);

        /**<
         * Sets a string value of the parameter.
         *
         * @param parameter_name parameter name
         * @param value value to be set
         *
         * @return true if the value was set, false otherwise
         */

      int get_int_value(string parameter_name);

        /**<
         * Gets an integer value of the parameter. If the parameter is
         * not of integer data type, undefined value is returned.
         *
         * @param parameter_name parameter name
         *
         * @return parameter value
         */

      double get_double_value(string parameter_name);

        /**<
         * Gets a double value of the parameter. If the parameter is
         * not of double data type, undefined value is returned.
         *
         * @param parameter_name parameter name
         *
         * @return parameter value
         */

      bool get_bool_value(string parameter_name);

       /**<
         * Gets a bool value of the parameter. If the parameter is
         * not of bool data type, undefined value is returned.
         *
         * @param parameter_name parameter name
         *
         * @return parameter value
         */

      string get_string_value(string parameter_name);

        /**<
         * Gets a string value of the parameter. If the parameter is
         * not of string data type, undefined value is returned.
         *
         * @param parameter_name parameter name
         *
         * @return parameter value
         */

      int get_int_value(unsigned int index);

        /**<
         * Gets an integer value of the parameter. If the parameter is
         * not of integer data type, undefined value is returned.
         *
         * @param inde parameter index
         *
         * @return parameter value
         */

      double get_double_value(unsigned int index);

        /**<
         * Gets a double value of the parameter. If the parameter is
         * not of double data type, undefined value is returned.
         *
         * @param inde parameter index
         *
         * @return parameter value
         */

      bool get_bool_value(unsigned int index);

       /**<
         * Gets a bool value of the parameter. If the parameter is
         * not of bool data type, undefined value is returned.
         *
         * @param inde parameter index
         *
         * @return parameter value
         */

      string get_string_value(unsigned int index);

        /**<
         * Gets a string value of the parameter. If the parameter is
         * not of string data type, undefined value is returned.
         *
         * @param inde parameter index
         *
         * @return parameter value
         */
  };

//----------------------------------------------------------------------

 /**
  * Represents a general texture designer block, which is a node of
  * texture describing graph. To create a block instance use the static
  * factory method get_block_instance.
  */

class c_block

  {
    protected:
      unsigned int id;          /// block id (unique within the graph)
      bool is_end_block;        /// whether the block is terminal
      bool valid;               /// whether the block is currently valid
      bool error;               /// whether there was any error
      c_block *(input_blocks[MAX_INPUT_BLOCKS]); /// input blocks
      unsigned int inputs;      /// current number of inputs
      unsigned int max_inputs;  /// maximum number of inputs
      unsigned int min_inputs;  /// minimum number of inputs
      c_texture_graph *graph;   /// graph that the block belongs to
      string name;              /// name of the block
      bool initialised;         /// whether the block is initialised
      c_parameters *parameters; /// block parameters
      bool uses_global_seed;    /** whether global or custom random seed
                                    is used */
      int custom_seed;          /// custom seed value

      void set_error();

        /**<
         * Sets the error flag and invalidates the block.
         */

      bool is_graphic_input(unsigned int number);

        /**<
         * Checks whether there is a graphic block at given input block
         * of this block.
         *
         * @param number number of input slot
         *
         * @return true if there is a graphic block at given input slot,
         *         false otherwise
         */

      virtual void set_default();

        /**<
         * Sets block specific parameters to default values.
         */

      virtual bool execute();

        /**<
         * Computes the block output and executes all other asociated
         * actions. The function presumes the input blocks are
         * already computed and valid.
         *
         * @return true if everything was done OK, false otherwise
         *         (an error occured)
         */

    public:

      c_block();

        /**<
         * Class constructor, initialises a new block. The block can't
         * be used before it's added to a texture graph.
         */

      bool is_terminal();

        /**<
         * Checks if the block is terminal, i.e. cannot serve as a
         * input for another block.
         *
         * @return true if the block is terminal, false otherwise
         */

      static c_block *get_block_instance(string block_name);

        /**
         * Creates an instance of concrete c_block subclass depending
         * on provided string name of the block.
         *
         * @param block_name identifies which instance subclass instance
         *        should be created
         *
         * @return concrete newly allocated c_block subclass or NULL if
         *         the string does not identify any subclass
         */

      virtual bool load_parameters(string parameters);

        /**<
         * Sets the block parameters specified by string.
         *
         * @param parameters parameter describing string
         *
         * @return true if the parameters were set succesfully, false
         *         otherwise
         */

      unsigned int get_min_inputs();
      
        /**<
         * Returns a minimum number of inputs for this block.
         * 
         * @return minimum number of input blocks for this block
         */
         
      unsigned int get_max_inputs();
      
        /**<
         * Returns a maximum number of inputs for this block.
         * 
         * @return maximum number of input blocks for this block
         */

      c_parameters *get_parameters();

        /**<
         * Returns a pointer to the block parameter-handling object.
         *
         * @return block parameters
         */

      void set_texture_graph(c_texture_graph *graph);

        /**<
         * Sets the block to belong to specified texture graph.
         *
         * @param graph texture graph which this block should belong to
         */

      int get_random_seed();

        /**<
         * Returns random seed value used by this block (either the
         * global value or custom set value). This should be used by
         * the block to get random seed value during computations.
         *
         * @return random seed value
         */

      c_block *get_input(unsigned int index);

        /**<
         * Gets the block input at specified input slot.
         *
         * @param index input slot index
         *
         * @return pointer to input block at given input slot of this
         *         block
         */

      bool has_ancestor(c_block *block);

        /**<
         * Checks if the block has another block as its ancestor in any
         * depth.
         *
         * @return true if the block block is this block's ancestor
         *         (even indirect), otherwise false
         */

      bool is_using_global_seed();

        /**<
         * Checks if the block uses global or custom random seed value.
         *
         * @return true if global seed (set in the texture graph) is
         *         used, false if custom seed is used
         */

      void use_global_seed();

        /**<
         * Sets the block so that it will use the global seed set in the
         * texture graph instead of custom seed (global seed is used by
         * default).
         */

      void use_custom_seed(int value);

        /**<
         * Sets the block so that it will use custom random seed value
         * instead of global seed.
         *
         * @param value custom random seed value to be set
         */

      virtual void adjust();

        /**<
         * Adjusts the block parameters to current graph parameters
         * (i.e. resolution and so on)
         */

      string get_name();

        /**<
         * Returns text name of the block.
         *
         * @return name of the block
         */

      void set_id(unsigned int new_id);

        /**<
         * Sets the id for the block.
         *
         * @param id new id to be set
         */

      unsigned int get_id();

        /**<
         * Returns the block id.
         *
         * @return the block id
         */

      virtual bool has_image();

        /**<
         * Checks if the given block can provide a color buffer with
         * image.
         *
         * @return true if this block has a color buffer, false
         *         otherwise
         */

      bool connect(c_block *input_block, unsigned int slot_number);

        /**<
         * Connects another block to this block's input.
         *
         * @param input_block block to be connected to this block's
         *        input slot
         * @param slot_number number of this block's input slot to
         *        connect the input block to
         *
         * @return true if the block was connected, otherwise false
         *         (the blocks cannot be connected if they make a cycle
         *         in the graph)
         */

      void disconnect(unsigned int slot_number);

        /**<
         * Disconnects an input block on given input slot.
         *
         * @param slot_number slot to be disconnected
         */

      void invalidate();

        /**<
         * Invalidates the block so that it's output will be recomputed
         * next time it's needed, even if it wasn't necessarry.
         */

      bool is_valid();

        /**<
         * Checks if the block output is currently valid.
         *
         * @return true if the output is valid, false otherwise
         */

      bool is_error();

        /**<
         * Checks if there was any error when generating the block
         * output.
         *
         * @return true if there was an error, false otherwise
         */

      bool is_user_of(c_block *block);

        /**<
         * Check if this block uses another block as an input.
         *
         * @param block block which this block is checked to be using
         *
         * @return true if this block uses the block block as an input,
         *         false otherwise
         */

      virtual ~c_block();

        /**<
         * Class destructor, destroys the block and frees all it's
         * memory.
         */

      virtual void set_default_parameters();

        /**<
         * Sets the block parameters to default values
         */

      bool compute(bool force);

        /**<
         * Computes the block output. If the block has any input blocks,
         * it will check whether they are valid and will recursively
         * recompute them if needed.
         *
         * @param force if true, the block will recompute it's output
         *        and all input blocks always, even if it's not
         *        necesarry, otherwise recomputing will only be done
         *        if needed
         *
         * @return true if any change in the block output happened,
         *         false if not (recomputing didn't happen because it
         *         wasn't necesarry)
         */
  };

//----------------------------------------------------------------------

 /**
  * Represents a graphic texture designer block that generates and
  * stores image data.
  */

class c_graphic_block: public c_block

  {
    protected:
      t_color_buffer buffer;   /// image buffer of the block

    public:
      c_graphic_block();

        /**<
         * Class constructor, initialises a new object.
         */

      virtual void adjust();

        /**<
         * Adjusts the block parameters to current graph parameters
         * (i.e. resolution and so on)
         */

      virtual bool has_image();

        /**<
         * Checks if the given block can provide a color buffer with
         * image.
         *
         * @return true if this block has a color buffer, false
         *         otherwise
         */

      t_color_buffer *get_color_buffer();

        /**<
         * Returns a pointer to the block color buffer, in which the
         * image is stored.
         *
         * @return color buffer of the block
         */

      virtual ~c_graphic_block();

        /**<
         * Class destructor, destroys the block and frees all it's
         * memory.
         */
  };

//----------------------------------------------------------------------

 /**
  * Represents a special texture designer block that stores and
  * processes other than image data.
  */

class c_special_block: public c_block

  {
    protected:
    public:
      virtual void adjust();

        /**<
         * Adjusts the block parameters to current graph parameters
         * (i.e. resolution and so on)
         */

      virtual bool has_image();

        /**<
         * Checks if the given block can provide a color buffer with
         * image.
         *
         * @return true if this block has a color buffer, false
         *         otherwise
         */

      virtual ~c_special_block();

        /**<
         * Class destructor, destroys the block and frees all it's
         * memory.
         */
  };

//----------------------------------------------------------------------

 /**
  * Represents a texture description graph consisting of blocks. The
  * graph is oriented and must not contain cycles.
  */

class c_texture_graph

  {
    protected:
      unsigned int supersampling_level; /// supersampling level, 1 = off
      unsigned int resolution_x;        /** x resolution of the texture
                                            (final, supersampled) */
      unsigned int resolution_y;        /** y resolution of the texture
                                            (final, supersampled) */
      unsigned int last_id;             /// id to be assigned
      int random_seed;                  /// random number generator seed
      vector<c_block *> *blocks;        /// all the graph blocks
      vector<c_block *> *end_blocks;    /** blocks that are not an input
                                            of any other block */

    public:

      c_texture_graph();

        /**<
         * Class constructor, initialises a new texture graph.
         */

      ~c_texture_graph();

        /**<
         * Class destrucotr, deletes all the blocks and frees the
         * memory.
         */

      void clear();

        /**<
         * Deletes all block so that the graph is empty.
         */

      static string coordinations_to_string(
        double coordination_list[][2], unsigned int length);

        /**
          * Converts a list of coordinations to string representation.
          *
          * @param coordination_list array of [x,y] double values in
          *        range <0,1>
          * @param length length of the array (number of coordinations)
          *
          * @return string representation of the coordination list
          */

      static void string_to_coordinations(
        double coordination_list[][2], string coordinations,
        unsigned int *length, unsigned int max_length);

        /**
          * Converts a string representation of two-dimensional
          * coordinations to double array.
          *
          * @param coordination_list array of [x,y] double values in
          *        which the result will be stored
          * @param coordinations string representation of the
          *        coordination list
          * @param length in this variable the length of the list loaded
          *        will be stored
          * @param max_length specifies the maximum length that should
          *        be allowed to load
          */

      static string char_array_to_string(unsigned char char_array[],
        unsigned int length);

        /**
          * Converts an array of unsigned char values to its string
          * representation (decimal values separated by comma).
          *
          * @param char_array char array to be converted
          * @param length length of the array
          *
          * @return string representation of the char array
          */

      static void string_to_char_array(unsigned char char_array[],
        string char_string, unsigned int *length,
        unsigned int max_length);

        /**<
         * Converts the string representation of array of unsigned char
         * values (decimal values separated by comma) to char array.
         *
         * @param char_array in this variable the char array will be
         *        returned, the whole array will be filles with zeros
         *        initially within the max_length length
         * @param char_string string representation to be converted
         * @param length in this variable the length of the array loaded
         *        will be returned
         * @param max_length maximum allowed array length
         */

      static void string_to_double_array(double double_array[],
        string double_string, unsigned int *length,
        unsigned int max_length);

        /**<
         * Converts the string representation of array of double values
         * (decimal values separated by comma) to double array.
         *
         * @param double_array in this variable the double array will be
         *        returned, the whole array will be filles with zeros
         *        initially within the max_length length
         * @param double_string string representation to be converted
         * @param length in this variable the length of the array loaded
         *        will be returned
         * @param max_length maximum allowed array length
         */

      void block_invalidated(c_block *block);
      
        /**<
         * Informs the graph that a block was invalidated so that all
         * its children will be invalidated too.
         * 
         * @param block block that has been invalidated
         */

      void update();

        /**<
         * Updates the texture graph. Should be called after connect,
         * disconnect, delete etc. functions has been called.
         */

      bool compute(bool force,void (*progress_function)(int,int));

        /**<
         * Computes all the block outputs and executes all asociated
         * actions. As many as possible of the blocks will be computed,
         * even if there are errors. Optional pointer to function can
         * be provided to be updated about computation progress.
         *
         * @param force if true, all blocks will be forced to recompute
         *        even if it's not necesarry, otherwise only invalid
         *        blocks will be recomputed
         * @param progress_function pointer to function taking two int
         *        parameters that will be called every time a single
         *        block is to be computed (and after all blocks are
         *        computed), parameters passed to the function are
         *        number of blocks left to be computed and an id of the
         *        block to be computed next (in the last function call
         *        this is -1), this parameter can be NULL in which case
         *        it will be ignored 
         * 
         * @return true if every block was computed succesfully,
         *         otherwise false
         */

      bool compute(bool force);

        /**<
         * Computes all the block outputs and executes all asociated
         * actions. As many as possible of the blocks will be computed,
         * even if there are errors.
         *
         * @param force if true, all blocks will be forced to recompute
         *        even if it's not necesarry, otherwise only invalid
         *        blocks will be recomputed
         *
         * @return true if every block was computed succesfully,
         *         otherwise false
         */
         
      bool compute();

        /**<
         * Computes all the block outputs and executes all asociated
         * actions. This is equal to calling compute(false).
         *
         * @return true if every block was computed succesfully,
         *         otherwise false
         */

      bool connect_by_id(int id_input, int id_to, unsigned int slot);

        /**<
         * Connects two blocks identified by their IDs. If any of the
         * blocks with given IDs doesn't exist, nothing happens.
         *
         * @param id_input ID of the block to be connected to block with
         *        id_to ID
         * @param id_to ID of the block to which the block with id_input
         *        ID will be connected
         * @param slot slot number to connect the block to
         *
         * @return true if the blocks were connected, false if not
         */

      bool is_error();

        /**<
         * Checks if there is any error in any block of the graph.
         *
         * @return true if there is at least one error in any block,
         *         false otherwise
         */

      void invalidate_all();

        /**<
         * Invalidates all the block so their outputs will be forced to
         * be recomputed next time the compute function is called.
         */

      void adjust_all();

        /**<
         * Adjusts all the blocks so that their parameters are in match
         * with current graph parameters.
         */

      void set_supersampling(unsigned int level);

        /**<
         * Sets the texture supersapling level.
         *
         * @param level level of supersampling, 1 means no
         *        supersampling, 2 means 2 x 2 etc. Maximum value is
         *        MAX_SUPERSAMPLING.
         */

      void set_resolution(unsigned int x, unsigned int y);

        /**<
         * Sets the texture resolution.
         *
         * @param x horizontal texture resolution in pixels
         * @param y vertical texture resolution in pixels
         */

      void set_random_seed(int value);

        /**<
         * Sets the random seed value that affects random actions during
         * texture computation. Different values will result in slightly
         * different textures.
         *
         * @param value value to be set as seed
         */

      unsigned int get_supersampling();

        /**<
         * Gets the information about supersampling level set for the
         * texture.
         *
         * @return supersampling level
         */

      void get_resolution(unsigned int *x, unsigned int *y);

        /**<
         * Gets the information about texture resolution.
         *
         * @param x in this variable the horizontal resolution value in
         *        pixels will be returned
         * @param y in this variable the vertical resolution value in
         *        pixels will be returned
         */

      int get_random_seed();

        /**<
         * Gets the information about random seed value. This value
         * affects random actions during texture computation.
         *
         * @return random seed value
         */

      unsigned int get_number_of_blocks();

        /**<
         * Returns number of block in texture graph.
         *
         * @return number of block in texture graph
         */
         
      unsigned int get_number_of_invalid();
      
        /**<
         * Returns a number of invalid blocks in the graph.
         * 
         * @return number of invalid blocks in the graph.
         */

      c_block *get_block(unsigned int block_number);

        /**<
         * Returns a block of the texture graph with given index.
         *
         * @param block_number index of block that should be returned
         *        (note that this is not the block ID!)
         *
         * @return pointer to block at given index or NULL if the index
         *         is out of range
         */

      c_block *get_block_by_id(unsigned int block_id);

        /**<
         * Returns a block of the texture graph with given ID.
         *
         * @param block_id ID of block that should be returned
         *        (note that this is not the block index!)
         *
         * @return pointer to block with given ID or NULL if block with
         *         such ID doesn't exist
         */

      int add_block(c_block *block);

        /**<
         * Adds given block to texture graph. This will initialise the
         * block's parameters to default values and adjust them so that
         * they match the texture graph settings.
         *
         * @param block block to be added
         * 
         * @return id assigned to block
         */

      void remove_block(unsigned int block_number);

        /**<
         * Removes block with given index from texture graph. This
         * doesn't delete the block, it will just no longer belong to
         * the texture graph.
         *
         * @param block_number index of block to be removed from the
         *        texture graph
         */

      void delete_block(unsigned int block_number);

        /**<
         * Removes block with given index from texture graph and deletes
         * it.
         *
         * @param block_number index of block to be removed and deleted
         */
         
      void delete_block_with_id(unsigned int block_id);

        /**<
         * Removes block with given id from texture graph and deletes
         * it.
         *
         * @param block_number index of block to be removed and deleted
         */

      bool load_from_file(string filename);

        /**<
         * Loads the graph from XML file.
         *
         * @param filename name of the XML file
         *
         * @return true if the graph was loaded succesfully, false
         *         otherwise
         */

      bool save_to_file(string filename);

        /**<
         * Saves the graph as an XML file.
         *
         * @param filename name of the file to be saved
         *
         * @return true if the file was saved succesfully, false
         *         otherwise
         */

      void print_as_text();

        /**<
         * Debugging purposes method. Prints the graph text
         * representation to standard output.
         */
  };

/*======================================================================

                     concrete block definitions:

======================================================================*/

  /**
   * Voronoi diagram block.
   */

class c_block_voronoi_diagram: public c_graphic_block

  {
    #define VORONOI_DIAGRAM_NAME "voronoi diagram"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Color fill block that generates an image filled with constant
   * color.
   */

class c_block_color_fill: public c_graphic_block

  {
    #define COLOR_FILL_NAME "color fill"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Bump noise block.
   */

class c_block_bump_noise: public c_graphic_block

  {
    #define BUMP_NOISE_NAME "bump noise"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Fault formation noise block.
   */

class c_block_fault_formation_noise: public c_graphic_block

  {
    #define FAULT_FORMATION_NOISE_NAME "fault formation noise"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Perlin noise block.
   */

class c_block_perlin_noise: public c_graphic_block

  {
    #define PERLIN_NOISE_NAME "perlin noise"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Blur block.
   */

class c_block_blur: public c_graphic_block

  {
    #define BLUR_NAME "blur"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Geometric transformation block. Performs rotation, shift and flip
   * operations in this order.
   */

class c_block_geometric_transform: public c_graphic_block

  {
    #define GEOMETRIC_TRANSFORM_NAME "geometric transform"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Simple white noise block.
   */

class c_block_simple_noise: public c_graphic_block

  {
    #define SIMPLE_NOISE_NAME "simple noise"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Replace colors block.
   */

class c_block_replace_colors: public c_graphic_block

  {
    #define REPLACE_COLORS_NAME "replace colors"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Tile block.
   */

class c_block_tile: public c_graphic_block

  {
    #define TILE_NAME "tile"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Channel mix block.
   */

class c_block_mix_channels: public c_graphic_block

  {
    #define MIX_CHANNELS_NAME "mix channels"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * RGB adjust block.
   */

class c_block_rgb: public c_graphic_block

  {
    #define RGB_NAME "adjust rgb"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * HSL adjust block.
   */

class c_block_hsl: public c_graphic_block

  {
    #define HSL_NAME "adjust hsl"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Substrate algorithm block.
   */

class c_block_substrate: public c_graphic_block

  {
    #define SUBSTRATE_NAME "substrate"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Mixes or blends two images together with optional alpha channel
   * spicified with third image.
   */

class c_block_mix: public c_graphic_block

  {
    #define MIX_NAME "mix"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Marble block.
   */

class c_block_marble: public c_graphic_block

  {
    #define MARBLE_NAME "marble"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Wood block.
   */

class c_block_wood: public c_graphic_block

  {
    #define WOOD_NAME "wood"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Particle block.
   */

class c_block_particles: public c_graphic_block

  {
    #define PARTICLES_NAME "particles"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Circle transform block.
   */

class c_block_circle_transform: public c_graphic_block

  {
    #define CIRCLE_TRANSFORM_NAME "circle transform"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Sine transform block.
   */

class c_block_sine_transform: public c_graphic_block

  {
    #define SINE_TRANSFORM_NAME "sine transform"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Rock paper scissors cellular automaton block.
   */

class c_block_cellular_automaton_rps: public c_graphic_block

  {
    #define CELLULAR_RPS_NAME "cellular automaton rps"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Cyclic cellular automaton block.
   */

class c_block_cellular_automaton_cyclic: public c_graphic_block

  {
    #define CELLULAR_CYCLIC_NAME "cellular automaton cyclic"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * General cellular automaton block.
   */

class c_block_cellular_automaton_general: public c_graphic_block

  {
    #define CELLULAR_GENERAL_NAME "cellular automaton general"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Dither block.
   */

class c_block_dither: public c_graphic_block

  {
    #define DITHER_NAME "dither"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Amplitude crop block.
   */

class c_block_crop_amplitude: public c_graphic_block

  {
    #define CROP_AMPLITUDE_NAME "crop amplitude"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Color invert block.
   */

class c_block_invert: public c_graphic_block

  {
    #define INVERT_NAME "invert"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Radius transform block.
   */

class c_block_radius_transform: public c_graphic_block

  {
    #define RADIUS_TRANSFORM_NAME "radius transform"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * End block, stores the final texture in set resolution and with
   * supersampling applied. It is mean to use in applications to
   * access the final texture.
   */

class c_block_end: public c_graphic_block

  {
    #define END_BLOCK_NAME "end"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Normal map block.
   */

class c_block_normal_map: public c_graphic_block

  {
    #define NORMAL_MAP_NAME "normal map"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Lighting block.
   */

class c_block_light: public c_graphic_block

  {
    #define LIGHT_NAME "light"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Glass block.
   */

class c_block_glass: public c_graphic_block

  {
    #define GLASS_NAME "glass"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Grayscale block.
   */

class c_block_grayscale: public c_graphic_block

  {
    #define GRAYSCALE_NAME "grayscale"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Turtle block. Can draw L-Systems.
   */

class c_block_turtle: public c_graphic_block

  {
    #define TURTLE_NAME "turtle"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Square mosaic block.
   */

class c_block_square_mosaic: public c_graphic_block

  {
    #define SQUARE_MOSAIC_NAME "square mosaic"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Convolution block.
   */

class c_block_convolution: public c_graphic_block

  {
    #define CONVOLUTION_NAME "convolution"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Edge detection block.
   */

class c_block_edge_detection: public c_graphic_block

  {
    #define EDGE_DETECTION_NAME "edge detection"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Adjust brightness/contrast block.
   */

class c_block_brightness_contrast: public c_graphic_block

  {
    #define BRIGHTNESS_CONTRAST_NAME "brightness and contrast"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Sharpen block.
   */

class c_block_sharpen: public c_graphic_block

  {
    #define SHARPEN_NAME "sharpen"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Emboss block.
   */

class c_block_emboss: public c_graphic_block

  {
    #define EMBOSS_NAME "emboss"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

  /**
   * Map to color transition block.
   */

class c_block_map_transition: public c_graphic_block

  {
    #define MAP_TRANSITION_NAME "map transition"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

 /**
  * A block that loads an image from a file.
  */

class c_block_file_load: public c_graphic_block

  {
    #define FILE_LOAD_NAME "load file"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

 /**
  * Special block that saves its input to png file in set resolution
  * and with supersampling applied.
  */

class c_block_file_save: public c_special_block

  {
    #define FILE_SAVE_NAME "save file"

    protected:
      virtual void set_default();
      virtual bool execute();
  };

//----------------------------------------------------------------------

 /**
  * Special block that stores a color transition.
  */

class c_block_color_transition: public c_special_block

  {
    #define COLOR_TRANSITION_NAME "color transition"

    protected:
      t_color_transition transition;
      virtual void set_default();
      virtual bool execute();

    public:
      c_block_color_transition();
      ~c_block_color_transition();
      
      void get_color(unsigned int coordination, unsigned char *r,
        unsigned char *g, unsigned char *b);
      
      /**<
       * Returns a color with given coordination of the block's
       * color transition.
       * 
       * @param coordination point coordination
       * @param r in this variable an amount of red will be returned
       * @param g in this variable an amount of green will be returned
       * @param b in this variable an amount of blue will be returned
       */
      
      t_color_transition *get_color_transition();

      /**<
       * Returns a pointer to a color transition stored by this block.
       *
       * @return pointer to this block's color transition
       */
  };

//----------------------------------------------------------------------

 /**
  * Special block that stores an L-system.
  */

class c_block_l_system: public c_special_block

  {
    #define L_SYSTEM_NAME "l-system"

    protected:
      t_grammar grammar;
      virtual void set_default();
      virtual bool execute();

    public:
      c_block_l_system();
      ~c_block_l_system();
      t_grammar *get_grammar();

      /**<
       * Returns a pointer to a grammar stored by this block.
       *
       * @return pointer to this block's grammar
       */
  };

//----------------------------------------------------------------------

} // namespace

#endif
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University of Magic
Soundtrack for the game Mage Rage.
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Other
My Interpretation of Unix Philosophy
I am a follower and advocate of Unix Philosophy (UP) and ideas related to it (suckless SW, countercomplex SW etc.). If you are interested in these topics, I would like to share with you my interpretation of the core idea behind UP.
UP is formulated very vaguely and so leaves a lot of space for different interpretations. Most people follow it just intuitively. Many will obey it just to some degree because following it strictly, to the extreme, seems to be counterproductive and even betray its own promises. UP will always stay a fuzzy set of rules stated in imperfect human language but we can bring more clarity to it by creating more specific interpretations.
I won't be talking about the whole UP and all of its recommendations but rather just the one that from my experience causes most confusion and debate. It is this statement:
"Do one thing and do it well."
We understand the spirit of this rule, but few people can define precisely what "one thing" and "do well" mean exactly. In my opinion these two things actually represent an upper and lower bounds on complexity of programs we should write. Please read on, this needs an elaboration.
Let's start with the first part – do one thing. Firstly, there is no such thing as only ever doing one thing – doing anything always involves doing other things too. For example even such a basic operation as adding two numbers requires performing bit additions, comparisons, reads and writes. So one thing isn't to be taken literally, it is something subjected to one's interpretation.
Let's try this: Does a 3D MMORPG game with AI and realistic physics count as one thing, a game? Microsoft could say they're doing just one thing, an operating system. Maybe it is so, but these clearly don't feel like the correct one thing.
So, when you ask a UP enthusiast "what does one thing really mean?", he (yes, it definitely won't be she) will very likely answer something like this: One thing means one thing that isn't too complex. In other words, he tells you there is an upper limit on complexity you shouldn't pass and when your project crosses this line, you should split it into two independent sub-projects. This will help your program become more elegant, manageable and reusable. This point is true and UP programmers basically agree on it.
Where exactly is this upper limit? This is subjective, fuzzy and depends on individuals, environment etc. There also isn't a single bulletproof complexity metric, but for the sake of simplicity let's just suppose lines of code (LOC). You as an individual can e.g. set your upper limit by saying "I won't ever write a program that's over 10 KLOC". But this limit depends on the programming language and only applies for compiled programs; the limit may get much lower e.g. for subroutines and functions that are part of a compiled program – e.g. 100 LOC. It is just important to have some sense of an upper limit.
Now for the more controversial part. Besides having an upper limit, UP people tend to simply try very hard to write as simple programs as possible and take the do one thing to the extreme. One example of this is the true utility that's implemented in a single line of effective code. I've tried to go this path and discovered that going to the extremes would really mean writing hundreds of thousands of programs of which most would just serve to print out a single individual Unicode character (utilities like print_a , print_b etc.). This clearly isn't good for performance, readability, efficiency or portability. Going to the extreme breaks the promise of UP.
What is the reasonable amount of simplicity here? Again, if you as a UP programmer, he may answer like this: Don't do completely trivial things, rather than making a program for printing every single character make a utility for printing strings. This will still be a simple program, it will cover printing of any character and string, and it's also not bad to add in a few features like capitalizing the string, printing it in reverse etc. This seem reasonably simple.
When we think about this advice, we find it actually says there is a lower limit on complexity too: don't do completely trivial things, rather merge them to a simple reasonably complex program. And again, we can, for the sake of being more specific, express this lower bound with LOC. According to this interpretation, you should set some lower limit, such as 50 LOC. I expect a considerable number of UP folks disagreeing with me here.
However, I think this is what the "do the thing well" really means – a lower limit. If your program is 3 LOC, whatever you have chosen your one thing to be, you're not doing it well enough because even though you achieve the thing, you lose so much on overhead and lack of flexibility that your program is hardly useful.
If we consider e.g. a cat program (program that writes out the content of a file), we see it can be implemented in less than 10 LOC. But that is too little to be a good program. If your basic implementation is so simple, you should add options that may likely be useful to the users, such as fitting the text into given number of columns, printing only a specific subsection of the file etc. So I, maybe a little controversially, say: Keep adding features until you're above the lower limit (e.g. 50 LOC). But indeed, don't get carried away not to cross the upper limit!
So, to sum everything up: One thing can really be anything, even a game or an operating system, but you have to fit it within general complexity limits, both lower and upper, which is why you won't find many UP MMO games. If your program is over the upper limit of complexity, it is no longer considered doing one thing and you should split it. If your program is below the lower complexity limit, you are not doing your thing well.
At the end I'd like to make one thing clear: you don't have to follow UP always, just when it matters – when you're writing a serious program that's meant to last, be used and improved. When you want to achieve a thing quickly, you are okay to write a quick throwaway 3 LOC script that you delete right when it's finished running, or you may take a big bloated and ugly peace of copy-pasted spaghetti code from the Internet and use it for something you immediately need to achieve. It's just not how you should normally write programs that are to be a part of a Unix ecosystem.
Mathematical Fantasies
legal hack (the greatest secret)
An anonymous company sells a legal hack on Tor that allows to bypass most laws, get rich etc. This information is extremely expensive and secret and the buyer has to be thoroughly checked (as to know they won't leak the information), but is the most valuable information of all time. The description of the package says the hack works in all countries, because it is not based on a specific form of law, but is instead a logical flaw in the very essential principles of law, that are mathematically impossible to fix -- punishing the hack by law would mean the law itself would have to punish all people and the system would collapse. It says that if revealed publicly, it would be known as by far the biggest discovery in the history of mathematics and logic, but that mustn't happen because the world would collapse because all laws would suddenly stop working.

super mathematics (extreme brain capacity)
Around Earth people start appearing -- always highly intelligent mathematicians -- with a special ability to sometimes effortlessly predict outcome of chaotic events and solve problems that shouldn't be solvable in given time (NP hard problems). It is not clear how they do it or in which situations they are able to do it, the special people say it is a rational discipline that's above mathematics, but cannot be understood by most even very smart people and they cannot explain it, in the same way a human cannot explain e.g. quadratic equations to a cat, they simply don't have the mental capacity. The discipline is more difficult than mathematics because it cannot be written down -- once it is written down, the idea is no longer valid (similarly how quantum mechanics introduced effecting by observation). Everything is explained so that normal humans, i.e. the readers cannot understand, but can only get a glimpse of the ideas.

programming monks (beauty of programming)
Man goes hiking (?) in a jungle, discovers a temple of programming monks that live completely isolated, make their own computers and program just for the sake of writing beautiful programs, have developed perfectly elegant technology and software, including an ideal programming language.
Randomness
What is randomness? I don't know, but I can define it.

Let *s* be a sequence of *N* bits, *N* > 1, which repeats infinitely (as is the case with pseudorandom number generators with period *N*). Our goal is to define a measure of randomness of such a sequence *s*.

By randomness we very often understand unpredictability. The idea of our measure will therefore be based on unpredictability.

Consider a scenario in which a pseudorandom number generator keeps generating numbers, repeating the sequence *s*, and we get to see a random subsequence of this infinite series. The concept of our measure is following: for given *N*, we consider a sequence *s* more random if it gives a lower probability of us correctly predicting the next bit from the subsequence we've seen. Let us now set the definition precisely:

*r = (Σ^a∈S (max(p0(a),p1(a)) / (p0(a) + p1(a)))) / |S|*

Where 

- *r* is the measured randomness.
- *S* is a set of all possible subsequences of *s . s* (*s* concatenated with itself), with the lengths of 0 to *N - 2* (including). (We exclude the subsequences of length *N* and *N - 1* because with these the following bit can always be predicted correctly, and we concatenate the sequence so that we include sequenced wrapping around from end to beginning, as is the case if we keep repeating the sequence).
- *p0(a)* and *p1(a)* being the probabilities of 0 and 1, respectively, following the subsequence *a* in *s* (considering the first bit of *s* to be the following bit of the last bit of *s*). 

As an example, let's take *N = 3*.

| *s* | *a* | *p0(a)* | *p1(a)* | *r*   |
|-----|-----|-------- |---------|-------|
| 000 |     | 1       | 0       | 1     |
|     |   0 | 1       | 0       |       |
| 001 |     | 2/3     | 1/3     | 13/18 |
|     |   0 | 1/2     | 1/2     |       |
|     |   1 | 1       | 0       |       |
| 010 | ... | ...     | ...     | 13/18 |
| 011 |     | 1/3     | 2/3     | 13/18 |
|     |   0 | 0       | 1       |       |
|     |   1 | 1/2     | 1/2     |       |
| 100 | ... | ...     | ...     | 13/18 |
| 101 | ... | ...     | ...     | 13/18 |
| 110 | ... | ...     | ...     | 13/18 |
| 111 | ... | ...     | ...     | 1     |

We can conclude some properties of our measure:

*r(s) = r(reverse(s)) = r(bitwisenot(s)) = r(cyclicshift(s,q))*

Using a computer, we can search for most random sequences for given *N*:

```
-------
N = 2, best r = 0.5

01
10
-------
N = 3, best r = 0.722222222222

001
010
011
100
101
110
-------
N = 4, best r = 0.785714285714

0011
0110
1001
1100
-------
N = 5, best r = 0.826666666667

00101
01001
01010
01011
01101
10010
10100
10101
10110
11010
-------
N = 6, best r = 0.862745098039

000101
001010
010001
010100
010111
011101
100010
101000
101011
101110
110101
111010
-------
N = 7, best r = 0.880045351474

0001001
0010001
0010010
0100010
0100100
0110111
0111011
1000100
1001000
1011011
1011101
1101101
1101110
1110110
-------
N = 8, best r = 0.89494047619

00100101
00101001
01001001
01001010
01010010
01011011
01101011
01101101
10010010
10010100
10100100
10101101
10110101
10110110
11010110
11011010
-------
N = 9, best r = 0.909964726631

000010001
000100001
000100010
001000010
001000100
010000100
010001000
011101111
011110111
100001000
100010000
101110111
101111011
110111011
110111101
111011101
111011110
111101110
-------
N = 10, best r = 0.916993464052

0010010101
0010101001
0100100101
0100101010
0101001001
0101010010
0101011011
0101101101
0110101011
0110110101
1001001010
1001010100
1010010010
1010100100
1010101101
1010110110
1011010101
1011011010
1101010110
1101101010
-------
N = 11, best r = 0.926404958678

00010001001
00010010001
00100010001
00100010010
00100100010
01000100010
01000100100
01001000100
01101110111
01110110111
01110111011
10001000100
10001001000
10010001000
10110111011
10111011011
10111011101
11011011101
11011101101
11011101110
11101101110
11101110110
-------
N = 12, best r = 0.929256854257

001010010101
001010100101
010010100101
010010101001
010100101001
010100101010
010101001010
010101101011
010110101011
010110101101
011010101101
011010110101
100101001010
100101010010
101001010010
101001010100
101010010100
101010110101
101011010101
101011010110
101101010110
101101011010
110101011010
110101101010

-------
N = 13, best r = 0.935133136095

0010010100101
0010100100101
0010100101001
0100100101001
0100101001001
0100101001010
0101001001010
0101001010010
0101101011011
0101101101011
0110101101011
0110101101101
0110110101101
1001001010010
1001010010010
1001010010100
1010010010100
1010010100100
1010110101101
1010110110101
1011010110101
1011010110110
1011011010110
1101011010110
1101011011010
1101101011010
```

The python script used to generate the output follows:

```
def nextBin(seq):
  pos = len(seq) - 1

  while pos >= 0:
    if seq[pos] == 0:
      seq[pos] = 1
      break

    seq[pos] = 0

    pos -= 1

def randomness(seq):
  totalSubsequences = 0
  probabilitySum = 0.0
    
  possibleSubseqs = 1

  for i in range(len(seq) - 1):       # for all subsequence lengths
    subseq = [0 for j in range(i)]

    for j in range(possibleSubseqs):  # for all subsequences of length i
      followingOnes = 0
      followingZeros = 0

      for k in range(len(seq)):       # find all occurrences of subsequence
        matches = True

        for l in range(len(subseq)):
          if subseq[l] != seq[(k + l) % len(seq)]:
            matches = False
            break

        if matches:
          if seq[(k + i) % len(seq)] == 0:
            followingZeros += 1
          else:
            followingOnes += 1

      if followingOnes + followingZeros > 0:
        totalSubsequences += 1
        probabilitySum += (followingOnes if followingOnes > followingZeros else followingZeros) / float(followingOnes + followingZeros)

      # create next sequence

      nextBin(subseq)

    possibleSubseqs *= 2

  return probabilitySum / float(totalSubsequences)

for n in range(2,14):
  s = [0 for i in range(n)]

  bestRandomness = 1.0
  bestSequences = []

  for i in range(2 ** n):
    r = randomness(s)

    if r == bestRandomness:
      bestSequences.append(list(s))
    elif r < bestRandomness:
      bestRandomness = r
      bestSequences = [list(s)]

    nextBin(s)

  print("-------")
  print("N = " + str(n) + ", best r = " + str(bestRandomness))
  print("")

  for a in bestSequences:
    st = ""

    for d in a:
      st += "0" if d == 0 else "1"
    
    print(st)
```

